Program umnochen1;
uses crt;
var a,b,c,d:integer;
BEGIN
a:=random(100);
b:=random(100);
c:=a*b;
write(a,'x',b,'=');
read(d);
if (d=c) then begin
textcolor(2);
writeln('Првильно!')
end
else
begin
textcolor(4);
writeln('Вы ошиблись!');
end;
<span>end.</span>
Program mili;
const a=1.603; b='км'; с='мили';
var k:integer; m:real;
begin
writeln(b:5,c:7); writeln;
for k:=l to 10 do
begin
m:=k/a; writeln(k:5,m:6:3)
end
end.
Графический файл измеряется в Мбайтах, обычно от 1 до 10
Большой файл измеряется в Гбайтах, обычно от 1, реже от 500 Мбайт
procedure Pause(i:integer);
begin
if i=1
then writeln('нажать enter')
else writeln('press enter');
readln;
end;
begin
Pause(1);
Pause(2);
end.
Результат:
нажать enter
press enter
Program primer;
Var f,g:text;
I,n,k: integer; S,a,data: string; Begin
Assign(f,'F.txt');
Assign(g,'G.txt');
rewrite(f);
Writeln('Кол-во книг? ');
readln(n);
for i:=1 to n do begin
writeln('Фамилия автора, название и год издания книги № ',i,' ?');
readln(s);
writeln(f,s); // в фаил f забиваем данные
end;
close(f);
Writeln('Укажите автора для поиска ');
readln(a);
Rewrite(g);
Reset(f);
For i:=1 to 2 do begin
Readln(f,s);
if (pos(a,s)<>0) then begin //ищем автора
data:='';
for k:=length(s) downto 1 do begin
if (s[k]=' ') then begin
data:=data+copy(s,k+1,length(s)); //смотрим дату
break;
end;
end;
end;
if (strtoint(data) >= 1980) then writeln(g,s); //сравниваем дату
end;
close(f);
close(g);
end.
<span>ABC Pascal
</span>