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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.12.2017, 08:05   #1
Аружан4545
Новичок
Джуниор
 
Регистрация: 07.12.2017
Сообщений: 1
По умолчанию помогите пожалуйста исправить ошибку

Код:
program k;
var a,b,c,x,y,z,n:longint;
begin
n:=0;
readln(a,b,c);
randomize;
readln(x);
randomize;
readln(y);
z:=(a*x+b*y) mod c;
begin
if ((((0<x) or (0=x)) and (x<c)) and c=0)  then n=n+1;
if ((((0<y) or (0=y)) and (y<c)) and c=0) then n=n+1;
writeln(n);
end;
end.
:)

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 07.12.2017 в 09:19.
Аружан4545 вне форума Ответить с цитированием
Старый 07.12.2017, 08:26   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Цитата:
помогите пожалуйста исправить ошибку
какую
Код:
((0<x) or (0=x))  (0<=x)
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 07.12.2017, 08:54   #3
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

((((0<x) or (0=x)) and (x<c)) and c=0) это равносильно false для всех значений, с условием явно что-то не то
p51x вне форума Ответить с цитированием
Старый 07.12.2017, 09:18   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
это равносильно false для всех значений
точно. левая часть X больше или равна нулю
и при этом (AND)
правая часть X строго меньше нуля.

нет чисел, которые больше нуля или равны нулю и при этом они больше нуля.

Условие явно ошибочно.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 07.12.2017, 09:49   #5
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

один randomize лишний

and c=0 - если c=0, то прога еще раньше рухнет при делении на 0, и скобочки еще потеряны

надо полагать, что условие может выглядеть так например:
Код:
if (x>=0) and (x<c) then n=n+1;
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 07.12.2017, 09:57   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
один randomize лишний
ага. и там ещё пара begin end бессмысленная.

а ещё z вычисляется, но нигде не используется. для чего тогда?

Цитата:
Сообщение от Аватар Посмотреть сообщение
надо полагать, что условие может выглядеть так например
Интересно, а Вы поняли задачу, которую пытается решить ТС?
похоже на то, что генерятся случайные точки на плоскости и потом проверяется, сколько из них попадает под некое условие. Думаю, что это как-то должно быть связано в представленной в коде функцией...

Но вообще, рассматривать явно кривой код да ещё и не зная задачи - пустое занятие.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 07.12.2017, 10:16   #7
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
Интересно, а Вы поняли задачу, которую пытается решить ТС?
А как её понять, если ТС сам не понял и условие не предоставил?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите, пожалуйста исправить ошибку wovancool PHP 3 23.12.2015 22:57
Помогите, пожалуйста, исправить ошибку в коде Eliz1 Общие вопросы C/C++ 3 26.11.2015 15:51
помогите ПОЖАЛУЙСТА исправить ошибку. лингвист Помощь студентам 0 21.01.2015 20:35
Помогите пожалуйста исправить ошибку!!!Please!!! Irin@ Помощь студентам 1 02.04.2009 20:31
Помогите пожалуйста найти и исправить ошибку Sam04 Паскаль, Turbo Pascal, PascalABC.NET 4 10.06.2008 08:28