Автор Їингис Сангадеев задал вопрос в разделе Другие языки и технологии
составить программу выводящую название дня недели по его номеру (Pascal) и получил лучший ответ
Ответ от Ra[гуру]
const
d: array [1..7] of string =
('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
n: integer;
begin
write('Номер дня недели? ');
readln(n);
if (1 <= n) and (n <= 7) then writeln(d[n]) else writeln('Ошибка ввода');
end.
Ответ от LEdwardElric[гуру]
Задай переменную для числа = дню недели.
Проверь её оператором условия на соответствие каждому дню и в случае выполнения выведи на экран, а несоответствия перейди к следующему.
Можешь щегольнуть и учесть невозможные варианты (типа отрицательных, дробных чисел или текста)
А можешь спецоператором Case of (кажется зовётся) по нажатию клавиши сразу вывести на экран.
Задай переменную для числа = дню недели.
Проверь её оператором условия на соответствие каждому дню и в случае выполнения выведи на экран, а несоответствия перейди к следующему.
Можешь щегольнуть и учесть невозможные варианты (типа отрицательных, дробных чисел или текста)
А можешь спецоператором Case of (кажется зовётся) по нажатию клавиши сразу вывести на экран.
Ответ от Sergey[активный]
program nedel;
uses crt;
var
n:integer;
begin
clrscr;
writeln('Ââåäèòå íîìåð');
readln(n);
if n=1 then writeln('Понедельник');
if n=2 then writeln('Вторник');
if n=3 then writeln('Среда');
if n=4 then writeln('Четверг');
if n=5 then writeln('Пятница');
if n=6 then writeln('Суббота');
if n=7 then writeln('Воскресенье');
readkey;
end.
program nedel;
uses crt;
var
n:integer;
begin
clrscr;
writeln('Ââåäèòå íîìåð');
readln(n);
if n=1 then writeln('Понедельник');
if n=2 then writeln('Вторник');
if n=3 then writeln('Среда');
if n=4 then writeln('Четверг');
if n=5 then writeln('Пятница');
if n=6 then writeln('Суббота');
if n=7 then writeln('Воскресенье');
readkey;
end.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: составить программу выводящую название дня недели по его номеру (Pascal)
спросили в Интернет Веб почта
Какие плюсы и минусы у яндекс денег и веб мани? Нужно сделать выбор между.
После попадания в кошелёк ЯД охватывает чувство лёгкого недоумения. Немного убогий интерфейс,
подробнее...
Какие плюсы и минусы у яндекс денег и веб мани? Нужно сделать выбор между.
После попадания в кошелёк ЯД охватывает чувство лёгкого недоумения. Немного убогий интерфейс,
подробнее...