ALTE DOCUMENTE |
Беляева Р.М.
работа №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:=[
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('
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
|