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


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

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

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