Нужен какойнибудь рисунок на языке турбо-паскаль,)произвольный рисунок,) ,желательно с обьяснением)заранее )ну только рисунок чтобы был не какой нибудь сложный, а простой типо обезьяны))

Ответы

Ответ дал: галка1989

program picture; uses graph; const pathtodriver = 'd: \bp\bgi'; {подставьте свой путь к каталогу с файлами *.bgi}var gd,gm : integer; begin detectgraph(gd, gm); {определим драйвер и режим} initgraph(gd, gm, pathtodriver); {проинициализируем графику} if graphresult < > grok then halt(1); {если ошибка, завершим работу} setviewport(0,0,639,349,clipon); {установим область рисования} clearviewport; {очистим область рисования} {для рисования используем следующие процедуры} {circle(x,y,r) - рисует окружность} {moveto(x,y) - перемещает указатель в заданную точку} {lineto(x,y) - проводит линию от указателя до заданной точки,} { указатель перемещает в конец линии} {rectangle(x1,y1,x2,y2) - рисует прямоугольник} {putpixel(x,y,color) - ставит точку в позиции с заданным цветом} {человечек} circle(170, 225, 5); moveto(170, 230); lineto(170, 260); moveto(160, 240); lineto(170, 250); lineto(180, 240); moveto(160, 270); lineto(170, 260); lineto(180, 270); {домик} moveto(230, 270); lineto(230, 320); lineto(290, 320); lineto(290, 270); lineto(260, 220); lineto(230, 270); lineto(290, 270); moveto(250, 320); lineto(250, 290); lineto(270, 290); lineto(270, 320); putpixel(265, 305, white); {дерево} circle(345, 175, 45); rectangle(340, 220, 350, 320); readln; {задердка для просмотра} closegraph; {выход из графического режима}end.

Спасибо

Ответ дал: Гость

program xxx;

var i, j, k, min : integer;

a: array[1..10, 1..20] of integer;

b: array[1..10] of integer;

begin

for i: =1 to 10 do

for j: =1 to 20 do

readln(a[i,j]);

for i: =1 to 10 do

begin

b[i]: =0;

for j: =1 to 20 do

b[i]: =b[i]+a[i,j];

end;

min: =b[1]; k: =1;

for i: =2 to 10 do

if b[i]< min then begin max: =b[i]; k: =i end;

writeln('наименьшая сумма элементов =', min);

writeln('она находится в строке -', k);

readln

end.

Ответ дал: Гость

я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end.