Контрольная работа: Программирование решения задач

Написать программу для вычисления значения выражения:

2

1+

3+ 4

6

5+

7+x

при различных значениях х.

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

Решение

1. Анализ введенных с клавиатуры исходных данных

2. Условие, при котором х > 0

3. Повторение предыдущей операции для каждой функции

4. Выведение условия для выхода

5. Выводрезультатов

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

x,y,n:real;

begin

repeat

writeln('enter x');

readln(x);

if (x+7)=0 then writeln('resheniy net') else

if (5+6/(7+x))=0 then writeln('resheniy net') else

if (3+4/(5+6/(7+x)))=0 then writeln('resheniy net')

else

y:=1+2/(3+4/(5+6/(7+x)));

--> ЧИТАТЬ ПОЛНОСТЬЮ <--