Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.06.2010, 02:43   #11
DRAgon™
Форумчанин
 
Аватар для DRAgon™
 
Регистрация: 14.03.2010
Сообщений: 362
По умолчанию т

Цитата:
Сообщение от Don Karleone Посмотреть сообщение
1) инициализация графического режима. Я не силен в графике, но у тебя она неправильная. Попробуй сделать так
begin
device:=0;
mode:=0;
initgraph(device,mode,'c:\bp\bgi'); {если корневой коталог паскаля на диске С}
DirectVideo:=false;
Nachalo; {вызов процедуры Nachalo}
end;

2) в процедуре начало должно быть введено имя игрока, установлено количество торпед, количество кораблей.
Код:
procedure Nachalo;
begin
  torpeda_c:=0;
  korabl_s:=0;
  Writeln('What was the name gamer');
  Readln(name);  {ввод имени игрока. Кстати, name должна быть строковой переменной а не Integer}
  Writeln('Counters of torpedoes');
  Readln(torpeda_c);  {ввод количества торпед}
  Writeln('Counters of ship');
  Readln(korabl_s);  {ввод количества кораблей}
  {а теперь вызываем процедуру Risunok}
  Risunok
end;
ну и так далее...
фэнкю вэри мач
Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)
DRAgon™ вне форума Ответить с цитированием
Старый 11.06.2010, 02:45   #12
Don Karleone
Форумчанин
 
Регистрация: 05.04.2010
Сообщений: 410
По умолчанию

Цитата:
Сообщение от DRAgon™ Посмотреть сообщение
фэнкю вэри мач
так работать все равно не будет. там ошибок еще целая кучааааа.
ICQ: 593-013-807
Don Karleone вне форума Ответить с цитированием
Старый 11.06.2010, 12:13   #13
DRAgon™
Форумчанин
 
Аватар для DRAgon™
 
Регистрация: 14.03.2010
Сообщений: 362
По умолчанию

Цитата:
Сообщение от Don Karleone Посмотреть сообщение
так работать все равно не будет. там ошибок еще целая кучааааа.
Уже половину исправил ,главное теперь нормальные процедуры.
Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)
DRAgon™ вне форума Ответить с цитированием
Старый 11.06.2010, 21:24   #14
Don Karleone
Форумчанин
 
Регистрация: 05.04.2010
Сообщений: 410
По умолчанию

Цитата:
Сообщение от DRAgon™ Посмотреть сообщение
Уже половину исправил ,главное теперь нормальные процедуры.
нормальными они будут когда вся прога норамально заработает
ICQ: 593-013-807
Don Karleone вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Библиотека процедур Paradoxer Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 19 14.09.2010 12:12
outlook и VBA. Как создать событие в календаре с форматированием описания? Snark Microsoft Office Excel 0 28.09.2009 15:34
Массив процедур garik Общие вопросы Delphi 0 18.03.2009 21:08
объявить класс для описания клиеннтского потока. с атрибутами String. Sargon Работа с сетью в Delphi 4 23.12.2007 23:36
Создание процедур Viteef Общие вопросы Delphi 3 11.05.2007 01:25