Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Alsi
5 / 5 / 1
Регистрация: 20.05.2011
Сообщений: 58
#1

Найти ошибку - Turbo Pascal

07.10.2011, 17:40. Просмотров 392. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти ошибку (Turbo Pascal):

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

Найти ошибку - Turbo Pascal
program lab1; uses crt; var x, y:integer; a:real; begin clrscr; write ('введите х:'); readln(y); ...

Найти ошибку - Turbo Pascal
procedure TForm1.Timer1Timer(Sender: TObject); var connected, s:string; begin Try begin s := IdHTTP1.Get( PingURL ); connected...

Найти ошибку - Turbo Pascal
program s1; finction sum(n:integer):integer; var s:integer; begin s:=0; for n:=1 to n do s:=s sum:=s end;

Найти ошибку - Turbo Pascal
Не могу найти ошибку в программе. program massive; uses crt; type matrix=array of string; st=array of integer; ...

Найти ошибку - Turbo Pascal
Друзья помогите пожалуйста найти ошибку. Компиляция не выдает ошибка, но когда работает и я пишу сначала первый а потом второй вектор,...

6
o-user
244 / 201 / 7
Регистрация: 03.02.2009
Сообщений: 786
07.10.2011, 17:52 #2
Если вводишь целые числа, то работает!
А что вводите вы?
1
Alsi
5 / 5 / 1
Регистрация: 20.05.2011
Сообщений: 58
07.10.2011, 18:15  [ТС] #3
Цитата Сообщение от o-user Посмотреть сообщение
Если вводишь целые числа, то работает!
А что вводите вы?
целые числа
0
o-user
244 / 201 / 7
Регистрация: 03.02.2009
Сообщений: 786
07.10.2011, 18:24 #4
Цитата Сообщение от Alsi Посмотреть сообщение
целые числа
Какие конкретно числа и какая конкретно ошибка?
1
Alsi
5 / 5 / 1
Регистрация: 20.05.2011
Сообщений: 58
07.10.2011, 18:34  [ТС] #5
Цитата Сообщение от o-user Посмотреть сообщение
Какие конкретно числа и какая конкретно ошибка?
Ввожу 20 1 4 1 ответ выводит правильный, отправляю на сервер для проверки выдает ошибку неверный формат вывода
0
o-user
244 / 201 / 7
Регистрация: 03.02.2009
Сообщений: 786
07.10.2011, 18:55 #6
На какой сервер?
1
Xak
3 / 3 / 0
Регистрация: 16.03.2011
Сообщений: 151
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
Привет! Вот еще темы с ответами:

Найти ошибку - Turbo Pascal
Помогите выдает ошибку &quot;переполнение операции&quot;.Я не знаю как от нее избавиться program ld5; uses crt; var a:array of real; ...

Найти ошибку - Turbo Pascal
Помогите пожалуйста сделать нормальный ввод и вывод информации.Никак не могу понять как это работает.Всё время затирает предыдущую...

Найти ошибку - Turbo Pascal
При компиляции ошибок не выдает, при вычислении после ввода Х значение суммы ряда и отклонения от функции пишет NaN. Program laba1; ...

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


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

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

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