Консультация № 175883
06.01.2010, 23:22
30.77 руб.
0 4 2
Здравствуйте.
Уважаемые эксперты, нужна помощь в решении задачи:
Используя цикл while, напишите программу определения идеального веса для взрослых людей по формуле: Идеальный вес = рост - 100. Выход из цикла — значение роста 200.
Спасибо.

Обсуждение

Неизвестный
07.01.2010, 01:23
общий
это ответ
Здравствуйте, aller719.
Следуюя вашему условию программа должна быть такой


Приложение:
Program 175883;
uses crt;
var v,r,k:integer ;
begin
clrscr;
k:=100;
while r<>200 do
begin
Write ('Введите ваш рост '); readln(r);
v:= r-k;
Writeln ('Ваш идеальный вес =', v);
end;
end.
Неизвестный
07.01.2010, 11:01
общий
это ответ
Здравствуйте, aller719!
Решение в приложении. А вообщето такие задачи лучше решать с помошью repeat.

Приложение:
var n: integer;
begin
n := 0;
while n < 200 do
begin
ReadLn(n);
if n < 200 then WriteLn(n - 100);
end;
end.
Неизвестный
07.01.2010, 12:11
общий
aller719:
Добрый день! Само задание некорректно. По смыслу речь идет о росте ДО 200 см, однако по формулировке допустим рост, например, 199 см и 201 см. Соответственно неясно, требуется ли печать веса при росте ровно 200 см.
Неизвестный
09.01.2010, 17:07
общий
Выход из цикла — значение роста 200.

Ну по сути дано конкретное значение
Форма ответа