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 уравнения на вычисления, комбинации (переменные) вписываешь сам. Название придумай. Я вопрос не очень понял, поэтому если что не так, все-равно навсякий случай сохрани ;)
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Проведите анализ модели по таблице 3.12 сопоставьте этапы выполнения задания и этапы моделирования на компьютере
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 уравнения на вычисления, комбинации (переменные) вписываешь сам. Название придумай. Я вопрос не очень понял, поэтому если что не так, все-равно навсякий случай сохрани ;)