Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 18.07.2013
Сообщений: 4

Найти ошибку в коде (мини-игра с пушечными выстрелами)

18.07.2013, 19:28. Показов 991. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Пишу мини-игру, про пушечные выстрелы, почему после первого выстрела не пишет надпись ввести то-то и то-то?
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses graphabc;
var v, gor_cel, s_okr, h_okr, s_snar, h_snar, vstrel:integer;
    s, h, t, alpha, grad:real;
    chislo:string;
    
procedure POLE;
begin line(10,200,200,200);
circle(20,195,10);
line(18,200,32,190);
line(50,200,70,180);
line(70,180,90,200);
rectangle(gor_cel+110,190,gor_cel+10+110,200);
chislo:='номер выстрела '+inttostr(vstrel);
textout(2,2,chislo);
end;
 
procedure zapros; begin
textout(4,30,'ВВедите угол наклона пушки');
readln(alpha);
textout(4,30,'Введите стартовую скорость ядра');
readln(v);
end;
begin
   vstrel:=0;
   t:=0;
   grad:=0.0175;
   gor_cel:= random(20);
     repeat
     vstrel:=vstrel+1;
     pole;
     circle(32,190,2);
     zapros;
     {выстрел полет}
     LockDrawing;
     t:=0; 
        repeat
        
        t:=t+0.05;
        s:=v*t*cos(alpha*grad);
        h:=v*t*sin(alpha*grad)-9.81*sqr(t)/2;
        h_okr:=-(Round(h));
        s_okr:=Round(s);
        s_snar:=0;
        h_snar:=0;
        s_snar:=s_okr+32;
        h_snar:=h_okr+190;
        window.Clear;
        pole;
        circle(s_snar,h_snar,2);
        redraw;
        until h_snar>196
     until 2>3
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
18.07.2013, 19:28
Ответы с готовыми решениями:

Игра Марио - найти ошибку в коде
Всем доброго времени суток. Вот взялся сделать платформер с помошью SFML. Написал код, чтобы персонаж двигался и прыгал. Компилятор...

Игра крестики и нолики - найти ошибку в коде
Подскажите в чём ошибка. Когда запускаю программу первый раз "Х" пишется а потом нет. uses crt; var a: array of char; ...

Мини-игра. Компилятор выдает одну ошибку
Доброго времени суток. Сегодня решил написать свою мини-игру с регистрацией (Все таки, нужна ведь практика).Регистрация заключается в...

5
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
18.07.2013, 20:14
Pascal
1
2
3
  until h_snar>196;
  UnlockDrawing; //это вставь
 until 2>3
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33376 / 21500 / 8236
Регистрация: 22.10.2011
Сообщений: 36,895
Записей в блоге: 11
18.07.2013, 20:20
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{выстрел полет}
LockDrawing;
t:=0; 
repeat
   t:=t+0.05;
   s:=v*t*cos(alpha*grad);
   h:=v*t*sin(alpha*grad)-9.81*sqr(t)/2;
   h_okr:=-(Round(h));
   s_okr:=Round(s);
   s_snar:=0;
   h_snar:=0;
   s_snar:=s_okr+32;
   h_snar:=h_okr+190;
   window.Clear;
   pole;
   circle(s_snar,h_snar,2);
   redraw;
until h_snar>196;
UnlockDrawing; // Надо разблокировать окно
0
0 / 0 / 0
Регистрация: 18.07.2013
Сообщений: 4
18.07.2013, 20:29  [ТС]
Спасибо
0
2 / 2 / 6
Регистрация: 09.11.2014
Сообщений: 71
26.03.2015, 18:30
MYCTANG, я заменил integer на word. И да, используйте ABCObjects.
0
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
26.03.2015, 18:35
725973, очень полезное замечание спустя 2 года
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
26.03.2015, 18:35
Помогаю со студенческими работами здесь

Игра "Угадай число". Найти ошибку в коде
uses graphabc,ABCButtons; var p,c,i,h,n,y,g,f,d,o,u:longint; l,s:string; btn:buttonabc; procedure ttt; var o,x:longint; begin ...

Игра в спички - исправить ошибку в коде
Здравствуйте, помогите исправить ошибку в программе Вот сама ошибка Ссылка на исходники Код Сервер using System; ...

Мини-игра: даётся 50 нажатий, нужно найти бомбу
нужна игра: размер поля 10х10 кнопок.Одна бомба. даётся 50 нажатий,нужно найти бомбу.повторно на одну и ту же кнопку 2 раза нажимать...

Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде
Вот,например массив 5 5 0 1 0 1 0 1 1 1 1 1 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0 считываются два числа m и n и далее в выходной...

Игра Крестики-нолики - найти ошибки в коде
#include <stdio.h> #include <stdlib.h> #define SPACE ' ' char matrix = { /* матрица для крестикова-ноликов */ {SPACE, SPACE,...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru