Построение таблици в среде Borland pascal.

[Madera]

поставь abc pascal он всегда пригодится?

[arrowsf1]

почти закончил. пошел покурю
возник вопрос у тя паскаль по дос есть,а то рамочку видно только в нем

скопируй и посмотри,что получилось пока не всё чуть чуть осталось- больно курить охото

uses crt;
const n=2;
var
i:integer;
s,u:array[1..n] of string;
o,l:array[1..n]of integer;
begin
writeln('input FIOs');
for i:=1 to n do readln(s[i]);
writeln('input doljnosti');
for i:=1 to n do readln(u[i]);
writeln('input razrad');
for i:=1 to n do readln(o[i]);
writeln('input staj');
for i:=1 to n do readln(l[i]);



for i:=11 to 60 do begin
gotoxy(i,5);write(#196);
gotoxy(i,5+n+1);write(#196);
end;
for i:=6 to n+5 do begin
gotoxy(10,i);write(#179);
gotoxy(30,i);write(#179);
gotoxy(50,i);write(#179);
gotoxy(55,i);write(#179);
gotoxy(60,i);write(#179);
end;
gotoxy(10,5);write(#218);
gotoxy(30,5);write(#194);
readln(i);
end.

программа работает только в досе

uses crt;
const n=5;
var
i:integer;
s,u:array[1..n] of string;
o,l:array[1..n]of integer;
begin
writeln('input FIOs');
for i:=1 to n do readln(s[i]);
writeln('input doljnosti');
for i:=1 to n do readln(u[i]);
writeln('input razrad');
for i:=1 to n do readln(o[i]);
writeln('input staj');
for i:=1 to n do readln(l[i]);
{ochistit ekran}


for i:=11 to 60 do begin
gotoxy(i,5);write(#196);
gotoxy(i,5+n+2);write(#196);
end;
for i:=6 to n+5+1 do begin
gotoxy(10,i);write(#179);
gotoxy(30,i);write(#179);
gotoxy(50,i);write(#179);
gotoxy(55,i);write(#179);
gotoxy(60,i);write(#179);
end;
gotoxy(10,5);write(#218);
gotoxy(30,5);write(#194);
gotoxy(50,5);write(#194);
gotoxy(55,5);write(#194);
gotoxy(60,5);write(#191);
gotoxy(10,5+n+2);write(#192);
gotoxy(30,5+n+2);write(#193);
gotoxy(50,5+n+2);write(#193);
gotoxy(55,5+n+2);write(#193);
gotoxy(60,5+n+2);write(#217);
gotoxy(56,6);write('old:');
gotoxy(51,6);write('#');
gotoxy(31,6);write('doljnost:');
gotoxy(11,6);write('FIO:');
for i:=1 to n do begin
gotoxy(11,6+i);write(s[i]);
gotoxy(31,6+i);write(u[i]);
gotoxy(51,6+i);write(o[i]);
gotoxy(56,6+i);write(l[i]);
end;
readln(i);
end.

по середине вставь оператор очищения экрана клс забыл как он пишется в паскале

пошли мне письмо на arrowsf1@mail.ru я вышлю свой номер телефона в ответ

у тя по дос????
праверь на абс там всё окей


______________
1. Не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Редактировать" ("Правка")
и дописывайте в своё сообщение, что Вы хотели добавить!


2. Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

МОДЕРАРАТОР.

[Madera]

на abc рамка какаято странная.

[arrowsf1]

Сообщение от Madera

на abc рамка какаято странная.

нужен паскаль именно под дос, а так всё норм

[arrowsf1]

нажми мне в форуме на весы, а то у мя репутация маленькая

[Vanta11a]

Открою страшную тайну. Madera, насколько я помню, не может менять репутацию другим пользователям.