Pascal: Проверь себя (процедуры и функции в Паскале)

Авторadmin / Опубликовано

Решенные задачи: процедуры и функции в Паскале

К оглавлению

Процедуры с параметрами

Pascal procedure 1: Описать процедуру power(A, B, C, D), вычисляющую вторую, третью и четвертую степень числа A и возвращающую эти степени соответственно в переменных B, C и D (A — входной, B, C, D — выходные параметры; все параметры являются вещественными). С помощью этой процедуры найти вторую, третью и четвертую степень пяти данных чисел.

* Из задачника М. Э. Абрамян (Proc2)

Pascal procedure 2: Описать процедуру Triangle(a, P, S), вычисляющую по стороне a равностороннего треугольника его периметр P=3∗a и площадь S=a2∗корень(3)/4 (a — входной, P и S — выходные параметры; все параметры являются вещественными). С помощью этой процедуры найти периметры и площади трех равносторонних треугольников с данными сторонами.

* Из задачника М. Э. Абрамян (Proc4)

Функции в Паскале

Pascal function 1: Описать функцию Exp1(x, ϵ) вещественного типа (параметры x, ϵ — вещественные, ϵ>0), находящую приближенное значение функции exp(x): exp(x)=1+x+x2/(2!)+x3/(3!)+...+xn/(n!)+...(n!=1∗2∗...∗n). В сумме учитывать все слагаемые, большие ϵ. С помощью Exp1 найти приближенное значение экспоненты для данного x при шести данных ϵ

* Из задачника М. Э. Абрамян (Proc40)

Проверить:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

Function Exp1(x,e:Real):Real;
var
i:integer;
xi,ni:Real;
TempRez,Rez:Real;
begin
xi:=1;
i:=0;
ni:=1;
Rez:=0;
TempRez:=1;
While (TempRez > e) do
 begin
  Rez:=Rez+TempRez;
  inc(i);
  xi:=xi*x;
  ni:=ni*i;
  TempRez:=xi/ni;
 end;
Exp1:=Rez;
end;
 
var
  X,E:real;
  i: integer;
begin
   Write('X :');
   Readln(X);
   for i:=1 to 6 do
    begin
     Write('E :');
     Readln(E);
     Writeln(Exp1(X,E));
    end;
end.
К оглавлению