4 / 4 / 1
Регистрация: 15.05.2009
Сообщений: 57
1

Ошибки в коде

31.05.2009, 13:39. Показов 593. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго времени суток. Если задача которая рисует движение математического маятника.
1. При вводе некоторых значений(значения могут быть разными, иногда при одних и тех же значения может работать, а иногда нет ) она подвешивает компьютер после некторого времени работы или же прост не хочет запускать.
2. Напишите коментарии что за что отвечает, ибо рисование в паскале на очень плачевном уровне.
Надеюсь достаточно понятно описал проблему. Если имеются какие -нибудь вопросы, спрашивайте.
З.Ы. Посмотрите в чем проблема, ибо скоро сдача((((((((
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
program matem_mayatnik;
uses graph,crt;
var
    n,x,y,h,l,k,d:real;
    c,y1,a,x0,y0,gd,gm:integer;
procedure OpenGraph;
 
var
   gd,gm:integer;
begin
  gd:=detect;
  nitgraph(gd,gm,'');
  if graphresult<>0 then begin
    writeln('ЋиЁЎЄ* Ё*ЁжЁ*«Ё§*жЁЁ Ја*дЁзҐбЄ®Ј® ०Ё¬* ');
    readln;
    halt;
  end;
end;
 
procedure CloseGraph;
 
begin
  CloseGraph;
  if graphresult<>0 then
  begin
    writeln('ЋиЁЎЄ*  §*ЄалвЁп Ја*дЁзҐбЄ®Ј® ०Ё¬*');
    readln;
    halt;
  end;
end;
 
procedure Output(x0,y0:integer;l,h:real);
 
begin
  k:=(l-sqrt(l*l-h*h))/1;
  y1:=round(y0+k-l);
{podves}
  setcolor(brown);
  setfillstyle(1,brown);
  bar(x0-40,y1,x0+40,y1-4);
  putpixel(x0,y0,green);
  moveto(x0,y1);
  a:=a+round(d);
  x:=x0+h*cos(a*pi/180);
  y:=sqrt(l*l-(x-x0)*(x-x0))+y1;
  if (a=180) or (a=0) then d:=-d;
  setcolor(white);
  lineto(round(x),round(y));
  setcolor(green);
  {circle(round(x),round(y),5);}
  circle(round(x),round(y),2);
  circle(round(x),round(y),4);
  circle(round(x),round(y),3);
  circle(round(x),round(y),1);
  if a mod 3 = 0 then
  cleardevice;
  delay(650);
end;
 
begin
  clrscr;
  gd:=detect;
  gm:=0;
  d:=1;
  writeln('‚ўҐ¤ЁвҐ ®вЄ«®*Ґ*ЁҐ ®в Ї®«®¦Ґ*Ёп а*ў*®ўҐбЁп');
  readln(h);
  writeln('‚ўҐ¤ЁвҐ ¤«Ё*г *ЁвЁ');
  readln(l);
  writeln('‚ўҐ¤ЁвҐ Є®®а¤Ё**вл X и*а*');
  readln(x0);
  writeln('‚ўҐ¤ЁвҐ Є®®а¤Ё**вл Y и*а*');
  readln(y0);
 
  {x0:=320;
  y0:=420;
  l:=320;
  h:=100;}
  writeln('1 - ‡*вге*ойЁҐ');
  writeln('2 - ЌҐ §*вге*ойЁҐ');
  readln(c);
  initgraph(gd,gm,'');
  if c=1 then
  repeat
    n:=n+1;
    if (n>=180) then
    begin
      h:=h-2;
      n:=0;
    end;
    output(x0,y0,l,h);
  until keypressed;
  if c=2 then
  repeat
   output(x0,y0,l,h);
  until keypressed;
  closegraph;
end.
0
31.05.2009, 13:39
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
31.05.2009, 13:39
Ответы с готовыми решениями:

Найти ошибки в коде и исправить эти ошибки (Наследование)
Вот в общем 3 файла, изучаю наследование на примере односвязного и двусвязного списков: list.h (inline) #pragma once class list...

Ошибки при компиляции - исправить ошибки в коде
Помогите исправить ошибки , не понимаю в чем может быть причина ... #include &lt;conio.h&gt; #include &lt;stdio.h&gt; #include...

Найти ошибки в коде и исправить эти ошибки - C++
Судя по вываливающейся ошибки, идет двойное освобождение памяти. У самого не получается отловить откуда. A.h #pragma once ...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
31.05.2009, 13:39
Помогаю со студенческими работами здесь

Найти ошибки в коде и исправить эти ошибки
Есть у меня вот такой код: #include &lt;iostream&gt; using namespace std; class A{ private: int* a; size_t size_; ...

ошибки в готовом коде(ошибки указаны)
Ввести с клавиатуры строку (кол-во символов не больше 10). И определить ее длину c использованием подпрограмм. model small .stack 100h ...

Ошибки в коде
Подскажите пожалуйста, что неверно в коде. Выбивает ошибка: 'cout' was not declared in this scope #include...

Ошибки в коде
Код взял с форума, однако в нем 40+ ошибок, подскажите пожалуйста что не так. Условие задачи: Создать класс “Автомагазин”, состоящей...

Ошибки в коде
Помогите,пожалуйста, исправить ошибки Задание:Даны два числа. Определите цифры, которые входят как в первый так и второго числа. ...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Отключение отслеживания файла, занесенного в .gitignore в Git
hw_wired 10.02.2025
Git помогает следить за изменениями в проекте, но иногда требуется исключить определенные файлы из системы контроля версий. Это могут быть конфигурационные файлы с локальными настройками, временные. . .
Что такое use strict в JavaScript
hw_wired 10.02.2025
Директива use strict - способ перевода JavaScript-кода в строгий режим работы, который делает язык более безопасным и предсказуемым. Она появилась в ECMAScript 5 как ответ на многочисленные проблемы,. . .
Как в jQuery проверить, что элемент скрыт
hw_wired 10.02.2025
jQuery предоставляет несколько эффективных способов определить, скрыт элемент или отображается на странице. Самый простой метод использует специальные селекторы :hidden и :visible. Селектор :hidden. . .
Как проверить (check out) ветку Git в удаленном репозитории
hw_wired 10.02.2025
Проверка удаленной ветки в Git требует понимания нескольких базовых концепций и точного выполнения определенной последовательности действий. Для начала необходимо получить актуальную информацию о. . .
chucknorris в HTML и другие обозначения цветов
hw_wired 10.02.2025
HTML, как основной язык разметки веб-страниц, прошел длинный путь развития в плане работы с цветами. На заре развития веб-технологий разработчики могли использовать только базовый набор из 16. . .
Стек и куча: отличия и назначение
hw_wired 10.02.2025
Управление памятью - ключевой элемент работы любой программы. В современных языках программирования память делится на две основные области: стек и кучу. Каждая из них обладает уникальными. . .
Комментарии в JSON
hw_wired 10.02.2025
JSON - текстовый формат обмена данными, построенный на основе синтаксиса JavaScript. Этот формат отличается простотой, читаемостью и широкой поддержкой во всех современных языках программирования. . . .
Перезаписываем локальные файлы с помощью git pull
hw_wired 10.02.2025
Git pull - незаменимая команда для синхронизации локального репозитория с удаленным. При работе над проектом в команде разработчиков часто возникает необходимость получить актуальные изменения,. . .
Оператор --> в C++
hw_wired 10.02.2025
Оператор --> (называемый "spaceship operator" или оператор космического корабля) - важное нововведение в стандарте C++20, упрощающее реализацию операций сравнения в пользовательских типах данных. . . .
Отмена git add до коммита
hw_wired 10.02.2025
Git предлагает несколько методов для отмены индексации файлов перед созданием коммита. Разработчики часто сталкиваются с ситуацией, когда нужно убрать файлы из индекса, не теряя внесенные изменения в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru