Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 2
Регистрация: 25.02.2012
Сообщений: 28
1

Решение через GOTO. Необходимо ввести номер месяца и вывести количество дней в нем, а так же количество ошибок при вводе.

12.03.2012, 22:33. Просмотров 1016. Ответов 1
Метки нет (Все метки)

Добрый вечер. Нужна помощь с изменением задачи. Необходимо ввести номер месяца и вывести количество дней в нем, а так же количество ошибок при вводе.
Саму задачу я сделала через оператор CASE. Теперь же ее нужно переделать при помощи GOTO. Подскажите как это сделать.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program Mesyacy_i_dni;
uses crt;
var M,D,O,X: integer;
begin
x:=-1;
   repeat
   clrscr;
   inc(x);
   writeln('Vvedite nomer mesyaca:');
   read (M);
   Until (M>0) and (m<13);
    case M of
    2:        begin D := 28; end;
    4,6,9,11: begin D := 30; end;
    1,3,5,7,8,10,12: D := 31;
    else             D := -1;
   end;
   if D > 0 then writeln('V etom mesyace', D, 'dnei (dn9).'); readln;
   Writeln('Chislo oshibok pri vvode - ',x); readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2012, 22:33
Ответы с готовыми решениями:

Ввести номер месяца и вывести количество дней в нем, а также число ошибок при вводе
Ввести номер месяца и вывести количество дней в нем, а также число ошибок при вводе. Пример: ...

Паскаль.Ввести номер месяца и вывести количество дней в нем, а также число ошибок при вводе...........
Задание 1. Ввести номер месяца и вывести количество дней в нем, а также число ошибок при вводе....

Ввести номер месяца и вывести количество дней в нем
Ввести номер месяца и вывести количество дней в нем, а также число ошибок при вводе.С...

Ввести номер месяца. Вывести количество дней в нем
Ввести номер месяца. Вывести количество дней в нем.

1
go
Эксперт С++
3639 / 1371 / 243
Регистрация: 16.04.2009
Сообщений: 4,527
12.03.2012, 22:52 2
Цитата Сообщение от Симочка Посмотреть сообщение
Теперь же ее нужно переделать при помощи GOTO.
Все хотят избавиться, а Вы наоборот.
Ставите метку, вместо repeat
Затем вместо until
Pascal
1
2
if (m < 0) or (m > 13) then
// Переход на Ваше метку
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2012, 22:52

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Ввести номер месяца, вывести количество дней в нем (решить двумя способами)
составить программу для решения приведенного ниже задачи двумя способами используя: 1) команду...

Ввести номер месяца ,вывести количество дней
ввести номер месяца ,вывести количество дней в нем...Спасибо заранее..

Ввести номер месяца и номер года. Вывести количество дней в этом месяце (учитывать високосные годы)
Ввести номер месяца и номер года. Вывести количество дней в этом месяце (учитывать високосные годы)

Дан порядковый номер дня месяца, вывести на экран количество дней оставшихся до конца месяца
Дан порядковый номер дня месяца, вывести на экран количество дней оставшихся до конца месяца...


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

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

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