Население города в 2004 г. составило 80000000 человек. определите, в каком году население утроится, если ежегодный прирост населения 5%

Var g:integer; p:real;
begin
p:=80000000;
g:=2004;
while p<3*80000000 do begin p:=p+p*0.05; g:=g+1; end;
writeln;
writeln('в ',g,' году население увеличится в трое.');
end.

Цель:Развить навыки обработки строковых данных. Уметь использовать различные методы обработки строк. Получить навыки в организации работы со строковыми переменными: удалением, вставкой, копированием, заменой одной строки на другую и т.д.

Оборудование и материалы:Методическое пособие, ПЭВМ, ручка, карандаш, линейка, ластик, шаблон А4.

Ход работы

Методические рекомендации.

Необходимая информация содержится в лекциях № 19-22.

Решение задач представить в следующем порядке: постановка задачи, построение математической модели, блок-схемы, программный код, тестирование.

Задание для лабораторной работы выбрать согласно варианту по приведённой таблице. Вариант определяется порядковым номером в журнале группы.

Для работы с символьной информацией используют новый тип данных - строковый, именуемый ключевым словом string (или просто строка). Этот тип данных во многом похож на одномерный массив символов (Array[0..N] of char), но длина строки (максимальное количество символов N ограничивается числом 255). Значение N определяется при объявлении типа string (N) и может быть любой константой порядкового типа, но не больше 255. Значение N при объявлении типа string можно не указывать: в этом случае длина строки принимается равной 255 символам.

Строка трактуется как цепочка символов и к любому символу в строке можно обратиться по адресу (индексу), подобно одномерным массивам типа Array[0..N] of char. Самый первый байт в строке, имеющий адрес 0 (ноль), содержит код, равный числу символов в строке (длине строки).

Например, дана строка, имеющая следующее описание:

Var St: string;

Тогда длину строки St можно определить как значение функции

1) 73  = 2201 (Целая часть числа находится делением на основание новой это 3)

73/3 сотаток 1; 24/3 остаток 0; 8/3 остаток 2;  6/2 остаток 2; смотрим справа на лево 2201

2) 222 = 26

2223 = 2∙32+2∙31+2∙30 = 18+6+2 = 26 v10  

3) АВС = 2748

ABC v16 = 10∙16 v2+11∙16 v1+12∙16 v0 = 2560+176+12 = 2748 v10

4) 645 = 10040

645 делим на 5 остатки получаем 0, 4, 0, 0, 1

5) 123 = 27

123 v4 = 1∙4 v2+2∙4 v1+3∙4 v0 = 16+8+3 = 27 v10

6) 64 = 1000000 Делим все на два, остатки от деления получаются 0000001, затем справа на лево.

7) 572 = 378.  572 v8 = 5∙8 v2+7∙8 v1+2∙8 v0 = 320+56+2 = 378 v10

8) 187 = 273. Делим на 8, 187/8 (остаток 3)  23/8 (остаток 7) брали на 2

с права на лево 372

9) ВА1 = 2977  (BA116 = 11∙162+10∙161+1∙160 = 2816+160+1 = 2977 v10)

10) 3540 = DD4 (3540/16 (4) = 221/16=13), 13 =D, 4. Получилось: 354010 = DD4 v16