помогите переделать программу в процедуру без параметров

5-9 класс

program Pl_kruga;
uses crt;
var L,S,R:real;

BEGIN
writeln(введи...);
readln(L);
R:=L/2*3.14;
S:=3.14*R*R;
writeln(S:4:2);
end.

Дианочка328 16 февр. 2017 г., 5:09:47 (7 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

Dinaziada

16 февр. 2017 г., 7:38:58 (7 лет назад)

program Pl_kruga;

uses
crt;

procedure SKr(L: real; var S: real);
var
R: real;
begin
R := L / 2 * Pi;
S := Pi * sqr(R);
end;

{ а это вызов }

var
L, S: real;

begin
Writeln('введи...');
Readln(L);
SKr(L, S);
Writeln(S:4:2)
end.

Хороший ответ

0 Жалоба Ответить

Ответить

Другие вопросы из категории

Malkhasyan1968 / 14 февр. 2017 г., 13:29:35

Помогите, пожалуйста. Заранее спасибо. 1. Массив это:

a) совокупность данных одного типа с общим для всех элементов именем.
b) именованная область внешней памяти, содержащая какую либо информацию
c) информация на внешнем носителе

2. Что такое индекс массива?
a) Размерность массива;
b) Глубина массива;
c) Ширина массива;
d) Объем массива.

3. Числовой одномерный массив B заполнен последовательно цифрами 2, 5, 7, 34. Каково будет значение элемента B (3)?
a) 34; b) 5; c) 7; d) 2.

4. Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов, если первоначально
A[3] := 2;
A[4] := 3;
B := A[3];
A[3] := A[4];
A[4] := B?
1) A[3] = 3; A[4 = 3
2) A[3] = 3; A[4] = 0
3) A[3] = 3; A[4] = 2
4) A[3] = 2; A[4] = 3

5. В представленном фрагменте программы значения одномерного массива задаются с помощью оператора цикла. Чему будет равно A[5]?
For i := 1 To 5 Do
Begin
A[2*i - 1] := i;
A[2*i] := i*i
End;

6. Сколько элементов содержится в массиве var c: array [2..23] of integer;
A) 23;
B) 21;
C) 22;
D) 2;
7. В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:
for i:=0 to 10 do
A[i]:= i + 1;
for i:=0 to 10 do
A[i]:= A[10-i];
Чему будут равны элементы этого массива?
1) 10 9 8 7 6 5 4 3 2 1 0
2) 11 10 9 8 7 6 5 4 3 2 1
3) 11 10 9 8 7 6 7 8 9 10 11
4) 10 9 8 7 6 5 6 7 8 9 10