Составить 3 комбинированных алгоритма (вычислительных)
Ответы на вопрос
Ответил levkir
0
Program example;
Uses CRT;
VAR x: integer;
VAR y: integer;
VAR c: integer;
begin;
Writeln('Уравнение для решения это c=x+y');
Writeln('Введите значение x...');
Readln(x);
Writeln('Введите значение y...');
Readln(y);c:=x+y;
Writeln('Результат, c=', c);
readln;
ClrScr;
Writeln('Уравнение для решения это c=x-y');
Writeln('Введите значение x...');
Readln(x);
Writeln('Введите значение y...');
Readln(y);
c:=x-y;
Writeln('Результат, c=', c);
readln;
ClrScr;
Writeln('Уравнение для решения это c=x*y');
Writeln('Введите значение x...');
Readln(x);
Writeln('Введите значение y...');
Readln(y);
c:=x*y;
Writeln('Результат, c=', c);
readln;
end.
Вот в принципе 3 уравнения на вычисления, комбинации (переменные) вписываешь сам. Название придумай. Я вопрос не очень понял, поэтому если что не так, все-равно навсякий случай сохрани ;)
Uses CRT;
VAR x: integer;
VAR y: integer;
VAR c: integer;
begin;
Writeln('Уравнение для решения это c=x+y');
Writeln('Введите значение x...');
Readln(x);
Writeln('Введите значение y...');
Readln(y);c:=x+y;
Writeln('Результат, c=', c);
readln;
ClrScr;
Writeln('Уравнение для решения это c=x-y');
Writeln('Введите значение x...');
Readln(x);
Writeln('Введите значение y...');
Readln(y);
c:=x-y;
Writeln('Результат, c=', c);
readln;
ClrScr;
Writeln('Уравнение для решения это c=x*y');
Writeln('Введите значение x...');
Readln(x);
Writeln('Введите значение y...');
Readln(y);
c:=x*y;
Writeln('Результат, c=', c);
readln;
end.
Вот в принципе 3 уравнения на вычисления, комбинации (переменные) вписываешь сам. Название придумай. Я вопрос не очень понял, поэтому если что не так, все-равно навсякий случай сохрани ;)
Ответил Donziik
0
это не то , это паскаль ну жны алгоритмы ( начало ввод условие действие и тк
Ответил Donziik
0
паскаль я и сам могу а вот это капец
Ответил levkir
0
А, вы имеете ввиду блок-схемы?
Новые вопросы