Anonymní profil Lasserus – Programujte.com

S kamošem jsme uvažovali trochu
program PRACPRG;
uses crt;
var i,p,r,a,s,n,k,t:integer;
konce: set of char;
text: string[255];
procedure POSLEDNI;
var nevy:string;
i:integer;
begin
nevy:='';
for i:=65 to 90 do
if pos(chr(i), text)=0 then
nevy:=nevy+chr(i);
for i:=97 to 122 do
if pos(chr(i), text)=0 then
nevy:=nevy+chr(i);
writeln('V textu se nevyzkytuji tyto znaky anglicke abecedy: ');
writeln;
writeln(nevy);
readln;
end;

procedure PREDPOS;
var alphabet: set of char;
n,b: integer;
begin
alphabet:=[a,b,c,d,e,f,g,h,ch,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,G,Ch,I,J,K,L,M,O,P,Q,R,S,T,U,V,W,X,Y,Z];
while n<=lenght(text)
if b[n] in alphabet then b:=b+1;
n:=n+1;
writeln('Slov kterych začinaji a konci stejným pismenem je ',b,'.);
readln;
end;

begin
clrscr;
write('Zadej text bez diakritiky: ');
writeln;
readln(text);
writeln('===========================================================');
n:= length (text);
p:=0;
konce:=['.','?','!'];
for i:=1 to length(text) do
if text[i] in konce then p:=p+1;
if p=0 then writeln ('Text neobsahuje zadnou vetu')
else writeln('Text obsahuje ',p,' vet.');
writeln('===========================================================');
s:=0;
for r:=1 to length(text) do
if (text[r]='a') and ((text[r+1]=' ')
or (text[r+1]=',')
or (text[r+1]= '?')
or (text[r+1]='!'))
then s:=s+1;
if text[n]='a' then s:=s+1;
if s=1 then writeln('Text obsahuje ',s,' acko na konci slova.') else
s=0 then writeln('Text neobsahuje zadne acka na konci slov.')else
s>1 then writeln('Text obsahuje ',s,' acek na konci slova.');
writeln('===========================================================');
POSLEDNI;
writeln('===========================================================');
PREDPOS;
writeln('===========================================================');
readln;

end.

To JoDiK : toto je aktuální verze:
program PRACPRG;
uses crt;
var i,p,r,a,s,n,k,t:integer;
konce: set of char;
text:string[255];

procedure POSLEDNI;
var nevy: string;
i: integer;
begin
nevy:='';
for i:=65 to 90 do
if pos(chr(i),text)=0 then
nevy:=nevy+chr(i);
for i:=97 to 122 do
if pos(chr(i),text)=0 then
nevy:=nevy+chr(i);
writeln('V textu se nevyzkytuji tyto znaky anglicke abecedy:');
writeln;
write(nevy);
readln;
end;

begin
clrscr;
write('Zadej text: ');
writeln;
readln (text);
writeln('===========================================================');
writeln;
n:= length (text);
p:=0;
konce:=['.','?','!'];
for i:=1 to length(text) do
if text[i] in konce then p:=p+1;
if p=0 then writeln('Text neobsahuje zadnou vetu!') else
writeln('Text obsahuje ',p,' vet.');
writeln;
s:=0;
for r:=1 to length(text) do
if (text[r]='a') and
((text[r+1]=' ')
or (text[r+1]=',')
or (text[r+1] in konce)
or (text[r+1]='!'))
then s:=s+1;
if text[n]='a' then s:=s+1;
if s=0 then writeln('Text neobsahuje zadne acka na konci slov!') else
writeln('Text obsahuje ',s,' acek na konci slov.');
writeln;

POSLEDNI;

end.

To Mircosoft : prosím já to je pouze jenom podprogram se kterým si fakt nevím rady jinak zadání celé práce je
Zadání: Na vstupu je dán text (max. 255 znaků).
Zjisti a) Kolik obsahuje vět (věta je zakončená ., !, ?). Mám
b) Kolik slov končí písmenem a. Mám
c) Která písmena anglické abecedy se v textu nevyskytují. Mám
d) Kolik slov začíná a končí stejným písmenem. Nemám

Moc prosím.

To Mircosoft : prosím tě nemohl bys mi to napsat do teho protože jak to tam máš napsaný tak jsem to už vůbec nepochpil dík

... atdTo Mircosoft [#142460]:No právě ja bych potřeboval trochku pomoct s tým programem (jako s kódem). Prosím moc.

Ahoj jak už jsem řekl ten prográmek má počítatat kolik slov začíná a končí stejným písmenem jako třeba aha, anakonda, mám, ... atdTo Mircosoft : díky za to že mi chceš pomoct

tomu jaksi nechápu to snad něco takové?
[ if ' 'n+1 = ' ' n-1 stejné:=1 ]
to co je za mezerou a to co je před mezerou jestli se rovná tak někam přiřadím jedna?

program PRACPRG;
uses crt;
var nevyskyt,i,p,r,a,s,n,k,t,x:integer;
text:string[255];
nevy:string[225];
begin
clrscr;
write('Zadej text: ');
readln (text);
n:= length (text);
p:=0;
konce:=['.','?','!'];
for i:=1 to length(text) do
if text[i] in konce then p:=p+1;
writeln('Text obsahuje ',p,' vet.');
s:=0;
for r:=1 to length(text) do
if (text[r]='a') and ((text[r+1]=' ') or (text[r+1]=',') or (text[r+1] in konce) or (text[r+1]='!'))
then s:=s+1;
if text[n]='a' then s:=s+1;
writeln('Text obsahuje ',s,' acek na konci slova.');
***




readln(text);
nevy:='';
for i:=65 to 90 do
if pos(chr(k),text)=0 then
nevy:=nevy+chr(k);
for i:=97 to 122 do
if pos(chr(k),text)=0 then
nevy:=nevy+chr(k);
writeln(nevy);
readln;
end.

***Kolik slov začíná a končí stejným písmenem.

To KIIV : no nejdřív bych vyhledal mezery a to co je za mezerou a před mezerou tak bych to srovnal a to co je stejný tak bych akorát sečetl

To crAzY^ : to druhý spíše

Potřebuju poradit s programem, který počítá kolik slov začíná a končí stejným písmenem. Prosím pomožte, už si fakt nevím rady.