модуль srt не найден в паскале как исправить вот код
10-11 класс
|
program prim_3;
uses srt;
Label 1;
const
Sob='Вам доступны базы';
var
p:integer;
otv:0..1;
begin
1:clrscr;
Writeln ('Введите ваш пароль');
Readln (p);
clrscr;
gotoxy (10,8);
case p of
1747: Writeln (sob,' A,B,C');
3331,7922: Writeln (sob,' B,C');
8927..9455: Writeln (sob,' C');
else
Writeln ('У вас нет права доступа к базам данных');
end;
gotoxy(15,10);
Writeln ('Будете продолжать работу ''Да-1,Нет-0' );
Readln (otv);
if otv=1 then goto 1;
end.
не srt, а crt ! в остальном вроде нормально
Другие вопросы из категории
Читайте также
два модуля. Первый должен содержать ряд необходимых тригонометрических функций,
не реализованных в Паскале (например, Tg(x), Ctg(x)
и др.) Второй модуль должен содержать функцию для возведения в степень
натурального n и действительного x подсчитать сумму S=-1/2 + 1/2^2 - 1/2^3 +...+(-1)^n / 2^n
program summa;
uses crt;
var n,i:integer; s:real;
begin clrscr;
writeln ('vvedite n');
readln (n);
s:=0;
for i:=1 to n do
s:=s+exp(ln(-1)*i)/exp(ln(2)*i);
writeln ('s=', s);
readln
end.
var n,k,i,t:integer; f:text;
begin
assign(f,'f1.txt');
rewrite(f);
readln (n);
for i:=2 to n do begin
t:=0;
for k:=2 to n do
if i mod k=0 then t:=t+1;
if t=1 then write(f,i:3);
end;
close(f);
end.