Documente online.
Zona de administrare documente. Fisierele tale
Am uitat parola x Creaza cont nou
 HomeExploreaza
upload
Upload




СПКМП Отчёты по лабораторным работам По предмету ОА и ЯП.

Rusa




Беляева Р.М.

работа №5

PROGRAM laba1;

USES crt;

TYPE stud=(Marina,Sveta,Janna,Olga,Sasha,Oleg);

VAR male,female,karate,aerob,result: SET OF stud;

n: integer;

Q: char;

BEGIN textcolor(white);

male:=[Marina..Olga];

female:=[Sasha..Oleg];

aerob:=[Janna,Sasha];

karate:=[Sveta..Oleg];

CLRSCR;

REPEAT

textcolor(White);

writeln('

textcolor(white);

writeln('1. Кто занимается аэробикой и каратэ');

writeln('2. Кто не занимается аэробикой');

writeln('3. Есть ли девочки, которые не занимаются каратэ');

writeln('4. Выход');

write('

read(n);

writeln;

IF n=1 THEN result aerob+karate ELSE

IF n=2 THEN result female ELSE

IF n=3 THEN result male ELSE

BEGIN

result:=[];

IF n=4 THEN halt ELSE

write(' '); writeln('!!!');

textcolor(7);

writeln('

END;

textcolor(7);

IF Marina IN result THEN writeln('Marina');

IF Sveta IN result THEN writeln('Sveta');

IF Janna IN result THEN writeln('Janna');

IF Olga IN result THEN writeln('Olga');

IF Sasha IN result THEN writeln('Sasha');

IF Oleg IN result THEN writeln('Oleg');

writeln;

textcolor(LightRed);

writeln(' ESC. Для продолжения нажмите ENTER');

readln;

textcolor(white);

REPEAT Q readkey;

IF ord(Q)=27 THEN

BEGIN

GoToXY(30,19);writeln('

halt;

END;

UNTIL ord(Q)=13;

clrscr

UNTIL n=4;

END.

Sveta

Janna

Olga

Sasha

Oleg

Для выхода нажмите ESC. Для продолжения нажмите ENTER

Sasha

Oleg

Для выхода нажмите ESC. Для продолжения нажмите ENTER

Marina

Sveta

Janna

Olga

Для выхода нажмите ESC. Для продолжения нажмите ENTER

Turbo pascal

Вариант № 5

.

Program lab6;

Type mas=array[1..3] of word;

var sec:longint;t:boolean;

h:mas; ch: char;

Procedure perevod(n:longint;var k:mas);

var i:integer;

begin

k[1]:=n div 3600;

i:=n mod 3600;

k[2]:=i div 60;

k[3]:=i mod 60;

end

begin

repeat

write('Задайте время в секундах: '); readln(sec);

perevod(sec,h);

write(

if (h[1]<>0)and(h[2]<>0)and(h[3]<>0) then

writeln(h[1],' .',h[2],' .',h[3],'

else if (h[1]=0)and(h[2]=0)then writeln(h[3],'

else if (h[1]=0)and(h[3]=0)then writeln(h[2],'

else if h[1]=0 then writeln(h[2],' .',h[3],'

else if h[2]=0 then writeln(h[1],' ',h[3],'

else if h[3]=0 then writeln(h[1],' .',h[2],'

write

readln(ch);

if ch = 'n' then t:=true;

until t;

end

n

TP

Program lab7;

var sec:longint;t:boolean;ch:char;

function perevod1(n:longint):integer;

var k1,k2,k3,k4:word;

begin

k1:=n div 3600;

k2:=n mod 3600;

k3:=k2 div 60;

k4:=k2 mod 60;

if (k1<>0)and(k3<>0)and(k4<>0) then

writeln(' ',k1,' .',k3,' .',k4,'

else if (k1=0)and(k3=0)then writeln(' ',k4,'

else if k1=0 then writeln(' ',k3,' .',k4,'

else if k3=0 then writeln(' ',k1,' .',k4,'

else if k4=0 then writeln(' ',k1,' .',k3,'

perevod1:=1;

end

begin

repeat

write( : '); readln(sec);

perevod1(sec);

write

readln(ch);

if ch= 'n' then t:=true;

until t;

end

2)результат

n

turbo pascal

turbo pascal

ВАРИАНТ № 6

program prim_Fil;

var fp:text;

str:string;

n,kol1,kol2:integer;

Procedure OBR(s:string;var sum1,sum2:integer);

var i:integer;

begin

for i:=1 to length(s) do begin

if s[i] in [' '] then sum1:=sum1+1;

if s[i] in ['a'..'z','A'..'Z'] then sum2:=sum2+1;

end

end

begin

kol1:=0;kol2:=0;

assign(fp,'new.pas');

reset(fp);

while not eof(fp) do begin

readln(fp,str);

OBR(str,kol1,kol2);

writeln(str);

end;

writeln( 'В тексте общее количество букв кирилицы',kol1,' латиницы ',kol2);

readln;

close(fp);

end

begin

[1]:=n div 3600;

i:=n mod 3600;

k[2]:=i div 60;

k[3]:=i mod 60;

end

begin

repeat

write('Задайте время в секундах: '); readln(sec);

perevod(sec,h);

write

if (h[1]<>0)and(h[2]<>0)and(h[3]<>0) then

writeln(h[1],' .',h[2],' .',h[3],'

else if (h[1]=0)and(h[2]=0)then writeln(h[3],'

else if (h[1]=0)and(h[3]=0)then writeln(h[2],'

else if h[1]=0 then writeln(h[2],' .',h[3],'

else if h[2]=0 then writeln(h[1],' ',h[3],'

else if h[3]=0 then writeln(h[1],' .',h[2],'

write

readln(ch);

if ch = 'n' then t:=true;

until t;

end

определить по телефонному справочнику и по имени студента № телефона и адрес.

program prim_Fil2;

Type stud=record

name:string[15]; phone:string[10]; addr:string[30];

end

var fp:file of stud; rec:stud; ch:char;str:string[15]; n,kol1,kol2:integer;

begin

while true do begin

assign(fp,'sprav.txt'); reset(fp);

writeln

writeln('2. Поиск в справочнике');

writeln('3. Выход');

write('Ваш > ');readln(n);

if n=1 then begin

repeat

seek(fp,Filesize(fp));

write(' =>');readln(rec.name);

write(' N =>');readln(rec.phone);

write(' =>');readln(rec.addr);

write(fp,rec);

write(' Y/N');readln(ch);

until ch in ['n','N'] ;

close(fp); end

else if n=2 then begin

assign(fp,'sprav.txt');

reset(fp);

writeln

writeln('==========');

writeln(

writeln('==========');

kol1:=Filesize(fp); repeat

write(' =>');readln(str);

reset(fp);

for n:=1 to kol1 do begin

read(fp,rec);

if str=rec.name then begin

writeln( =>',rec.name);

writeln('N =>',rec.phone);

writeln(' =>',rec.addr);

writeln('==========');

end;

end;

write( Y/N');readln(ch);

until ch in ['n','N','

close(fp);

readln;end else halt

end

end

Ваш > 1

>Соколов Д.

Введите N телефона=>253-12-12

>Невский пр. 12 кв. 28

Ввод продолжать? Y/Nn

Ваш > 2

>Соколов Д.

>Соколов Д.

N телефона=>253-12-12

>Невский пр. 12 кв. 28

Поиск продолжать? Y/N n


Document Info


Accesari: 981
Apreciat: hand-up

Comenteaza documentul:

Nu esti inregistrat
Trebuie sa fii utilizator inregistrat pentru a putea comenta


Creaza cont nou

A fost util?

Daca documentul a fost util si crezi ca merita
sa adaugi un link catre el la tine in site


in pagina web a site-ului tau.




eCoduri.com - coduri postale, contabile, CAEN sau bancare

Politica de confidentialitate | Termenii si conditii de utilizare




Copyright © Contact (SCRIGROUP Int. 2024 )