0 / 0 / 0
Регистрация: 17.12.2009
Сообщений: 15
1

Программа зацикливается, найти ошибку

26.12.2009, 20:13. Показов 711. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста найти в чем проблема, так то всё работает, но не выходит - зацикливается.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program 3;
Uses Crt;
Var x,y,r:Real;
    i:Integer;
BEGIN
  ClrScr;
  For i:=1 to 10 do
  Begin
    WriteLn('VVedite x,y,r');
    ReadLn(x,y,r);
    if(x>=0)and(y>=0)and(y<=R)and(x<=R)
    or(x<=0)and(y<=0)and(y>=-R)and(x<=-R)
    or(x>=0)and(y<=0)and(sqr(x-R)+sqr(y+R)>sqr(R))
    or(x<=0)and(y>=0)and(sqr(x+R)+sqr(y-R)>=sqr(R)) then WriteLn('popadaet')
    Else WriteLn('ne popadaet');
  End;
  ReadLn;
End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2009, 20:13
Ответы с готовыми решениями:

Программа пишет ошибку!! Помогите найти ошибку
Program Summa; var i, N, M: integer; begin Writeln ('Введите значение N:'); Read (N); ...

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

программа нужно найти ошибку
помогите найти ошибку должно получится по сторонам матрицы верхняя строка убывающая начиная с 1 а...

Программа зацикливается
uses crt; var x:real; a,b:integer; s,s1:string; begin repeat write('Введите...

3
Платежеспособный зверь
8940 / 4367 / 1644
Регистрация: 28.10.2009
Сообщений: 11,589
26.12.2009, 20:21 2
задание напиши, проще будет
1
UNIX-way
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
26.12.2009, 20:21 3
Всё очень замечательно выходит.
Только мой компилятор возмущён Вашим именем программы (3 - некорректный идентификатор. я сменил на p3).
10 раз повторяет запрос на ввод, обрабатывает это всё и после нажатия энтера выходит.
1
0 / 0 / 0
Регистрация: 17.12.2009
Сообщений: 15
26.12.2009, 20:27  [ТС] 4
Так всё ясно, спасибо)
Миниатюры
Программа зацикливается, найти ошибку  
0
26.12.2009, 20:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2009, 20:27
Помогаю со студенческими работами здесь

Пытаюсь написать программу по нахождению НОК, но программа зацикливается
Доброго времени суток. Я уже все перепробовал, но на repeat программа зацикливается. В чем ошибка?...

Найти среди чисел первое такое, что меньше а: программа зацикливается
дано положительное число а (а &lt;1). Найти среди чисел вида 1/2^n, n&gt;=0 первое такое, что меньше а.

Программа зацикливается
uses crt; type PItem=^TItem; Titem=record inf:string; lev,prav:PItem; end; var...

Зацикливается программа
проблемка с курсачем, зацикливается... может кто нить разберет в чем проблема.? program k7; uses...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru