Форум программистов, компьютерный форум CyberForum.ru

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Линочка
0 / 0 / 0
Регистрация: 16.09.2010
Сообщений: 9
#1

ввести номер дня недели - Pascal

27.09.2010, 17:22. Просмотров 439. Ответов 2
Метки нет (Все метки)

Ввести номер дня недели и вывести соответсвующий ему день недели на русском и английском языках.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.09.2010, 17:22     ввести номер дня недели
Посмотрите здесь:

Pascal Определить номер дня недели N для K-го дня года, если известно, что 1 января был понедельник
Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового Года Pascal
Turbo Pascal Составить программу, выдающую по названию дня недели его номер
Вывести номер дня недели , если 1 января — понедельник Free Pascal
Pascal ABC Нахождение дня недели по номеру дня в месяце
Определить номер дня недели для заданного номера дня года Pascal
Разработать программу, которая по числу месяца октября 2001 вычисляет номер дня недели Turbo Pascal
Pascal Определить номер дня недели для K-го дня года
Алгоритм нахождения дня недели по номеру дня в месяце Pascal
Напишите программу, которая бы запрашивала номер дня недели, и в ответ печатала бы название этого дня Free Pascal
Turbo Pascal Программа нахождения дня недели по номеру дня в месяце
Pascal Напишите программу, которая выводит название дня недели по номеру дня

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Artishok
ЧакЭ одобряЭ
277 / 276 / 32
Регистрация: 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
Фрилансер
448 / 429 / 27
Регистрация: 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     ввести номер дня недели
Ответ Создать тему
Опции темы

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