Шифр 08. Стандартные функции. Арифметические выражения

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

гарантия низкой цены

Z1.exe

Z1.pas

Z2.exe

Z2.pas

Z3.exe

Z3.pas

Z4.exe

Z4.pas

Отчет.docx

Содержание:


Тема 1. Стандартные функции. Арифметические выражения

Задание

[image]

[image]

Исходный текст программы

program task1;

uses crt;

var

h,x,y,z:real;

begin

clrscr;

x:=1; y:=1; z:=1;

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

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

write('z = '); readln(z);

h:=2+sqr(x)/sqrt(x)+abs(y*y*y)/sqrt(3)+(sqr(sqr(z))*(ln(x)+1)*sqrt(2))/sqrt(4);

writeln('Исходные данные:');

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

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

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

writeln('Результат:');

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

readln;

end.

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

[image]

Тема 2. Логические выражения. Условный оператор

Задание

[image]

Исходный текст программы

program task2;

uses crt;

var

c,x,y,xy:real;

begin

clrscr;

writeln('Введите исходные данные:');

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

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

xy:=x-y;

if (xy45) then c:=sqr(y-x) else c:=cos(y);