Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / TOLJAN
.PAS program tolik23{Ї®¤бзЁвлў Ґв б।ҐҐ Є®«-ў® ЎгЄў ў б«®ўҐ Ё б।ҐҐ
Є®«-ў® б«®ў ў ЇаҐ¤«®¦ҐЁЁ};
uses crt;
var
t,r:real;
st,b,c:string;
n,k:integer;
Function slowo(s:string;sr1:real;n,k:integer):real;
VAr i:integer;
BEGIN s:=s+' ';n:=0;k:=0;
for i:=1 to length(s) do
if s[i]<>' ' then k:=k+1
else n:=n+1;
write(k);
sr1:=k/n;
write('sr1=',sr1:4:2);
end;
FUNCTION predlog(a:string;x,y:integer;sr2:real):real;
var j:integer;
begin a:=a+' ';x:=0;y:=0;
for j:=1 to length(a) do
begin
if a[j]:=' ' then x:=x+1
else if a[j]:='.' then y:=y+1
end;
sr2:=x/y;
write('sr2=',sr2:4:2)
end;
begin
clrscr;
writeln('ўўҐ¤ЁвҐ бва®Єг');
read(st);
slowo(b,t,n,k);
predlog(c,r);
readln;
end.
Є®«-ў® б«®ў ў ЇаҐ¤«®¦ҐЁЁ};
uses crt;
var
t,r:real;
st,b,c:string;
n,k:integer;
Function slowo(s:string;sr1:real;n,k:integer):real;
VAr i:integer;
BEGIN s:=s+' ';n:=0;k:=0;
for i:=1 to length(s) do
if s[i]<>' ' then k:=k+1
else n:=n+1;
write(k);
sr1:=k/n;
write('sr1=',sr1:4:2);
end;
FUNCTION predlog(a:string;x,y:integer;sr2:real):real;
var j:integer;
begin a:=a+' ';x:=0;y:=0;
for j:=1 to length(a) do
begin
if a[j]:=' ' then x:=x+1
else if a[j]:='.' then y:=y+1
end;
sr2:=x/y;
write('sr2=',sr2:4:2)
end;
begin
clrscr;
writeln('ўўҐ¤ЁвҐ бва®Єг');
read(st);
slowo(b,t,n,k);
predlog(c,r);
readln;
end.
Соседние файлы в папке Alex