Постройте алгоритм и составьте программу по которой

begin
Write(‘Введите номер дня недели (1-7) -> ‘);
Readln(n);
case n of
1: Writeln(‘Это понедельник’);
2: Writeln(‘Это втоник’);
3: Writeln(‘Это среда’);
4: Writeln(‘Это четверг’);
5: Writeln(‘Это пятница’);
6: Writeln(‘Это суббота’);
7: Writeln(‘Это воскресенье’);
else Writeln( ‘Это неверный ввод’);
end
end.

Введите номер дня недели (1-7) -> 5
Это пятница

Источник: sous-otvet.net

Постройте алгоритм и составьте программу, по которой будет реализован следующий вариант сценарий: компьютер запрашивает номер дня недели, после ввода компьютер сообщает название этого дня (типо если ввели 1 это понедельник 3 — среда) ((паскаль))

//PascalABC.NET
//Постройте алгоритм и составьте программу, по которой будет реализован
//следующий вариант сценарий: компьютер запрашивает номер дня недели,

Логические выражения, таблицы истинности ,структурная логическая схема

//после ввода компьютер сообщает название этого дня (типо если ввели
//1 это понедельник 3 — среда)

type Arr = array [0..6] of string;

begin
var DN: Arr := (‘Воскресенье’, ‘Понедельник’, ‘Вторник’, ‘Среда’,
‘Четверг’, ‘Пятница’, ‘Суббота’);
write(‘Введите порядковый номер дня недели: ‘);
var n := ReadlnInteger;
write(‘Этот день называется ‘, DN[n mod 7])
end.

Оцени ответ

Не нашёл ответ?

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

Источник: uchiru.net

Постройте алгоритм и составьте программу по которой

Ребят, помогите. я вообще не шарю в Паскале, кошмар какой-то:
Напишите программу на языке Паскаль, а также постройте блок-схему алгоритма для решения следующей задачи:

Вычислить среднее арифметическое всех положительных значений функции

y(x) = x3 + cos4x (если что, то здесь числа- степени), на промежутке [-2; 2] с шагом h = 0.2.

5 (2 оценки)

PUCIIK726 1 год назад
Светило науки — 7 ответов — 0 раз оказано помощи

Ответ:

Источник: vashurok.com