Контрольная работа № 2. Самара 2012. Program Slov1;. Задание 2.. program zadacha2;

Стр 1 из 5Следующая ⇒

Минестерство образования и науки РФ

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«САМАРСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ»

Кафедра «Вычислительная техника»

Контрольная работа № 2

по тему: «Програмирование на ЯВУ»

Выполнил студент 2 курса ЗФ-7

Гелетин М.А.

Проверил : Ефимушкина Н.В.

Самара 2012

Задание 1:

Program Slov1;

Const

Sogl = 'qQwWrRtTpPsSdDfFgGhHkKlLzZxXcCvVbBnNmM';

Type

AOS = Array [1..70] of String;

var

St: String;

Words: AOS;

N: integer;

i: integer;

Res: Integer;

Function MustBePrinted(S: String) : boolean ;

begin

MustBePrinted := (Pos(S[1], Sogl) <> 0 );

end;

function GetWords(S: String; var Arr: AOS): integer;

var

i,Len,t:word;

begin

Len := Length(S);

t:=1;

i:=1;

Arr[t]:='';

while i<=Len do

if S[i] <> ' ' then

begin

Arr[t] := Arr[t] + S[i];

inc(i);

end

Else

begin

inc(t);

Arr[t] := '';

while (S[i] = ' ') and (i <= Len) do

inc(i);

end;

if Arr[t] = '' then

GetWords:=t-1

else

GetWords:=t;

end;

Begin

write('Vvedite predloghenie -> ');

readln(St);

N:= GetWords(St, Words);

Res := 0;

writeln('Rezultat:');

writeln;

for i := 1 to N do

if MustBePrinted(Words[i]) then

begin

inc(Res);

writeln(Words[i]);

end;

writeln('_______________________________');

write('Wsego slov: ');

writeln(Res);

readln;

End.

Задание 2.

program zadacha2;

type

masslov = array [1..80] of string;

var

slovo: masslov;

predloj, maxslovo: string;

kolslov,dl: integer;

x,y:integer;

procedure slova (predloj: string; var kolslov:integer; var slovo: masslov);

var x:integer;

begin

x:=1;

kolslov:=1;

while x<= length(predloj) do

if predloj[x] <> ' ' then

begin

slovo[kolslov]:=slovo[kolslov] + predloj[x];

x:=x+1;

end

else

begin

kolslov:=kolslov+1;

while (predloj[x]=' ')and(x<=length(predloj)) do

x:=x+1;

end;

if predloj[length(predloj)] = ' ' then

kolslov:=kolslov-1;

end;

begin

writeln('vvedite predlojenie');

readln(predloj);

slova(predloj, kolslov, slovo);

maxslovo:='';

for x:=1 to kolslov do

if pos(slovo[x,1],'0123456789')=0 then slovo[x]:='';

for x:=1 to kolslov do

if length(slovo[x]) > length(maxslovo) then maxslovo:=slovo[x];

for x:=1 to kolslov do

if (length(slovo[x]) = length(maxslovo))and(slovo[x] > maxslovo) then maxslovo:=slovo[x];

writeln('');

writeln('maximalnoe 4islo v predlojenii :');

writeln(maxslovo);

writeln('ego dlinna = ',length(maxslovo));

readln;

end.

12 3 4 5 Следующая ⇒