Отчет по практике: Язык программирования Pascal

Readln (b1, b2);

q: =b2/b1;

Sn: = (b1* (exp (n*ln (q)) - 1) / (q-1));

Writeln (Sn: 3: 0);

Readln;

End.

3.1.5 Результат работы программы

3.2 Решение задачи

3.2.1 Постановка задачи

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

3.2.2 Таблица идентификаторов

№	Переменные	тип	Значения
1	x, y	Real	Координаты точек

3.2.3 Блок-схема

3.2.4 Программа

program grafic;

var x,y: real;

begin

writeln ('введите координаты точек');

readln (x,y);

if (sqr (x) +sqr (y) >4) and (x>=-2) and (x<=2) and (y>=-2) and (y<=2)

and ( (x>0) and (y<0) or (x<0) and (y<0) or (x<0) and (y>0))

thenwriteln ('принадлежит') elsewriteln ('не принадлежит');

readln;

end.

3.2.5 Результат работы программы

3.3 Решение задачи

3.3.1 Постановка задачи

Долгожитель, т.е. человек, проживший более 100 лет, обратил внимание, что если к сумме квадратов цифр его возраста прибавить число его дня рождения, то получится как раз его возраст. Определить, сколько лет этому человеку.

3.3.2 Таблица идентификаторов

№	Переменные	тип	Значения
1	n	integer	Возраст человека
2	i	integer	Месяц рождения человека
3	a	integer	Единицы
4	b	integer	Остаток от деления на 100
5	h	integer	Десятки
6.	с	integer	Сотни
7	v	integer	Сумма квадратов цифр его возраста

3.3.3 Блок-схема

3.3.4 Программа

Programdata;

Uses crt;

Var i, n, a, b, c, v, h: integer;

Begin

Clrscr;

For n: =100 to 999 do

for i: =1 to 31 do

begin