ПАСКАЛЬ!!!=) - Помощь студентам

d00ker · 04.02.2009, 20:25

даны 2 предложения, определить в каком из них количество вхождений букв "б"(в процентах) больше?
испрользовать функцию, считающая количество вхождений буквы в предложение!

maladoy · 04.02.2009, 20:40

Код:

program maladoy;
uses crt;
var s,s1:string;
    i,l,ki,kl:integer;
function kolvo(st:string,bukv:string):real;
  var k,k1:integer;
begin
k1:=0;
 for k:= 1 to length(st) do
 if st[k] = bukv then k1:=k1+1;
 kolvo:=k1/length(st); 
end;
begin 
 writeln('vvedite 1 predlojenie:');
 readln(s);
 writeln('vvedite 2 predlojenie');
 readln(s1);
 ki:=kolvo(s,'b');
 kl:=kolvo(s1,'b');
 writeln('------------------');
 writeln(s);
 writeln ('kolvo bukv v 1 pred v %',ki:4:2);
 writeln('------------------');
 writeln(s1);
 writeln ('kolvo bukv vo 2 pred v %',kl:4:2);
  writeln('------------------');
 if ki>kl then writeln('v 1 predlojenii ')
   else 
 if kl>kl then writeln('vo 2 predlojenii ')
   else
   writeln('odinakovo');
 end.

alex_fcsm · 04.02.2009, 20:42

Код:

var s,s1:string;
 function proc(s:string):real;
 var i,n,k:integer;
 begin
  for i:=1 to length(s) do
  if Upcase(s[i]) in ['А'..'З'] then begin
                                       inc(k);
                                       if s[i]='б' then inc(n);
                                      end;
 proc:=n/k;
 end;
    
    
begin
readln(s);
readln(s1);
if proc(s)>proc(s1) then writeln('1')
   else if proc(s)<proc(s1) then writeln('2')
     else writeln('Equal');
end.

d00ker · 04.02.2009, 22:11

Цитата:

program maladoy;
uses crt;
var s,s1:string;
i,l,ki,kl:integer;
function kolvo(st:string,bukv:string):real;
var k,k1:integer;
begin
k1:=0;
for k:= 1 to length(st) do
if st[k] = bukv then k1:=k1+1;
kolvo:=k1/length(st);
end;
begin
writeln('vvedite 1 predlojenie:');
readln(s);
writeln('vvedite 2 predlojenie');
readln(s1);
ki:=kolvo(s,'b');
kl:=kolvo(s1,'b');
writeln('------------------');
writeln(s);
writeln ('kolvo bukv v 1 pred v %',ki:4:2);
writeln('------------------');
writeln(s1);
writeln ('kolvo bukv vo 2 pred v %',kl:4:2);
writeln('------------------');
if ki>kl then writeln('v 1 predlojenii ')
else
if kl>kl then writeln('vo 2 predlojenii ')
else
writeln('odinakovo');
end.

не правильно работает! веди первое предложение "бабабабабаба" а второе "бабабаба"
и выведет 2 !

d00ker · 04.02.2009, 22:12

Цитата:

var s,s1:string;
function proc(s:string):real;
var i,n,k:integer;
begin
for i:=1 to length(s) do
if Upcase(s[i]) in ['А'..'З'] then begin
inc(k);
if s[i]='б' then inc(n);
end;
proc:=n/k;
end;

begin
readln(s);
readln(s1);
if proc(s)>proc(s1) then writeln('1')
else if proc(s)<proc(s1) then writeln('2')
else writeln('Equal');
end.

не правильно работает! веди первое предложение "бабабабабаба" а второе "бабабаба"
и выведет 2 !

d00ker · 04.02.2009, 22:13

Цитата:

program maladoy;
uses crt;
var s,s1:string;
i,l,ki,kl:integer;
function kolvo(st:string,bukv:string):real;
var k,k1:integer;
begin
k1:=0;
for k:= 1 to length(st) do
if st[k] = bukv then k1:=k1+1;
kolvo:=k1/length(st);
end;
begin
writeln('vvedite 1 predlojenie:');
readln(s);
writeln('vvedite 2 predlojenie');
readln(s1);
ki:=kolvo(s,'b');
kl:=kolvo(s1,'b');
writeln('------------------');
writeln(s);
writeln ('kolvo bukv v 1 pred v %',ki:4:2);
writeln('------------------');
writeln(s1);
writeln ('kolvo bukv vo 2 pred v %',kl:4:2);
writeln('------------------');
if ki>kl then writeln('v 1 predlojenii ')
else
if kl>kl then writeln('vo 2 predlojenii ')
else
writeln('odinakovo');
end.

не работает ваще!!!

AlDelta · 04.02.2009, 22:19

Название.
Закрыто.

04.02.2009, 20:25	#1
d00ker Пользователь Регистрация: 24.12.2008 Сообщений: 65	ПАСКАЛЬ!!!=) даны 2 предложения, определить в каком из них количество вхождений букв "б"(в процентах) больше? испрользовать функцию, считающая количество вхождений буквы в предложение!

04.02.2009, 22:19	#7
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	Название. Закрыто. Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Паскаль, Борланд Паскаль-в чем разница???	Vremya-Dengy	Паскаль, Turbo Pascal, PascalABC.NET	13	31.05.2011 18:23
паскаль	pakusya	Помощь студентам	6	04.03.2010 23:41
Паскаль	Jondeer	Помощь студентам	8	29.10.2007 19:38
Паскаль	Jondeer	Помощь студентам	3	27.10.2007 18:20
паскаль	евгения,	Помощь студентам	1	05.06.2007 09:09