Предмет: Информатика,
автор: artemdydka
Разработать программы для решения следующей задачи с использованием циклов с предусловием и постусловием
Приложения:

Ответы
Автор ответа:
1
Ответ:
1) предусловие
program w;
var x,y: real;
begin
x:=1;
while x<=2 do
begin
y:=10*x/3;
writeln ('x = ',x:3,' y = ',y:0:3);
x:=x+0.2
end
end.
2) постусловие
program r;
var x,y: real;
begin
x:=1;
repeat
y:=10*x/3;
writeln ('x = ',x:3,' y = ',y:0:3);
x:=x+0.2
until x>2
end.
Объяснение:
1) предусловие
задаем начальное значение х
Цикл:
проверяем условие
считаем у
выводим значения х и у на экран
изменяем х на шаг
2) постусловие
задаем начальное значение х
Цикл:
считаем у
выводим значения х и у на экран
изменяем х на шаг
проверяем условие
ata221:
здравствуйте. помогите, пожалуйста, с информатикой. последний вопрос в мрем профиле
Похожие вопросы
Предмет: Русский язык,
автор: оксанаруслан
Предмет: Алгебра,
автор: raverina
Предмет: Биология,
автор: 123маска
Предмет: Химия,
автор: gamerichard2001
Предмет: Математика,
автор: trophy1975