Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Alsi
5 / 5 / 2
Регистрация: 20.05.2011
Сообщений: 58
1

Найти ошибку

07.10.2011, 17:40. Просмотров 407. Ответов 6
Метки нет (Все метки)

Доброго времени суток дорогие форумчане!
Очень нуждаюсь в вашей помощи:

Ограничение по времени: 1с
Ограничение по памяти: 64 Мб

Самолет взлетает в X (целое, 0<=X<=23) часов по местному времени в часовом поясе номер
M (целое, 0<=M<=23). После полета в течение K (целое, 1<=K<=12) часов он приземляется в
часовом поясе номер N (целое, 0<=N<=23). Определите местное время в пункте приземления.
Считать, что часовые пояса нумеруются с запада на восток.
Формат входных данных:
В стандартном потоке ввода в первой строке через пробел записаны числа X, M, K, N.
Формат выходных данных:
В стандартный поток вывода требуется выдать местное время в пункте назначения в часах.

При проверке выдает ошибку не правильный формат вывода

вот код программы:
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
program pr_C;
uses crt;
var x,m,n,k,rez:integer;
begin
clrscr;
     repeat
           readln(x,m,k,n);
     until (x>=0) and(x<=23) and (m>=0) and (m<=23) and (k>=1) and (k<=12) and (n>=0) and(n<=23);
     begin
          if m>=n then
          rez:=x+k-(m-n)
          else
          if m<=n then
          rez:=x+k+(n-m);
     end;
 
     if rez>23 then
     begin
          rez:=rez-24;
     end;
     
     write('rez : ', REZ);
readln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2011, 17:40
Ответы с готовыми решениями:

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

Найти ошибку
uses crt; var a,b,c,x,y,st,nx,kx:real; begin clrscr; write('Введите...

Найти ошибку
program lab1; uses crt; var a,n,p,j:integer; begin readln(a,n); if a&lt;&gt;n ...

Найти ошибку
program lab1; uses crt; var x, y:integer; a:real; begin clrscr; write...

Найти ошибку
Не могу найти ошибку в программе. program massive; uses crt; type...

6
o-user
245 / 202 / 26
Регистрация: 03.02.2009
Сообщений: 786
07.10.2011, 17:52 2
Если вводишь целые числа, то работает!
А что вводите вы?
1
Alsi
5 / 5 / 2
Регистрация: 20.05.2011
Сообщений: 58
07.10.2011, 18:15  [ТС] 3
Цитата Сообщение от o-user Посмотреть сообщение
Если вводишь целые числа, то работает!
А что вводите вы?
целые числа
0
o-user
245 / 202 / 26
Регистрация: 03.02.2009
Сообщений: 786
07.10.2011, 18:24 4
Цитата Сообщение от Alsi Посмотреть сообщение
целые числа
Какие конкретно числа и какая конкретно ошибка?
1
Alsi
5 / 5 / 2
Регистрация: 20.05.2011
Сообщений: 58
07.10.2011, 18:34  [ТС] 5
Цитата Сообщение от o-user Посмотреть сообщение
Какие конкретно числа и какая конкретно ошибка?
Ввожу 20 1 4 1 ответ выводит правильный, отправляю на сервер для проверки выдает ошибку неверный формат вывода
0
o-user
245 / 202 / 26
Регистрация: 03.02.2009
Сообщений: 786
07.10.2011, 18:55 6
На какой сервер?
1
Xak
3 / 3 / 2
Регистрация: 16.03.2011
Сообщений: 157
07.10.2011, 22:50 7
"if m>=n then
rez:=x+k-(m-n)
else
if m<=n then"
автор, а почему у вас в 1 и во 2 случае есть "=" тогда в случае m=n у вас программа застопорится, если я не ошибаюсь.

Добавлено через 1 минуту
Цитата Сообщение от Alsi Посмотреть сообщение
Ввожу 20 1 4 1 ответ выводит правильный, отправляю на сервер для проверки выдает ошибку неверный формат вывода
а вот я и понял почему ошибка, прочитайте мой пост выше, уберите в 1 из случает знак "=" и все будет работать, а щас не работает, т.к. M=N=1.
1
07.10.2011, 22:50
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2011, 22:50

Найти ошибку
выводится массив, найти наименьший элемент: var x: array of integer;...

Найти ошибку
program laba11; uses Graph; type TBuffer = array of integer; ...

Найти ошибку
procedure TForm1.Timer1Timer(Sender: TObject); var connected, s:string; begin...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru