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

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

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

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)

Проверить:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure Triangle(a:Real; var P,S:Real);
begin
  P:=3*a;
  S := sqr(2)*sqrt(3)/4;
end;
 
var
  i:Integer;
  a,P,S:Real;
begin
for i:=1 to 3 do
begin
  Write('a: ');
  Readln(a);
 
  Triangle(a,P,S);
  Writeln(P,' ',S:3:2);
end;
end.

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

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.
Поделитесь уроком с коллегами и друзьями:

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

*
*

Вставить формулу как
Блок
Строка
Дополнительные настройки
Цвет формулы
Цвет текста
#333333
Используйте LaTeX для набора формулы
Предпросмотр
\({}\)
Формула не набрана
Вставить