Информатика / Лаба 5 по информатике

Пермский Государственный Технический Университет

Отчет по информатике на тему:

Массивы и множества.

Работу выполнил студент

группы АТ-06-2

Старцев Александр.

Проверил: Кычкин А. В.

Пермь 2006.

Цель работы: Создать таблицу 20×10 случайных слов длиной от 2 до 7 символов и выделить другим цветом слова удовлетворяющие условиям:

1)Слово имеет более 20% гласных букв

2)Слово принадлежит столбцу в котором есть хотя бы одно слово из 4 -х букв.

Текст программы:

Program lab5;

uses crt;

const n=10; m=20; l=7;

var i1,i2,i3,l1,s1:integer;

mas: array [1..n,1..m,1..L] of char;

lens: array [1..n,1..m] of integer; {dlina slova}

stolb: array [1..n] of boolean; {est ili ne est 4 bukvennye slova}

gcount: array [1..n,1..m] of integer; {kolichestvo glasnyx}

GLASNYE: set of char;

Begin

clrscr;

Randomize;

GLASNYE := ['A','E','Y','U','I','O'];

for i1:=1 to n do

for i2:=1 to m do begin

L1 := 2+random(l-1);

lens[i1,i2] := L1;

gcount[i1,i2] := 0;

if L1=4 then stolb[i1] := True;

for i3:=1 to L1 do begin

mas[i1,i2,i3] := CHR(65 + random(26));

if mas[i1,i2,i3] in GLASNYE then

gcount[i1,i2] := gcount[i1,i2] + 1;

end;

for i3:=L1+1 to L do

mas[i1,i2,i3] := ' ';

end;

window(1,1,80,30);

textbackground(1);

for i2:=1 to m do begin

for i1:=1 to n do begin

if (gcount[i1,i2]/lens[i1,i2]>=0.2) and (stolb[i1]) then begin

textcolor(6);

s1:=s1+1;

end

else

textcolor(15);

for i3:=1 to L do

if (i1=n) and (i3=L) then

writeln(mas[i1,i2,i3])

else

write(mas[i1,i2,i3]);

if i1<n then

write(' ');

end;

end;

textcolor(15);

textbackground(0);

writeln( 'kol-vo slov=',S1);

readln;

End.

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