var x,y,n,m,s,z:real;i,k:integer;
begin
write('Введите начало и конец диапазона по х'); Read(n,m);
write('Введите шаг расчета по х'); Read(z);
k:= round((m - n)/z)+1;x:=n;
for I:= 1 to k do begin
y:= x * 34* 2*sin(x);
writeln(x:4:1,y:11:6);x:= x + z;end;<span>end.</span>
Ответ:
Приходишь ты домой из школы и видишь у себя на столе список дел, который тебе оставила мама. Там написано:
Пообедай, сделай уроки, помой пол, приготовь ужин.
Это алгоритм твоих действий :)
Пишу задание вторым номером, поэтому постараюсь на качество.
Нам нужно найти сначала сумму всего роста, потом поделить его на общее количество учеников. Потом сопоставить каждый элемент со средним числом и высчитать количество высоких учеников.
Будет это выглядить так:
uses crt; //Если используете паскаль ABC, это строка нужна для удобства
Var a: array [1..25] of real; i,otvet: integer; h,s:real;
//Объявляем переменные. Массив,среднее число и суммарный рост - любые числа. Сам ответ - целые числа
Begin
For i:=1 to 25 do begin
Writeln('Введите рост ученика номер ',i); readln(a[i]);
//Здесь мы вводим рост с клавиатуры
end;
For i:=1 to 25 do
s:=s+a[i];
//находим суммарный рост всех учеников
h:=s/25;
// делим на их количество. Теперь переменная h - это средний рост
For i:=1 to 25 do
if a[i]>h then otvet:=otvet+1;
// А здесь проверяем каждый элемет массива. Если он выше значения среднего роста, мы прибавляем единицу к переменной "otvet". Там мы считаем количество высоких уч.
Writeln('Средний рост в классе равен ',h);
Writeln('Количество высоких учеников в классе равно ',otvet);
//вывод данных
end.