Программирование многие путают с кодированием, что совершенно неверно. Программирование - это процесс написания программы, который начинается от постановки задачи, а кодирование - это запись уже сконструированного алгоритма в виде программы на языке, понятном исполнителю этой программы.
Заданный вопрос - отличная иллюстрация к написанному выше. Алгоритма нет, поскольку, что автор вопроса не понимает о чем идет речь, но зато он спрашивает, как выполнить кодирование на язык Паскаль. Вполне понятно, что автор самостоятельно этого сделать не может.
Вернемся к заданию. Насколько его можно попытаться понять, речь идет о кусочной функции.
Кусочная функция содержит условия, определяющие её части на различных интервалах. Поскольку в условиях есть операции сравнения, в Паскале понадобится условный оператор if - then - else, причем не один.
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ReadReal('x='); var s:real; if x<0 then s:=x*x else if x=0 then s:=5 else s:=x-12; Writeln(s) end.
using namespace std;
int main()
{
int i = 0;
cin >> i;
switch(i) {
case(1) : { cout << "Вторник"; break; }
case(2) : { cout << "Среда"; break; }
case(3) : { cout << "Четверг"; break; }
case(4) : { cout << "Пятница"; break; }
case(5) : { cout << "Суббота"; break; }
case(6) : { cout << "Воскресенье"; break; }
case(7) : { cout << "Понедельник"; break; }
}
return 0;
}
Заданный вопрос - отличная иллюстрация к написанному выше. Алгоритма нет, поскольку, что автор вопроса не понимает о чем идет речь, но зато он спрашивает, как выполнить кодирование на язык Паскаль. Вполне понятно, что автор самостоятельно этого сделать не может.
Вернемся к заданию. Насколько его можно попытаться понять, речь идет о кусочной функции.
Кусочная функция содержит условия, определяющие её части на различных интервалах. Поскольку в условиях есть операции сравнения, в Паскале понадобится условный оператор if - then - else, причем не один.
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('x=');
var s:real;
if x<0 then s:=x*x else
if x=0 then s:=5
else s:=x-12;
Writeln(s)
end.