я плохо разбираюсь в програмирование

вот на основе нескольких примеров (их изучение) я объеденил

две проги дом и поляна была удалена остался фон а от второй взял солнце

а задание у меня такое
В виде мультфильма представить картину медленного захода солнца за линию горизонта с изменением освещения пейзажа.

вот код - и ошибка в программе
(это третия версия уже)

исправил ошибки
постоянный задний фон - фон сменяется

а вот не удалось устранить бесконечность выполнения программы и новая ошибка - солнце оставляет след
также надо всю эту процедуру с посадкой замедлить.

код

Код

uses crt,graph; const a:array [1..9] of byte=(10,9,5,3,11,7,8,10,11); var GrDriver,GrMode,i,g,j:integer; f:word; procedure dom; const cga=1; begin      line(0,300,getmaxX,300);      SetBkColor(f);      i:=50; j:=50;      while i<300 do      begin          setcolor(yellow);           setfillstyle(1,yellow);           fillellipse(i,j,40,40);           delay(2000);           setcolor(f);           setfillstyle(1,f);           fillellipse(i,j,40,40);           i:=i+random(3);           j:=j+random(2);      end; end; procedure fon (f:word); Begin      SetBkColor(f);      SetFillStyle(1,f);      SetColor(f); End; BEGIN      GrDriver:=cGA; GrMode:=cGAHi;      initgraph(GrDriver,GrMode,'c:\pascal\BGI'); {прописать расположение паскаля}      if GraphResult<>grOK then halt(1);      for f:=1 to 9 do         begin               fon(a[f]);               dom;               delay(100);               delay(100);          end; closegraph; end.      readln;

помогите я уже не знаю что делать

ты попробуй программировать под WINDOWS

Цитата(flashg @ 14.8.2005, 22:12)

я плохо разбираюсь в програмирование вот на основе нескольких примеров (их изучение) я объеденил две проги дом и поляна была удалена остался фон а от второй взял солнце а задание у меня такое В виде мультфильма представить картину медленного захода солнца за линию горизонта с изменением освещения пейзажа. вот код - и ошибка в программе (это третия версия уже) исправил ошибки постоянный задний фон - фон сменяется а вот не удалось устранить бесконечность выполнения программы и новая ошибка - солнце оставляет след также надо всю эту процедуру с посадкой замедлить. код Код uses crt,graph; const a:array [1..9] of byte=(10,9,5,3,11,7,8,10,11); var GrDriver,GrMode,i,g,j:integer; f:word; procedure dom; const cga=1; begin      line(0,300,getmaxX,300);      SetBkColor(f);      i:=50; j:=50;      while i<300 do      begin          setcolor(yellow);           setfillstyle(1,yellow);           fillellipse(i,j,40,40);           delay(2000);           setcolor(f);           setfillstyle(1,f);           fillellipse(i,j,40,40);           i:=i+random(3);           j:=j+random(2);      end; end; procedure fon (f:word); Begin      SetBkColor(f);      SetFillStyle(1,f);      SetColor(f); End; BEGIN      GrDriver:=cGA; GrMode:=cGAHi;      initgraph(GrDriver,GrMode,'c:\pascal\BGI'); {прописать расположение паскаля}      if GraphResult<>grOK then halt(1);      for f:=1 to 9 do         begin               fon(a[f]);               dom;               delay(100);               delay(100);          end; closegraph; end.      readln; помогите я уже не знаю что делать

Слухай, для уменьшения скорость твоего солнца тебе нужно кое-что исправить
Delay(100) например на Delay(60000), я сам программирую на паскале и я уже с этим сталкивался. А след от солнца можно убрать только другим способом дин. движения - Копирование в буфер фигуры, потом удаление существующей, затем вставление этой фигуры в другие координаты! Удачи пиши с вопросами [email protected]

Цитата(programs @ 7.9.2005, 20:22)

Слухай, для уменьшения скорость твоего солнца тебе нужно кое-что исправить Delay(100) например на Delay(60000), я сам программирую на паскале и я уже с этим сталкивался.

Это исправляется заменой модуля Crt.