Занятие №22: Программирование задач с использованием динамических переменных.

1. Составить программу, которая вводит в память 12 целых чисел и находит количество элементов списка, кратных 3.

p rogram prac1;

type

dat=record

p:^dat;

d:integer;

end;

var

i,c:integer;

point,beg:^dat;

begin

readln(i);

new(beg);

point:=beg;

if i>=1 then

begin

readln(point^.d);

if point^.d mod 3 = 0 then inc(c);

end;

while i>=2 do

begin

new(point^.p);

point:=point^.p;

readln(point^.d);

if point^.d mod 3 = 0 then inc(c);

dec(i);

end;

point^.p:=nil;

writeln(c);

readln;

end.

Занятие №23: Создание оконного интерфейса

1. Вычислить произведение трёх наименьших элементов отсортированного по возрастанию массива f(14)

program prac1;

uses Crt;

const N=14;

type mas=array [1..N] of real;

var x:mas; i:integer; p:real;

begin

clrscr;

randomize;

window(20,2,60,6);

clrscr;

gotoxy(5,2); writeln('programma dlya rascheta proizvedenia');

gotoxy(5,4);writeln('vipolnil kovrigin anatoliy');

delay(500);

window(13,8,67,19);

clrscr;

gotoxy(20,6);

writeln('ishodniy massiv');

for i:=1 to N do

begin

p:=p+0.1+random(49)/10;

x[i]:=p;

write(' x',i,'=',x[i]:0:1);

if i mod 5 =0 then writeln;

end;

p:=1;

for i:=1 to 3 do p:=p*x[i];

delay(500);

window(20,21,60,23);

clrscr;

gotoxy(10,2);

writeln('proizvedenie=',p:0:3);

readkey;

e nd.

Занятие №24: Создание интерфейса в виде меню

1. Создать прогамму, которая исполняет вывод на экран дисплея меню согласно предложенному варианту.

Вариант	Содержание задачи
8-15	Разработать программу вывода на экран вертикального меню

program prac1;

uses CRT;

type

Massiv = array[1..1000] of integer;

var i,x,y,r:integer;

button:char;

Menu:array[1..4] of string;

procedure MenuView;

begin

Window(1,1,80,25);

TextBackGround(Black);

TextColor(Green);

ClrScr;

GoToXY(36,4);

writeln('< Menu >');

GoToXY(36,10);

write('Vipolnil Kovrigin Anatoliy');

x:=35; y:=5;

repeat

for i:=1 to 4 do

begin

GoToXY(x,y+i);

if i = r then

begin

TextColor(White);

TextBackGround(Green);

end

else

begin

TextColor(Green);

TextBackGround(Black);

end;

write(Menu[i]);

end;

repeat

button := readkey;

until button in [#13, #72, #80];

case button of

#72: begin

if r=1 then r:=4

else dec(r);

end;

#80: begin

if r=4 then r:=1

else inc(r);

end;

end;

until button = #13;

end;

begin

Menu[1]:=' rezhim 1 ';

Menu[2]:=' rezhim 2 ';

Menu[3]:=' rezhim 3 ';

Menu[4]:=' Exit ';

r:=1;

repeat

MenuView;

ClrScr;

case r of

1: begin

Window(1,1,80,25);

TextBackGround(0);

TextColor(2);

ClrScr;

write('rezhim 1');

readln;

end;

2: begin

Window(1,1,80,25);

TextBackGround(0);

TextColor(2);

ClrScr;

write('rezhim 2');

readln;

end;

3: begin

Window(1,1,80,25);

TextBackGround(0);

TextColor(2);

ClrScr;

write('rezhim 3');

readln;

end;

end;

until r=4;

end.