Решить задачи: Разработать схему алгоритма и написать программу a) Вычисления среднего арифметического четырех чисел; b) Выво
Решить задачи: Разработать схему алгоритма и написать программу a) Вычисления среднего арифметического четырех чисел; b) Вывода вашего роста , возраста и веса на экран4 c) Вычисление значения корней квадратного уравнения Выполнить трассировку программ.
A)Pascal Var a,b,c,d, average: real; Begin Writeln('Введите 4 числа, каждый ввод закончить нажатием кнопки Enter'); readln(a,b,c,d); Average:=(a+b+c+d)/4; Writeln('Среднее Арифметическое 4-х чисел = ',Average); end.
b) var Age,High:integer; Ves:real; begin Writeln('Введите Возраст'); readln(age); Writeln('Введите Рост<span>); </span><span>readln(high); </span>Writeln('Введите вес<span>); </span><span>readln(ves); </span>Writeln('Ваш возраст ',age,'Ваш Рост ', high, ' Ваш Вес ',ves); end.
C) var n:integer; begin Writeln('Введите Число N'); readln(n); n:=n*n; Writeln('Квадратный корень равен= ',n); end.
Program R_BP;Uses crt;Var r,a,b,c,d:real;beginclrscr;write( 'Введите через "Enter" 4 числа ');read(a,b,c,d);r:=(a+b+c+d)/4;writeln('Ответ ',r);<span>end. 2 задача </span>Program R_BP;Uses crt;Var r,a,b,c,d:real;beginclrscr;write( 'Введите ваш рост');read(a);writeln('Введите ваш вес ');readln(R);writeln('Ваш вес = ',r,' ваш ростс = ',a);<span>end; </span><span>var a,b,c,d:integer;
x:real;
begin
write('Введите a,b,c: ');
readln(a,b,c);
//Дискриминант
d:=sqr(b)-4*a*c;
if d<0 Then writeln('Не имеет смысла')
else
if d=0 Then
begin
x:=-b/(2*a);
writeln(x);
end
else
begin
x:= (-b + sqrt(D))/(2*a);
writeln(x);
x:= (-b - sqrt(D))/(2*a);
writeln(x);
end;
end.</span>
program noname; uses crt; var a:array[1..100] of integer; i,n,k:byte; begin clrscr; for i:=1 to 20 do begin randomize; a[i]:=random(100)-50;; write(a[i],' '); if (a[i] mod 2=0) and (a[i]<>0) then k:=i; end; n:=0; for i:=1 to k do if a[i]<0 then n:=n+1; writeln; writeln(k,'-номер последнего четного'); writeln(n,'-число отрицательных элементов до ', a[k]) end.
Program nau; var s,m,t: real; begin writeln ('введите расстояние и среднюю скорость движения'); readln (s,m); t:=(s/m)*60; writeln('время, потраченное на дорогу, в минутах = ',t); <span>end.</span>