Вариант 2. Разработать программу для вычисления значения заданного арифметического

  • ID: 37746 
  • 7 страниц
200 рубСкачать

антиплагиат в подарок

TASK1.exe

TASK1.pas

TASK2.exe

TASK2.pas

TASK3.exe

TASK3.pas

TASK4.exe

TASK4.pas

Отчет.docx

Содержание:


Задача №1

Постановка задачи

Разработать программу для вычисления значения заданного арифметического выражения (см. вариант по таблице 1) и вывода на экран полученных результатов.

Значения исходных данных выбираются произвольно. Ввод исходных данных организовать любым известным вам способом (использовать не менее двух способов).

Таблица 1 – Варианты арифметических выражений

Листинг программы

uses crt;

var

b,c,x,y: real;

begin

clrscr;

(* c:=1; x:=1; y:=1; *)

write('c = '); readln(c);

write('x = '); readln(x);

write('y = '); readln(y);

b:=c*(sqrt(y+sqr(x)))*(cos(x)-abs(c-y));

writeln('b = ',b:6:3);

readln;

end.

Результат работы программы

[image]

Задача №2

Постановка задачи

Разработать программу для вычисления значения заданной функции (см. вариант по таблице 2) и вывода на экран полученных результатов.

Исходные данные вводить с клавиатуры.

Таблица 2 – Варианты функций

Листинг программы

uses crt;

var

d,x,y:real;

begin

clrscr;

write('x='); readln(x);

write('y='); readln(y);

if (x>y) then d:=(x-y)*arctan(x);

if (y>x) then d:=sqr(y-x)*(y-x)+arctan(x);

if (x=y) then d:=sqr(y+x)*(y+x)+0.5;

writeln('d=',d:6:3);

readln;

end.

Результат работы программы

[image]