Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
Линочка
0 / 0 / 0
Регистрация: 16.09.2010
Сообщений: 9
27.09.2010, 17:22     ввести номер дня недели #1
Ввести номер дня недели и вывести соответсвующий ему день недели на русском и английском языках.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.09.2010, 17:22     ввести номер дня недели
Посмотрите здесь:

Pascal Определить номер дня недели N для K-го дня года, если известно, что 1 января был понедельник
Pascal ABC Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года,
Turbo Pascal Введите номер дня недели. Выведите на экран название дня
Pascal ABC Ввести номер дня недели. Вывести название этого дня
Определить номер дня недели для заданного номера дня года Pascal
Определить номер дня недели для К- го дня года Turbo Pascal
Pascal Определить номер дня недели для K-го дня года
Напишите программу, которая бы запрашивала номер дня недели, и в ответ печатала бы название этого дня Free Pascal

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Artishok
ЧакЭ одобряЭ
 Аватар для Artishok
277 / 276 / 30
Регистрация: 27.12.2009
Сообщений: 1,767
27.09.2010, 17:27     ввести номер дня недели #2
Pascal
1
2
3
4
5
6
7
8
9
var
  a: array[1..7] of string := ('понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота', 'воскресенье');
  b: array[1..7] of string := ('monday', 'tuesday', 'wendsday', 'thursday', 'friday', 'saturday', 'sunday');
  i: integer;
 
begin
  readln(i);
  write(a[i], '------', b[i]);
end.
Mad_Dog
Фрилансер
 Аватар для Mad_Dog
448 / 429 / 23
Регистрация: 01.06.2010
Сообщений: 1,315
27.09.2010, 17:36     ввести номер дня недели #3
Pascal
1
2
3
4
5
6
7
8
Readln(i);
case i of
  1:S:='Понедельник----Monday';
  2:S:=//
 
  7:S:='Воскресенье----Sunday'
end;
writeln(S);
Yandex
Объявления
27.09.2010, 17:36     ввести номер дня недели
Ответ Создать тему
Опции темы

Текущее время: 00:41. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru