Предмет: Информатика,
автор: tanykuzina
Помогите пожалуйста с Основными типами данных.
Язык Паскаль.
1.Нужно записать на языке Паскаль следующие выражения (фото для этого задания)
2. Создайте текстовый документ, в котором приведите 4 первых этапа решения следующей задачи:
Грузоподъемность одного судна – Р центнеров. Какова грузоподъемность всей флотилии, составленной из К судов?
Приложения:
Ответы
Автор ответа:
0
1)
var
a,b,c,d,i:real;
begin
write('Введите числа a,b,c,d по порядку: ');
readln(a,b,c,d);
i:=(a*b/c)+d;
writeln('Ответ: ',i);
readln;
end.
2)
var
a,b,i:real;
begin
write('Введите числа a,b по порядку: ');
readln(a,b);
i:=(sqrt(a*b))/(a-b)+(abs(a*b))/25.4;
writeln('Ответ: ',i);
readln;
end.
3)
var
y,x,i:real;
begin
write('Введите значения x,y по порядку: ');
readln(x,y);
i:=1+(((sqrt(x))+cos(y-2))/((x*x*x*x)/2)+sin(y)*sin(y));
write('Ответ: ',i);
readln;
end.
var
a,b,c,d,i:real;
begin
write('Введите числа a,b,c,d по порядку: ');
readln(a,b,c,d);
i:=(a*b/c)+d;
writeln('Ответ: ',i);
readln;
end.
2)
var
a,b,i:real;
begin
write('Введите числа a,b по порядку: ');
readln(a,b);
i:=(sqrt(a*b))/(a-b)+(abs(a*b))/25.4;
writeln('Ответ: ',i);
readln;
end.
3)
var
y,x,i:real;
begin
write('Введите значения x,y по порядку: ');
readln(x,y);
i:=1+(((sqrt(x))+cos(y-2))/((x*x*x*x)/2)+sin(y)*sin(y));
write('Ответ: ',i);
readln;
end.
Похожие вопросы
Предмет: Русский язык,
автор: damirbaizaq
Предмет: Алгебра,
автор: Kostyanik0716
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Литература,
автор: vladashhur
Предмет: География,
автор: olgaf1982