Приветствую Вас, Гость! Регистрация RSS

<Uzh.Soft/>

Суббота, 18.05.2024
Главная » 2011 » Октябрь » 30 » Задача 1.
16:26
Задача 1.
Задача 1. Длина шоссейных дорог области равна D км. Прогнозируется ежегодный её прирост на B км. Полагается, что на каждые C км дорог необходим один пост автоинспекции. Для текущего года и последующих N лет найти необходимое число постов автоинспекции.

  1. program p1;
  2. uses crt;
  3. var D,B,C,N,i,L,J :integer;
  4. begin
  5.     write('D= ');
  6.     readln(D);
  7.     write('B= ');
  8.     readln(B);
  9.     write('C= ');
  10.     readln(C);
  11.     write('N= ');
  12.     readln(N);
  13.     writeln('Year':10,'Length':10,'Posts':10);
  14.     for i:=0 to N do
  15.     begin
  16.         L:=D+B*i;
  17.         J:=L div C;
  18.         writeln(i:10,L:10,J:10);
  19.     end;
  20.     writeln('Press any key to exit');
  21.     repeat until keypressed;
  22. end.
Категория: Простые примеры | Просмотров: 639 | Добавил: is | Теги: Паскаль, циклы, Pascal | Рейтинг: 5.0/1
Всего комментариев: 0
Имя *:
Email *:
Код *: