Задача по Turbo Pascal

Практическое задание №1

Записать выражение на языке Паскаль. Использование стандартных функций. Оператор присваивания.

Цель задания
Освоение простейших конструкций языка Паскаль.
Получение навыков работы с числами. Использование стандартных функций, арифметических операций для записи математических выражений на языке Паскаль.
Получение практических навыков работы над ошибками.Освоение синтаксиса языка Паскаль.

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

Записать математическое выражение на языке Паскаль, и составить программу вычисления значения оператора присваивания. Описать порядок действий, над выражением исходя из приоритетности вычислений стандартных функций и арифметических операции.

|1. a = (x+y/(5+x))/|y-sinx+x|+5arctgx | x=47,8 |
||y=-5,5 |
|2. b= etgu+1 lnarcsinv [pic] |u=2,3 |
| |v=0,8 |

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

program zadanie_1;
uses crt;
var
x,y,u,v:real;
a,b:real;
begin
clrscr;
x:=47.8;
y:=-5.5;
u:=2.3;
v:=0.8;writeln('Протокол работы програмы');
writeln('вычисление значений a и b');
a:=(x+y/(5+sqrt(x)))/abs(y-sin(x)+sqrt(x))+5*arctan(x);
b:=exp(sin(u)/cos(u)+1)*ln(arctan(v/sqrt(1-v*v)));
writeln('a=',a);
writeln('b=',b);
writeln('конец счета');
readln;
readln;
end.

Протокол работы програмы

вычисление значений a и b

a= 3.0959950475E+01

b=-6.7000345276E-02

конецсчета

В данной программе были использованы следующие стандартные функции: sin(x), cos(x), abs(x), sqr(x), sqrt(x), arctan(x),exp(x),ln(x).
В частности через функции: arctan(x), sin(x), cos(x), были выражены такие тригонометрические функции как arcos(x), tg(x).

В ходе работы ошибок допущено не было.

Практическое задание №2

Организация ввода/вывода стандартных типов данныхЦель задания
1. Освоение простейшей структуры программы.
1. Получение навыков в организации ввода/вывода значений стандартных типов данных.
2. Получение практических навыков работы в интерактивном (диалоговом) режиме.
Постановка задачи

Организовать ввод/вывод данных заданных типов, предусмотрите выводы с соответствующими заголовками.

| |целые числа ||Вещественные числа |
| | |формат | |формат |
|1 |2 |3 |4 |5 |6 |7 |8 |9 |10 |
|N |колич|стандар|ш |количе|Стандар|ш |знаков |символ|печать булевской |
| |ество|тный |и |ство |тный|ирина|после |ов |переменной |
|в | | |р | | | |. | | |
|а | | |и | | |поля | | | |
|р | | |н | | | | | | |
|и | | |а | | | | | ||
|а | | | | | | | | | |
|н | | |п | | | | | | |
|т | | |о | | | | | | |
|а | | |л | | | | | | |
|| | |я | | | | | | |
|13 |3 |c |3 |6 |C |5 |2 |4 |FALSE |

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

program zadanie_2;
uses crt;
const
log=false;
var
k,l,m:integer;
a,b,c,d,e,f:real;
s1,s2,s3,s4:char;
begin
clrscr;
writeln('Введите целые числа...