Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

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

Ввести номер дня недели и вывести соответсвующий ему день недели на русском и английском языках.
27.09.2010, 17:22
AdAgent
Объявления
27.09.2010, 17:27   #2
Artishok
ЧакЭ одобряЭ
Регистрация: 27.12.2009
Сообщений: 1,755
Репутация: 274 (273)
Лучшие ответы: 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
Если кто - нибудь сможет эти решить....буду век благодарна!!!!!!!!!!!! 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
Фрилансер
Регистрация: 01.06.2010
Сообщений: 1,315
Репутация: 437 (418)
Лучшие ответы: 1
ввести номер дня недели / Pascal (Паскаль)

Код 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
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
VBA Определить номер дня недели для K-го дня года
дни недели пронумерованы следующим образом:1-пониделник,2-вторник,...6-суббота,7-воскресенье. Дано целое число K , лежащее в диапазоне 1-365. Определить номер дня недели для K-го дня года, если известно, что в этом году 1 января было суббота.
VBA maks_ 17.05.2014 18:06
Pascal ABC Ввести номер дня недели. Вывести название этого дня
ввести номер дня недели. вывести название этого дня
Pascal ABC Игорь Чёрный 06.06.2013 13:29
Turbo Pascal Введите номер дня недели. Выведите на экран название дня
Введите номер дня недели. Выведите на экран название дня.
Turbo Pascal альберт12 30.06.2012 13:24
C# Определить номер дня недели для K-го дня года
Дни недели пронумерованы следующим образом: 1 — понедельник, 2 — вторник, … , 6 — суббота, 7 — воскресенье. Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года, если известно, что в этом году 1 января было вторником.
C# для начинающих antony sky 17.09.2011 16:32
C++ Написать программу, которая запрашивает у пользователя номер дня недели, затем выводит название дня недели
Написать программу, которая запрашивает у пользователя номер дня недели, затем выводит название дня недели или сообщение об ошибке, если введены неправильные данные.
С++ для начинающих Appostl 22.09.2010 19:01
Опции темы

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

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