Question

Ребят , нужна написанная программа какого - нибудь рисунка на турбо Паскале ( дом и дерево не нужно) Спасайте

Answer 1

Делал в PascalABC, но в Turbo тоже должно работать. Если не работает, попробуйте перед "End." вставить "Readln".

Program Kisa;
Begin     
 Writeln('___________________$$____________$$');      Writeln('__________________$___$________$___$');      Writeln('__________________$_____$$$$$$_____$');     Writeln('__________________$____sss___sss____$');      Writeln('__________________$____іі_____іі_____$');      Writeln('_________________$_______$$$________$');      Writeln('_____$$$$$$$$_____$_______$________$');      Writeln('___$$________$_______$$_________$$');      Writeln('____$_________$_____$___$$$$$$___$');      Writeln('_______$______$____$__$________$__$');      Writeln('_______$_____$____$__$__________$__$');      Writeln('______$____$___$$$$__$__________$__$$$$');      Writeln('_____$___$____$____$__$________$___$___$');      Writeln('_____$__$_____$____$__$________$__$____$');      Writeln('____$___$______$____$__$____$_$__$____$');      Writeln('______$__$______$____$___$_$_____$___$');      Writeln('_______$___$$$$$_$___$___$_$____$___$');      Writeln('__________$$$$$_$____$____$_____$____$');      Writeln('________________$$$_$_____$______$_$$$');      Writeln('_____________________$$$$___$$$$$');
End.

Answer 2

Конечно, я могу помочь вам с написанием программы для рисунка на Turbo Pascal. Вот пример программы, которая создает простой рисунок солнца:

program DrawSun;
uses graph;

var
  gd, gm: smallint;

procedure DrawSun;
var
  i, x, y: smallint;
begin
  x := getmaxx div 2;
  y := getmaxy div 2;

setcolor(yellow);
  setfillstyle(solidfill, yellow);
  fillellipse(x, y, 100, 100);

setcolor(red);
  setfillstyle(solidfill, red);

for i := 0 to 7 do
    pieslice(x, y, i * 45, (i + 1) * 45, 80);

setcolor(white);
  setfillstyle(solidfill, white);
  fillellipse(x, y, 20, 20);
end;

begin
  gd := detect;
  initgraph(gd, gm, '');

DrawSun;

readln;
  closegraph;
end.

Это программа, которая использует графическую библиотеку Turbo Pascal для создания рисунка солнца. Она начинается с инициализации графической системы и определения размеров экрана. Затем она определяет процедуру DrawSun, которая рисует солнце. В этой процедуре используются различные функции и процедуры графической библиотеки для настройки цвета, заполнения и отрисовки эллипсов и секторов. После этого программа вызывает процедуру DrawSun и ожидает ввода пользователя, прежде чем закрыть графическое окно.

Вы можете использовать эту программу в среде Turbo Pascal, чтобы увидеть, как она рисует солнце на экране. Вы также можете изменить код программы, чтобы создать свой собственный рисунок.