Else begin

Mozno:= false;

Break;

end;

end;

if Mozno then Writeln(Kod('Mojno')) else Writeln(Kod('Nelbza'));

end;

Var a:mas; s:string;

Begin

Vvod(a);

Write(Kod('vedite slovo kotoroe bydem proveratb: '));

Readln(s);

Proverka(a,s);

readln;

end.

Лабораторная работа №17.

Program proga;

uses crt;

Const

sogl: array [1..10] of Char=('к','п','с','т','ф','х','ц','ч','ш','щ');

Var

s:string;

i,j,n:byte;

b:boolean;

Begin

Clrscr;

writeln('Введите текст:');

readln(s);

n:=0;

for i:=1 to 10 do

Begin

b:=true;j:=0;

Repeat

inc(j);

if s[j]=sogl[i] then b:=false;

until (b=false) or (j=length(s));

Ifb then

Begin

inc(n);

write(' '+sogl[i]);

end;

end;

writeln;

if n=0 then writeln('Таких букв нет!');

readln;

end.

Лабораторная работа№18.

uses crt;

Type

sklad= record

naimtov:string [30];

kolvo:integer;

dnixr:integer;

cena: integer;

srokxran: integer;

cenapos: integer;

obwstoim:integer;

obwstoimpos:integer;

end;

var f: file of sklad;

x:sklad; y:integer;

procedure vvod;

var i,n:integer;

Begin

clrscr;

write ('vvedite dannue');

readln (n);

{$I-}

reset (f);

{SI+}

Ifio result <> 0 thenrewrite (f) else

seek (f,filesize(f));

for i:=1 to n do

Begin

write ('naimenovanie-'); readln (x.naimtov);

write ('koli4estvo-'); readln (x.kolvo);

write ('srok xranenia-'); readln (x.srokxran);

write ('dni xranenia-'); readln (x.dnixr);

write ('cena-'); readln (x.cena);

write (f,x);

end;

close (f);

writeln ('zapis vupolnena');

readkey;

end;

procedure vivod;

Begin

clrscr;

writeln ('spisok tovarov');

reset (f);

writeln ('naimenovanie | kolvo | srokxran | cena | mesacuxr');

While noteof (f) do begin

read (f,x);

writeln (x.naimtov:10,' ',x.kolvo,' ',x.srokxran,' ',x.cena,' ',x.dnixr);

end; close (f);

readkey;

end;

procedure obwstoim;

var i,s,k,n:integer;

Begin

writeln ('vvedite naimenovanie tovara');

readln (x.naimtov);

s:=x.obwstoim;

reset (f);

While noteof(f) do

Begin

read(f,x);

s:=x.kolvo*x.cena;

writeln (x.naimtov,' ',x.kolvo,' ',x.cena,' ',s);

end;

readkey;

end;

procedure ycenki;

var s,sobw:real;n,m:integer; tovar:string[20];

Begin

readln (tovar);

writeln ('vvedite n');

readln (n);

writeln ('vvedite m');

readln (m);

reset (f);

Sobw:=x.obwstoimpos;

s:=x.cenapos;