Задача

[Анюта01]

помогите решить пожалуйста

[Чистый листочек]

нужно в ворде талицу сделать?

[Nikolos]

Анюта01,что сделать-то надо???

[Анюта01]

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

Анюта01,что сделать-то надо???

нужно составить эту таблицу в паскале

[Qiker]

Анюта01, Это задача С4 на ЕГЭ по информатике.
Выложите условие задачи

[Анюта01]

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

Анюта01, Это задача С4 на ЕГЭ по информатике.
Выложите условие задачи

нам дали вот этот рисунок ( указанный выше) и сказали решайте, какое еще может быть условие

нужно составить программу в паскале которая будет отображать эту таблицу

[Анюта01]

неужели не кто не может помочь???(((

[Qiker]

Анюта01, вот решенная задача, но она решена в pascalАВС, если не подойдет, то пишите сюда.

program gg;
uses graphABC;
var x1,y1,x2,y2:integer;
begin
setwindowsize(400,440);
Rectangle(1,1,400,440);
Line(100,0,100,440);
line(100,50,400,50);
line(200,50,200,440);
line(300,50,300,440);
line(0,80,400,80);
line(0,100,400,100);textout(10,82,'1');
textout(20,20,'Ученик');
textout(220,20,'Предмет');
textout(220,60,'2');
textout(120,60,'1');
textout(320,60,'3');
line(0,120,400,120);textout(10,102,'2');
line(0,140,400,140);textout(10,122,'3');
line(0,160,400,160);textout(10,142,'4');
line(0,180,400,180);textout(10,162,'5');
line(0,200,400,200);textout(10,182,'6');
line(0,220,400,220);textout(10,202,'7');
line(0,240,400,240);textout(10,222,'8');
line(0,260,400,260);textout(10,242,'9');
line(0,280,400,280);textout(10,262,'10');
line(0,300,400,300);textout(10,282,'11');
line(0,320,400,320);textout(10,302,'12');
line(0,340,400,340);textout(10,322,'13');
line(0,360,400,360);textout(10,342,'14');
line(0,380,400,380);textout(10,362,'15');
line(0,400,400,400);textout(10,382,'16');
line(0,420,400,420);textout(10,402,'17');
line(0,440,400,440);textout(10,422,'18');
end.


PS В эту задачу ничего нельзя вводить(я понял, что вам просто рисунок такой нужен)! Если нужно еще и вводить(имена, фамилия), то тоже напишите

[Анюта01]

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

Qiker

на паскале ABC все работает, есть всего лишь небольшой недочет с номерованием строк 1..18 ну это я сама исправлю. А вот на турбо паскале неверный идентификатор пишет. мы турбо паскаль проходим, скорее всего задание выполненнон на АВС неподойдет((

Переведи на язык турбо паскаля пожалуйста)

[Qiker]

Анюта01, вот сама программа http://exfile.ru/90287
вот исходники http://exfile.ru/90288

вот текст программы

program gg;
uses crt, graph;
var gd,gm:integer;
begin
gd:=9;
gm:=2;
initgraph(gd,gm,'BGI\');
setcolor(2);
Rectangle(1,1,400,440);
Line(100,0,100,440);
line(100,50,400,50);
line(200,50,200,440);
line(300,50,300,440);
line(0,80,400,80);
line(0,100,400,100);outtextxy(10,82,'1');
outtextxy(20,20,'u4eniki');
outtextxy(220,20,'predmeti');
outtextxy(220,60,'2');
outtextxy(120,60,'1');
outtextxy(320,60,'3');
line(0,120,400,120);outtextxy(10,102,'2');
line(0,140,400,140);outtextxy(10,122,'3');
line(0,160,400,160);outtextxy(10,142,'4');
line(0,180,400,180);outtextxy(10,162,'5');
line(0,200,400,200);outtextxy(10,182,'6');
line(0,220,400,220);outtextxy(10,202,'7');
line(0,240,400,240);outtextxy(10,222,'8');
line(0,260,400,260);outtextxy(10,242,'9');
line(0,280,400,280);outtextxy(10,262,'10');
line(0,300,400,300);outtextxy(10,282,'11');
line(0,320,400,320);outtextxy(10,302,'12');
line(0,340,400,340);outtextxy(10,322,'13');
line(0,360,400,360);outtextxy(10,342,'14');
line(0,380,400,380);outtextxy(10,362,'15');
line(0,400,400,400);outtextxy(10,382,'16');
line(0,420,400,420);outtextxy(10,402,'17');
line(0,440,400,440);outtextxy(10,422,'18');
readln;
end.


зы я только не знаю как русские буквы писать в паскале)