scharhan
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
program glavn;
uses crt,Hord,Manama,Runge;
var e1:THord; m1:TManama; r1:TRunge;
buf:string;
begin
repeat
clrscr;
writeln(' ');
writeln(' MENU ');
writeln(' ');
writeln(' 1 - Метод хорд ');
writeln(' 2 - Умножение матрицы на матрицу ');
writeln(' 3- Метод Рунге-Кутта ');
writeln(' 4- Выход ');
writeln(' ');
case readkey of
'1':begin
clrscr;
e1.metodhord;
assign(e1.f,'d:\File.txt');
reset(e1.f);
while not eof (e1.f) do
readln(e1.f,buf);
writeln(buf);
close(e1.f);
readkey;
end;
'2':begin
clrscr;
m1.manama;
assign(m1.f,'d:\File.txt');
reset(m1.f);
while not eof (m1.f) do
begin
for m1.i:=1 to 200 do
begin
read(m1.f,buf);
write(buf);
end;
readln(m1.f,buf);
writeln;
end;
close(m1.f);
readkey;
end;
'3':begin
clrscr;
r1.rk;
assign(r1.f,'d:\File.txt');
reset(r1.f);
while not eof (r1.f) do
begin
for r1.i:=1 to 200 do
begin
read(r1.f,buf);
write(buf);
end;
readln(r1.f,buf);
writeln;
end;
close(r1.f);
readkey;
end;
'4':begin
close();
readkey;
end;
end;
writeln;
writeln('Повтор (y/n)');
until readkey='n';
end. |
Всего записей: 27 | Зарегистр. 26-04-2007 | Отправлено: 21:19 04-05-2008 | Исправлено: scharhan, 08:25 05-05-2008 |
|
