Форум программистов, компьютерный форум 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 Составить программу, выдающую по названию дня недели его номер

Free Pascal Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового годаРаботаю в Делви 7

Turbo Pascal ввести номер месяца и номер дня вывести число дней оставшихся до нового года

Pascal ABC Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года,

Turbo Pascal Введите номер дня недели. Выведите на экран название дня

Pascal ABC Ввести номер дня недели. Вывести название этого дня

Free Pascal Вывести номер дня недели , если 1 января — понедельник

Pascal Определить номер дня недели для заданного номера дня года

Turbo Pascal Определить номер дня недели для К- го дня года

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

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