Реферат: Обработка экономической информации средствами языка Pascal

end;

Вывод на экран окружности, уменьшающей свой радиус.

for i:=399 downto 0 do

begin

setcolor(i);

сircle(322,250,i);

delay(10);

end;

{----------end_krugi---------}

Закрытие граф. режима

closegraph;

Завершение составного оператора begin…end

end;

Завершение процедуры вывода заставки

end;

Процедура вывода сообщения об ошибке – error :

begin

Обнуление счетчика

i:=0;

Цикл вывода сообщения об ошибке, пока i не равно 5

repeat

textmode(Co80);

clrscr;

gotoxy(24,8);textcolor(15);

write('ВЫ ВВЕЛИ НЕПРАВИЛЬНЫЙ НОМЕР');

звук, при выводе сообщения

sound(185);delay(100);nosound;

clrscr;

gotoxy(24,8);textcolor(7);