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

Pascal (Паскаль)

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

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

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

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

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

Определить номер дня недели для заданного номера дня года - Pascal
Дано целое число k (1<=k<=365). Присвоить целочисленной величине n значение 1, 2, ... , 6 или 0 в зависимости от дня недели ( пон, вт, ср,...

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

Определить номер дня недели для K-го дня года - Pascal
Дни недели пронумерованы следующим образом: 1 — понедельник, 2 — вторник, …, 6 — суббота, 7 — воскресенье. Дано целое число K, лежащее в...

Определить номер дня недели для К- го дня года - Turbo Pascal
Дни недели пронумерованы следующим образом: 1- понедельник, 2- вторник, ..., 6- субота, 7- воскресенье. Дано целое число К, лежащее в...

Напишите программу, которая бы запрашивала номер дня недели, и в ответ печатала бы название этого дня - Free Pascal
В общем дошел до оператора Case И вот в низу задачки такие. Напишите программу, которая бы запрашивала номер дня недели, и в ответ...

Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года, - Pascal ABC
Дни недели пронумерованы следующим образом: 0 — воскресенье, 1 — понедельник, 2 — вторник, …, 6 — суббота. Дано целое число K, лежащее в...

Определить номер дня недели N для K-го дня года, если известно, что 1 января был понедельник - Pascal
Здравствуйте. Не могу никак решить казалось бы очень простую задачку на Паскале, уже часа три голову ломаю. Может быть опечатка в учебнике....

Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового года - Free Pascal
Задание: Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового года. Работаю в Делви 7.На этом форуме есть такая...

Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового Года - Pascal
Помогите решить задачи в паскале, а то совсем труба=( _______sin2x, при x>0 1) y= { _______1-2sin(x)2...

Вывести номер дня недели , если 1 января — понедельник - Free Pascal
Помогите,пожалуйста...Среда Free Pascal Дан порядковый номер дня года (отсчет идет с 1-го января). Требуется вывести номер дня недели...

Составить программу, выдающую по названию дня недели его номер - Turbo Pascal
Составить программу, выдающую по названию дня недели его номер (например, вторник соответствует цифре 2), и по заданному диапазону чисел -...


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

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

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