С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Steha
0 / 0 / 0
Регистрация: 14.04.2013
Сообщений: 9
1

Необходимо отредактировать исходник

17.04.2013, 13:45. Просмотров 451. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста!!!
Есть программа, но на PascalABC она не идет Необходимо оптимизировать под PascalABC). Заранее спасибо.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses dos, crt, graph;
const N=100; M=90; s=18; r=10; h=10;
var y, yy, u :
array [0..N+1, 0..M+1] of integer;
ii, jj, j, k, Gd, Gm: integer; i: Longint;
label met;
begin
Gd:= Detect;
inputGraph (Gd, Gm, 'c:\bp\bri');
setcolor(8); setbkolor(15);
{ y[50,50] :=1;} { одиночная волна}
(*for j:=1 to 40 do {однорукавная волна]
for i:=1 to s do y[50+i, j] :=i; *)
(*for j:=1 to M do {двурукавная волна]
for i:=1 to s do begin y[50+i, j] :=i;
if j>40 then y[50+i,j] :=14-i; end; *)
repeat k:=k+1;
if k mod 20=0 then y[60,40] :=1 {осцилятор 1}
if k mod 30=0 then y[20,30] :=1 {осцилятор 2}
for i:=1 to N do for j:=1 to M do begin
if (y[i,j]>0) and (y[i,j]<s) then yy[i,j] :=y[i,j]+1;
if y[i,j]=s then begin yy[i,j]:=0; u[i,j] :=0; end;
if y[i,j] <> 0 then goto met;
for ii :=i-1 to i+1 do for jj :=j-1 to j+1 do begin
if (y[ii,jj]>0) and (y[ii,jj]<=r) then u[i,j] :=u[i,j]+1;
end;  cleardevice;
for i:=21 to 70 do begin
yy[i,60] :=0; yy[i,61] :=0; end;
rectangle (6*21-10, 500-6*60, 6*70-10, 500-6*61);
for i:=1 to N do For j :=1 to M do begin
y[i;j] :=yy[i,j]; setcolor (12);
if (y[i,j]>=1) and (y[i,j]<=r) then begin
circle(6*i-10, 500-6*j, 3);
circle(6*i-10, 500-6*j, 2);
circle(6*i-10, 500-6*j, 1);
end;
setcolor (8);
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.04.2013, 13:45
Ответы с готовыми решениями:

Исходник из exe
Возможно ли имея екзешник проги на паскале просмотреть ее код?

Отредактировать программу
Задание. Даны сведения о грузах G (их масса 0…50т). 1) Определить число...

Отредактировать процедуру !
procedure Addrecord; var rez:integer; ch:char; begin while rez&lt;&gt;0 do begin...

Киньте исходник Сапёр
Киньте пожалуйста исходник игры Сапёр.

Отредактировать квадратное уравнение
Есть код квадратногоуравнения: program kvadratnoe_uravnenie; var a, b,...

3
bairamka
0 / 0 / 1
Регистрация: 17.04.2013
Сообщений: 8
17.04.2013, 13:54 2
да код не полный. обрывается на полпути
0
lcd1232
5 / 5 / 5
Регистрация: 26.02.2012
Сообщений: 51
17.04.2013, 13:55 3
Тут написано о том как используется графика в PascalABC
1
Steha
0 / 0 / 0
Регистрация: 14.04.2013
Сообщений: 9
17.04.2013, 14:51  [ТС] 4
Цитата Сообщение от lcd1232 Посмотреть сообщение
Тут написано о том как используется графика в PascalABC
Спасибо за полезную ссылку
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.04.2013, 14:51

Отредактировать программу на pascal
Доброго дня.Кто может отредактировать программу? Нужно добавить процедуры ввода...

Отредактировать заданное предложение
Народ помогите написать программу очень надо=) Отредактировать заданное...

Отредактировать заданное предложение
Отредактировать заданное предложение, удаляя из него все слова с нечетными...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru