Ładny brzuch
Potrzebuje tak zmodyfikowac moj program, aby wyswietlal litery ktore sie pojawily w wpisanym tekscie i ilosc wyswietlen kazdej litery. Wszystk to a byc za pomoca procedur! Prosze o pomoc! :P Z gory dziekuje ;)
program tratata; uses crt; var a,b:string; x,y,z:integer; begin textcolor(white); textbackground(black); clrscr; write('Podaj wyraz '); readln(a); writeln; y:=length(a); z:=0; for x:=1 to y do begin if a[x]='a' then z:=z+1; end; writeln('Znak "a" wystpiˆ ',z, ' razy'); readln; end.
program tratata; uses crt; var a:string; x,y:integer; c:char; ilosc:array['A'..'Z'] of integer; begin clrscr; write('Podaj wyraz '); readln(a); writeln; y:=length(a); for c:='A' to 'Z' do ilosc[c]:=0; for x:=1 to y do ilosc[upcase(a[x])]:=ilosc[a[x]]+1; for c:='A' to 'Z' do writeln('Znak ', c, ' wystapil ', ilosc[c], ' razy'); readln; end.
Uytkownik Deadeye edytowa ten post 24 maj 2007, 13:01
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
program tratata; uses crt; var a,b:string; x,y,z:integer; begin textcolor(white); textbackground(black); clrscr; write('Podaj wyraz '); readln(a); writeln; y:=length(a); z:=0; for x:=1 to y do begin if a[x]='a' then z:=z+1; end; writeln('Znak "a" wystpiˆ ',z, ' razy'); readln; end.
program tratata; uses crt; var a:string; x,y:integer; c:char; ilosc:array['A'..'Z'] of integer; begin clrscr; write('Podaj wyraz '); readln(a); writeln; y:=length(a); for c:='A' to 'Z' do ilosc[c]:=0; for x:=1 to y do ilosc[upcase(a[x])]:=ilosc[a[x]]+1; for c:='A' to 'Z' do writeln('Znak ', c, ' wystapil ', ilosc[c], ' razy'); readln; end.
Uytkownik Deadeye edytowa ten post 24 maj 2007, 13:01