Developing.ru

ЗАДАЧА1. Составьте программу , где в основной программе запрашивается сторона квадрата. В процедуре находится S и P квадрата и результат передаётся в основную программу.

ЗАДАЧА2. В основной программе вводится строка символов и один символ. В функции находится сколько этот символ встречается в строке.
Вывод: количество встречающегося символа и его доля по отношению к всей строке. Выводить в разных строках.

Заранее огромное спасибо!

Первая:
[syntax="pascal"]
uses crt;
var a,S,P: real;

procedure Kv(a_:real; var S_,P_:real);
begin
S_:=sqr(a);
P_:=4*a;
end;

begin
clrscr;
write('Vvedite storonu kvadrata: ');
readln(a);
Kv(a,S,P);
writeln('Ploshad kvadrata: ',S:6:2);
writeln('Perimetr kvadrata: ',P:6:2);
readkey;
end.
[/syntax]
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Вторая:
[syntax="pascal"]
uses crt;
var s:string;
ch:char;

function f(s_:string; ch_:char):integer;
var i,kol:integer;
begin
kol:=0;
for i:=1 to length(s_) do
if s_=ch_ then inc(kol);
f:=kol;
end;

begin
clrscr;
write('Vvedite stroku: ');
readln(s);
write('Vvedite simvol: ');
readln(ch);
writeln('Simvol vstrechaetsia v stroke ',f(s,ch),' raz.');
writeln('Ego dolia v stroke: ',length(s)/f(s,ch):6:2);
readkey;
end.
[/syntax]