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

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

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

Поиск по форуму:
Artishok
ЧакЭ одобряЭ
274 / 273 / 12
Регистрация: 27.12.2009
Сообщений: 1,763
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
Фрилансер
439 / 420 / 1
Регистрация: 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     ввести номер дня недели
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Опции темы

Текущее время: 05:32. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.
Яндекс.Метрика