цикл в делфи

[Яська]

Составить программу вычисления численности населения в 2000 году, если в 1980 году численность населения была 1.5 млн. человек, а прирост на селения 3% в год.


получается,что начальный х=1,5млн,шаг 3 %,т.е. х*0,03, численность вычисляется по формуле у=х+h. Только вот понять не могу,какое условие писать в While. мы же не знаем,какой х через 20 лет будет.
Может,я неправильно рассуждаю.Помогите,плиз вникнуть в задачу.

[savva]

начальная точка 1980 год.пользователь вводит до какого года считать населения x=2000 например ну вот

y=1980 x=2000 z=1.5- численность.

while (y<>x) do
begin
z=z*0,03;
inc y//увеличиваем y
end;

[Tronix]

Ну смотри. В 1980 население 1,5. Прирост 0,03. То-есть в 1981 будет население 1,5 * 0,03. В 1982 будет (1,5*0,03)*0,03. И так далее. Число лет известно (2000-1980 = 20). Итого, цикл нужно повторить 19 раз. 19 - потому что для 1980 года мы уже знаем население и считать этот год не нужно. Итого примерно так:

x := 1,5;
for i := 1 to 2000-1980-1 do
x := x * 0,03;

[savva]

ну а у меня что написано?

z=z*0,03 на каждым цикле z меняется на 0.03 )

а цикл у меня от 1980 до 2000 и делается inc 1 вот и всё

[Tronix]

Сообщение от savva

ну а у меня что написано?

z=z*0,03 на каждым цикле z меняется на 0.03 )

а цикл у меня от 1980 до 2000 и делается inc 1 вот и всё

Да я просто пока писал комент, вы уже ответили. Я не видел просто.
Но я думаю что Y должен быть равен все-таки 1981, а не 1980. Хотя хз, может и так )

[Яська]

спасибо за помощь.сейчас попробую.

[savva]

ошибся

z=z+z*0.03

))

[savva]

program Project8;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var
  x,y:integer;
  z:Real;
  a:Real;
begin

 x:=1980;
 y:=2000;
 z:=1500000;
 a:=0.03;
 while(x<>y) do
 begin
   z:=z+z*a;
   inc (x);
 end;
 writeln(z);
 readln;
end.

там с выводом числа нужно немного погорбатиться,я не помню как,а справочника под рукой нету

Там уже сам сделаешь ввод пользователем и так далее.