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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.06.2012, 16:42   #1
nurg
Новичок
Джуниор
 
Регистрация: 05.06.2012
Сообщений: 2
Вопрос Условный оператор.Оператор выбора.

Прошу помощи в решении данных задач
1.Дано трехзначное число. Определить какая из его цифр является средним числом (сред-ним будем называть число, которое больше минимального, но меньше максимального).
2.В китайском календаре годы носят название животных: Змеи, Лошади, Овцы, Обезьяны, Курицы, Собаки, Свиньи, Крысы, Коровы, Тигра, Зайца и Дракона. Каждые 12 лет цикл начинается заново. Считая, что 2000 год был годом Дракона, написать программу, которая вводит номер года от 2000 до 2012 и выводит его название по ки-тайскому календарю.
nurg вне форума Ответить с цитированием
Старый 10.06.2012, 19:29   #2
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Наработки есть? Или хотя бы идея как решать? Вобщем хоть что-нибудь....
Poma][a вне форума Ответить с цитированием
Старый 10.06.2012, 19:49   #3
Begin
Новичок
Джуниор
 
Регистрация: 04.12.2011
Сообщений: 1
По умолчанию

1. Что такое минимальное и максимальное число?
2.
Код:
program years;
var i:integer;
begin
for i:=2000 to 2012 do
case i mod 12 of
0:writeln(i, ' - Год Обезьяны');
1:writeln(i, ' - Год Курицы');
2:writeln(i, ' - Год Собаки');
3:writeln(i, ' - Год Свиньи');
4:writeln(i, ' - Год Крысы');
5:writeln(i, ' - Год Коровы');
6:writeln(i, ' - Год Тигра');
7:writeln(i, ' - Год Зайца');
8:writeln(i, ' - Год  Дракона');
9:writeln(i, ' - Год Змеи');
10:writeln(i, ' - Год Лошади');
11:writeln(i, ' - Год Овцы');
end;
end.
Begin вне форума Ответить с цитированием
Старый 10.06.2012, 20:17   #4
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Что такое минимальное и максимальное число?
Ввели 123 1 - мин, 3 - макс, 2 - средн
Poma][a вне форума Ответить с цитированием
Старый 11.06.2012, 18:27   #5
Olga-Colibri
 
Регистрация: 01.06.2012
Сообщений: 3
По умолчанию

1.
Код:
Var a, a1, a2, a3: integer;
Begin
Write ('Введите трехзначное число');
Readln (a);
a1:=a div 100;
a2:=a mod 100;
a2:=a2 div 10;
a3:=a mod 10;
If (a2>a1) and (a1>a3) or (a3>a1) and (a1>a2) then writeln ('Среднее число', a1);
If (a1>a2) and (a2>a3) or (a3>a2) and (a2>a1)  then writeln ('Среднее число', a2); 
If (a1>a3) and (a3>a2) or (a2>a3) and (a3>a1)  then writeln ('Среднее число', a3);
If (a1=a2) or (a1=a3) or (a2=a3) then writeln ('Определить среднюю цифру нельзя т.к. в числе есть одинаковые цифры');
Readln
End.


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 13.06.2012 в 15:26.
Olga-Colibri вне форума Ответить с цитированием
Старый 11.06.2012, 19:42   #6
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Оль, код на данном ресурсе для читабельности выделяется тегом [CODE] (кнопочка с #)
Poma][a вне форума Ответить с цитированием
Старый 13.06.2012, 14:10   #7
nurg
Новичок
Джуниор
 
Регистрация: 05.06.2012
Сообщений: 2
По умолчанию

Большое спасибо!!!
nurg вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Условный оператор,оператор цикла и массив Klark73 Microsoft Office Excel 1 19.12.2011 17:09
Условный оператор. Оператор выбора. евгенийзууу Паскаль, Turbo Pascal, PascalABC.NET 3 05.12.2011 14:37
Оператор выбора или условный оператор[Перенесено из JavaSE] merhaba1992 Помощь студентам 1 20.01.2011 17:06
Условный оператор. Оператор выбора. Pascal Сержuk Помощь студентам 4 17.11.2010 12:50