Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 27.09.2010, 17:22   #1
Линочка
Новичок
 
Регистрация: 16.09.2010
Сообщений: 9
Репутация: 0 (0)
ввести номер дня недели / Pascal (Паскаль)

Ввести номер дня недели и вывести соответсвующий ему день недели на русском и английском языках.
Старый 27.09.2010, 17:27   #2
Artishok
ЧакЭ одобряЭ
 
Аватар для Artishok
 
Регистрация: 27.12.2009
Сообщений: 1,755
Репутация: 273 (272)
Лучшие ответы: 12
Код 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.
Другие темы раздела Форум программистов Pascal. Программирование с использованием языка Pascal (Паскаль). Помощь в решении задач.
определить наибольшее и наименьшее значения, Pascal
Если кто - нибудь сможет эти решить....буду век благодарна!!!!!!!!!!!! 1) Составить программу, которая просматривает массив из 10 целых чисел и определяет наибольшее и наименьшее значения, и так же находит max и min число. 2) Составить программу, которая просматривает массив из 10 целых...
вычислить сумму ряда Pascal
вычислить сумму ряда S=1+1/х+1/2х+1/3х+...+1/nx, для n введенного с клавиатуры.
Старый 27.09.2010, 17:36   #3
Mad_Dog
Фрилансер
 
Аватар для Mad_Dog
 
Регистрация: 01.06.2010
Сообщений: 1,315
Репутация: 435 (416)
Лучшие ответы: 1
Код 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);
Старый 27.09.2010, 17:36
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
Turbo Pascal Введите номер дня недели. Выведите на экран название дня
Введите номер дня недели. Выведите на экран название дня.
альберт12
Turbo Pascal Составить программу, которая запрашивает число от 1 до 7 (номер дня недели, с которого начинается месяц), и номер месяца от 1 до 12. По этим исходным
Составить программу, которая запрашивает число от 1 до 7 (номер дня недели, с которого начинается месяц), и номер месяца от 1 до 12. По этим исходным данным программа определяет и выводит на экран все числа этого месяца, которые приходятся на воскресенье Помогите с Задачей!
Shreder
C# для начинающих Определить номер дня недели для K-го дня года
Дни недели пронумерованы следующим образом: 1 — понедельник, 2 — вторник, … , 6 — суббота, 7 — воскресенье. Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года, если известно, что в этом году 1 января было вторником.
antony sky
Pascal ABC Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года,
Дни недели пронумерованы следующим образом: 0 — воскресенье, 1 — понедельник, 2 — вторник, …, 6 — суббота. Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года, если известно, что в этом году 1 января было четвергом. К=25 правильный ответ (0)?
rus930
С++ для начинающих Написать программу, которая запрашивает у пользователя номер дня недели, затем выводит название дня недели
Написать программу, которая запрашивает у пользователя номер дня недели, затем выводит название дня недели или сообщение об ошибке, если введены неправильные данные.
Appostl
Опции темы

Текущее время: 19:02. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.