Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
2 / 2 / 0
Регистрация: 27.11.2013
Сообщений: 78
1

Определить численность населения к 1999 году

25.02.2014, 00:06. Показов 2728. Ответов 1
Метки нет (Все метки)

Население города увеличивается на 3% каждый год. В 1983 году население города составляло 65000. Напишите программу, которая выведет на экран предсказываемую численность населения города в каждом году вплоть до 1999г.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2014, 00:06
Ответы с готовыми решениями:

Вывести на экран предсказуемую численность населения города в каждом году, вплоть до 1999 г
Помогите сделать. Составить программу используя оператор REPEAT. Население города увеличивается...

Через сколько лет численность населения превзойдет x человек
Составить программу, позволяющую решить задачу: Население города N увеличивается на 3% ежегодно....

Численность населения в определенном году
1. Дано: год, численность в этом году и ежегодный прирост населения. Ввести число, определяющее во...

Исправить задачу (написать прогу, которая запрашивает численность населения Земли и численность населения США)
Задача: написать прогу, которая запрашивает численность населения Земли и численность населения...

1
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
25.02.2014, 00:19 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
const p=0.03;
var sum: real; i: integer;
 begin
  sum:= 65000;
  for i:= 1983 to 1999 do begin
    writeln(' ',i,' ãîäó íàñåëåíèå íàñ÷èòûâàëî ',sum:0:0,' ÷åëîâåê.');
    sum:= sum+ sum*p;
   end;
  readln;
 end.
Можно еще подключить CRT и выводить все года жизни города постепенно:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
const p=0.03;
var sum: real; i: integer;
 begin
  sum:= 65000;
  for i:= 1983 to 1999 do begin
    writeln(' ',i,' ãîäó íàñåëåíèå íàñ÷èòûâàëî ',sum:0:0,' ÷åëîâåê.');
    sum:= sum+ sum*p;
    delay(500);
   end;
  readln;
 end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2014, 00:19

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вывести на экран прогнозируемую численность населения в каждом году вплоть до 2010.
Население города увеличивается на 3% каждый год. В 2004 году население города составляло 65000...

Определить численность населения
В 1993 году численность населения города составляла 50000 человек. Вывести в виде таблицы значение...

Определить общую численность населения
Помогите, пожалуйста с задачкой. Известны данные о численности населения (в миллионах жителей) и...

Определить общую численность населения в «маленьких» государствах
Известны данные о численности населения (в млн. жителей) и площади (в тыс. км2 ) 28 государств....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.