Вернуться   Компьютерный форум > Компьютеры > Программы > Программирование
 
 
Опции темы
Старый 22.02.2016, 20:19   #1 (ссылка)
Новичок
 
Регистрация: 21.02.2016
Сообщений: 2
Репутация: 5
Post Помогите найти ошибку.

Program z1;
uses crt,GraphABC;
var karta,R,i,y0,l,g,d,f,e: integer;
A:real;
const c: array[1..10] of real = (17.3,22,22.3,24.6,26,36.1,37.71,40.3,52.8,79.6);
b: array[1..10] of string = ('Нарочь','Освейское','Червоное','Лукомльское','Др ивяты','Выгоновское','Нещедро','Свирь','Снуды','Че рное');
begin
SetWindowSize(1020,980);
karta:=LoadPicture('belarus.jpg');
DrawPicture(karta,10,10,400,350);
setBrushcolor(clBlue);
A:=79.6; R:=round(sqrt(A/pi)); Circle(200,150,R);
A:=52.8; R:=round(sqrt(A/pi)); Circle(280,70,R);
A:=40.3; R:=round(sqrt(A/pi)); Circle(210,320,R);
A:=37.71; R:=round(sqrt(A/pi)); Circle(285,105,R);
A:=36.1; R:=round(sqrt(A/pi)); Circle(250,60,R);
A:=26; R:=round(sqrt(A/pi)); Circle(100,270,R);
A:=24.6; R:=round(sqrt(A/pi)); Circle(200,80,R);
A:=22.3; R:=round(sqrt(A/pi)); Circle(240,180,R);
A:=22; R:=round(sqrt(A/pi)); Circle(250,100,R);
A:=17.3; R:=round(sqrt(A/pi)); Circle(130,280,R);
for i:=1 to 10 do
begin
setbrushcolor(clblue);
setfontcolor(clwhite);
setfontsize(10);
setfontstyle(bsClear);
Textout(-60+60*i,465,b[i]);
end;
For i:=1 to 10 do
begin
setBrushcolor(rgb(random(255),random(255),random(2 55)));
rectangle(-60+60*i,465,60+60*i,360+round(c[i]));
end;
setbrushcolor(clWhite);
for i:=1 to 10 do
y0:=10;
y0:=y0+i*30;
setfontsize(10);
rectangle(500,y0,520,y0+30);
textout(502,y0+5,l[i]);
rectangle(520,y0,630,y0+30);
textout(530,y0+5,g[i]);
rectangle(630,y0,800,y0+30);
textout(640,y0+5,d[i]);
rectangle(800,y0,920,y0+30);
textout(810,y0+5,n[i]);
rectangle(920,y0,1030,y0+30);
textout(930,y0+5,y[i]);
rectangle(920,y0,960,y0+30);
textout(930,y0+5,y[i]);
rectangle(980,y0,1040,y0+30);
textout(990,y0+5,f[i]);
rectangle(1040,y0,1090,y0+30);
textout(1050,y0+5,e[i]);
end;
end.
Walten вне форума  
Ads
 


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите устранить ошибку. boiko Windows 8 1 13.04.2013 18:09
Помогите найти дрова на веб-камеру(((( не могу найти(( boosiki Драйвера 5 23.04.2012 14:07
ассемблер. удаление элемента массива (помогите найти ошибку) СРОЧНО,ДО ЗАВТРА!! SchwarzeWolfin Программирование 0 23.12.2011 18:11
помогите найти ошибку (Qt) SchwarzeWolfin Программирование 0 25.10.2011 20:18
немогу найти оригинальные драйвера для видеокарты! помогите найти! shmega549 Драйвера 7 02.06.2011 15:19


Текущее время: 15:14. Часовой пояс GMT +4. Powered by vBulletin® Version 5.8.9
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.