Приклади виконання завдання лабораторної роботи

Приклад 36. Запис має п'ять полів, що містять прізвище, ім'я студента, найменування, рік створення і номер групи. Написати програму, що вводить інформацію про студентів і виводить на друк прізвища й імена студентів групи ІТ98-2.

Програма має вид:

PROGRAM PR36;

USES CRT;

CONST GRU='ІТ'; GOD=98; NOM=2; M=5;

type student=record

fa,im,gr:string;

g:85..95; n:1..4; end;

mas=array[1..m] of student;

VAR S:MAS; I:INTEGER; C:CHAR;

BEGIN

CLRSCR;

{УВЕДЕННЯ ВИХІДНИХ ДАНИХ}

FOR I:=1 TO M DO

WITH S[I] DO BEGIN

WRITELN(' ДАНІ ПРО ',I,'-Ого СТУДЕНТА:');

WRITELN(' ПРІЗВИЩЕ?:'); READLN(FA);

WRITELN(' ІМ'Я?:'); READLN(IM);

WRITELN('НАЙМЕНУВАННЯ ГРУПИ?:'); READLN(GR);

WRITELN('РІК СТВОРЕННЯ ГРУПИ?:'); READLN(G);

WRITELN(' НОМЕР ГРУПИ?:'); READLN(N);

END;

WRITELN('===КІНЕЦЬ УВЕДЕННЯ====');

C:=READKEY;

CLRSCR;

WRITELN(' ':5,'СПИСОК УСІХ СТУДЕНТІВ:');

for i:=1 to m do

with s[i] do

writeln(' ', fa:10,im:10,gr:5,g:3,'-',n);

WRITELN(' ':5,'СПИСОК СТУДЕНТІВ ГР.ІТ98-2');

for i:=1 to m do

with s[i] do

if (gr=gru) and (g=god) and (n=nom) then

writeln(' ',fa:10,im:10);

c:=readkey

end.

Приклад 37. Скласти програму перерахунку полярних координат точки (R,) у декартові (Х,Y), прийнявши спосіб зображення точки у виді запису з двома полями.

Програма має вид:

program pr37;

uses crt;

label 1;

type polar=record r,fi:real; end;

dekar=record x,y:real; end;

VAR P:POLAR; D:DEKAR; C:CHAR;

BEGIN CLRSCR;

1: WRITE('ПОЛЯРНІ КООРДИНАТИ ТОЧКИ (R,FI):');

READLN(P.R,P.FI);

IF P.R=0 THEN BEGIN

WRITELN('УВЕДЕННЯ ЗАКІНЧЕНЕ');

c:=readkey; exit end;

with p,d do begin

X:=R*COS(FI*PI/180);

Y:=R*SIN(FI*PI/180);

WRITE('ДЕКАРТОВІ КООРДИНАТИ ТОЧКИ (X,Y):');

writeln(x:5:2,’ ‘,y:5:2)

end;

goto 1

end.

Завдання до лабораторної роботи

Складіть програми для розв’язання наступних задач.

Варіант 0n та 3n. Запис має чотири поля, що містять прізвище і дату народження (число, місяць, рік) студента. Напишіть програму, що вводить та друкує цю інформацію і друкує прізвища студентів, що народилися <умова А> (табл. 30).

Таблиця 30

n	Умова А	n	Умова А
1	Після 1970 року	2	У січні
3	15 числа	4	У 1972 році
5	У березні 1973 року	6	10 квітня
7	Улітку	8	Восени
9	Узимку	0	Навесні

Варіант 1n. Обравши спосіб зображення точки на площині у виді запису з двома полями x,y:real, напишіть програму, що визначає <умова Б> (табл. 31).

Таблиця 31

n	Умова Б
1	Площу трикутника, заданого координатами його вершин
2	Периметр трикутника, заданого координатами його вершин
3	Довжини висот трикутника, заданого координатами його вершин
4	Довжини медіан трикутника, заданого координатами його вершин
5	Довжини бісектрис трикутника, заданого координатами його вершин
6	Радіуси вписаного й описаного кола трикутника, заданого координатами його вершин
7	Довжину кола, описаного навколо трикутника, заданого координатами його вершин
8	Площу круга, вписаного в трикутник, заданий координатами його вершин
9	Периметр чотирикутника, заданого координатами його вершин
0	Площу чотирикутника, заданого координатами його вершин

Варіант 2n. Обравши спосіб зображення раціонального числа у виді запису з двома полями

чисельник, знаменник: integer;

напишіть програму, яка позволяє <умова В> (табл. 32).

Таблиця 32

n	Умова В
1	Складати раціональні числа a і b і їхню суму привласнювати раціональному числу c
2	Віднімати раціональні числа a і b і результат привласнювати раціональному числу c
3	Множити раціональні числа a і b і результат привласнювати раціональному числу c

Продовження таблиці 32

n	Умова В
4	Ділити раціональне число a на b і результат привласнювати раціональному числу c
5	Визначати середнє арифметичне раціональних чисел a і b і результат привласнювати раціональному числу c
6	Знаходити абсолютну величину раціонального числа a і результат привласнювати числу b
7	Раціональне число a зводити в цілий ступінь і результат привласнювати числу b
8	Визначати рівність двох раціональних чисел a і b
9	Обчислювати найбільше з масиву раціональних чисел
0	Обчислювати найменше з масиву раціональних чисел