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

2. СПЕЦИАЛЬНАЯ ЧАСТЬ

2.1 Постановка задачи №1

По введенным координатам вершин вычислить площади фигур в каждом квадрате и общую площадь.

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

Идентификаторы программы №1.

Таблица 1 — идентификаторы программы №1.

Переменная	Назначение	Тип
a1, b1, c1, d1, e1, f1, abo, two, jxo, cdo, h	Расчет, стороны фигур	Real
a, b, c, d, e, f, j, x, m, k, t, w, z, p, y, l	Ввод, координаты вершин	Integer
s1, s2, s3, s4, s	Расчет, вывод, площади	Real

2.1.2 Блок-схема алгоритма

2.1.3 Листинг программы

program n1;

uses crt;

var s1, s2, s3, s4, s, a1, b1, c1, d1, e1, f1, abo, cdo, two, jxo, h: Real;

a, b, c, d, e, f, j, x, k, m, t, w, y, l, z, p: Integer;

begin

clrscr;

writeln(‘Введите коорд.: a, b, c, d, e, f, j, x, m, k, t, w, y, z, l, p’);

readln(a, b, c, d, e, f, j, x, m, k, t, w, y, z, l, p);

a1:=sqrt(sqr(c-a)+sqr(a-b));

b1:=sqrt(sqr(e-c)+sqr(f-a));

c1:=sqrt(sqr(j-e)+sqr(x-f));

d1:=sqrt(sqr(k-j)+sqr(x-f));

e1:=sqrt(sqr(t-k)+sqr(w-m));

f1:=sqrt(sqr(a-t)+sqr(b-w));

abo:=sqrt(sqr(a-0)+sqr(b-0));

cdo:=sqrt(sqr(c-0)+sqr(d-0));

two:=sqrt(sqr(t-0)+sqr(w-0));

jxo:=sqrt(sqr(x-0)+sqr(x-0));

h:=sqrt(sqr(z-y)+sqr(p-l));

s1:=(abo*cdo)/2;

s2:=0.5*b*h;

s3:=sqr(jxo);

s4:=(two*abo)/2;

s:=s1+s2+s3+s4;

writeln(s:5:2, ‘ ’, s1:5:2, ‘ ’, s2:5:2, ‘ ’, s3:5:2, ‘ ‘, s4:5:2);

readkey;

end.

2.1.4 Контрольный пример №1

2.2 Постановка задачи №2

Музыкальный диск стоит x тенге y тиын. У вас имеется a тенге и b тиын. Хватит ли

денег на диск? Если да, то вывести «да», иначе — вывести «нет» и недостаток (в тиынах).

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

Идентификаторы программы №2.

Таблица 2 — идентификаторы программы №2.

Переменная	Назначение	Тип
x, y, a, b	Ввод, стоимость диска, количество денег	Integer
d, t,	Расчет, перевод тиын в сотые доли тенге	Real
n	Расчет, вывод, недостаток тиын

2.2.2 Блок-схема алгоритма

2.2.3 Листинг программы

program n1;

uses crt;

var x, y, a, b: Integer;

n, t, d: Real;

begin

clrscr;

writeln('Сколько стоит диск?');

readln(x, y);

writeln('Сколько у вас денег?');

readln(a, b);

d:=x+(y/100);

t:=a+(b/100);

n:=d-t;

if t>=d then

writeln('Да’)

else

writeln('Нет, n*100:5:2);

readkey;

end.

2.2.4 Контрольный пример №2

2.3 Постановка задачи №3

Дана точка А(a, b). Проверить, входит ли точка А в заштрихованную область?

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

Идентификаторы программы №3.

Таблица 3 — идентификаторы программы №3.

Переменная	Назначение	Тип
a, b	Ввод, расчет, координаты точки A	Integer
x, y, x1, y1, x2, y2	Расчет, координаты вершин заштрихованной области	Integer

2.3.2 Блок-схема алгоритма

2.3.3 Листинг программы

program n1;

uses crt;

const x = -5; y = 6; x1 = 6; y1 = 0; x2 = 0; y2 = -6;

var a, b: integer;

begin

clrscr;

writeln('a, b');

readln(a, b);

if ((a<x) and (b>y)) or

((a<x) and (b>y)) or

((a<y2) and (b<y1)) or

(b<y2) then

writeln('Не принадлежит')

else

writeln('Принадлежит');

readkey;

end.

2.3.4 Контрольный пример №3

2.4 Постановка задачи №4

Омеба каждые 3 часа делится на 2 клетки. Сколько появится клеток в течении 24 часов?

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

Идентификаторы программы №4.

Таблица 4 — идентификаторы программы №4.

Переменная	Назначение	Тип
i, j	Счетчик	Integer
l	Количество часов, вывод	Integer
om	Количество омеб, вывод, ввод	Real

2.4.2 Блок-схема алгоритма

2.4.3 Листинг программы

program n1;

uses crt;

var i, j, l: integer;

om: real;

begin

clrscr;

writeln('omeba?');

readln(om);

for i:=1 to 24 do

begin

inc(j);

inc(l);

if j=3 then

begin

j:=0;

om:=om*2;

writeln(l, ' h, om: ', om:10:0);

end;

end;

readkey;

end.

2.4.4 Контрольный пример №4

2.5 Постановка задачи №5

С клавиатуры введена дата (день, месяц, год). Вычислить дату след. Дня.

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

Идентификаторы программы №5.

Таблица 5 — идентификаторы программы №5.

Переменная	Назначение	Тип
d, m, y	Ввод, вывод, расчет, дата (день, месяц, год)	Integer

2.5.2 Блок-схема алгоритма

2.5.3 Листинг программы

program n1;

uses crt;

var d, m, y: integer;

begin

clrscr;

writeln('d m y?');

readln(d, m, y);

if d<30 then

writeln(d+1, '.', m, '.', y);

if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) then

if d=31 then

writeln('1.', m+1, '.', y);

if m=12 then

if d=31 then

writeln('1.1.', y+1);

if (m=4) or (m=6) or (m=9) or (m=11) then

if d=30 then

writeln('1.', m+1, '.', y);

if (d=28) or (d=29) then

writeln('1.', m+1, '.', y);

readkey;

end.

2.5.4 Контрольный пример №5

2.6 Постановка задачи №6

Вычислить факториал числа n.

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

Идентификаторы программы №6.

Таблица 6 — идентификаторы программы №6.

Переменная	Назначение	Тип
i,	Счетчик	Integer
n	Ввод	Integer
к	Вывод, расчет, факториал	Real

2.6.2 Блок-схема алгоритма

2.6.3 Листинг программы

program n1;

uses crt;

var r: real;

i, n: integer;

begin

clrscr;

writeln('n = ');

readln(n);

r:=1;

for i:=1 to n do

begin

r:=r*i;

writeln(r:10:0) ;

end;

readkey;

end.

2.6.4 Контрольный пример №6