Skocz do zawartości
gość123456789

problem z zadaniem

Polecane posty

Witam, dopiero zaczynam programować i dostałem zadanie do zrobienia tylko nie wiem jak je rozwiązać. Mam takie zadanie:

Dane jest zadanie (ciąg znaków zakończony znakiem .). Napisać program wyznaczający liczbę wystąpień liter ch.

Zrobiłem tak żeby pokazywało liczbę wystąpień jednej litery ale nie mogę ogarnąć tak żeby

liczyło te ch. Zadanie zrobiłem w programie Free Pascal IDE. Wiem że pewnie dla większości to zadanie wydaje się banalne ale ja nie mogę tego ogarnąć. Pomoże ktoś?

 

program znaki;

uses crt;

var z:char; k:word;

begin

k:=0;

writeln('Wprowadzaj znaki. Kropka-koniec.');

z:=readkey; write(z);

while z<>'.' do

begin

if z='a' then k:=k+1;

z:=readkey; write(z);

end;

writeln;

writeln('Liczba wystapien litery a= ',k);

readln;

end.

Udostępnij ten post


Link to postu
Udostępnij na innych stronach

Można zrobić to na kilka sposobów, dodałbym zmienną statusu, powiedzmy jako Byte, jeśli pojawi się 'c', status z zera zmienia się na 1, i w kolejnym obiegu pętli sprawdzamy, czy wprowadzony znak to h, jeśli tak, zwiększamy licznik, a status zmieniamy na 0, jesli nie, sprawdzamy czy jest c, wtedy ustawiamy znow na 1, jesli nie, to na 0.

Udostępnij ten post


Link to postu
Udostępnij na innych stronach

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Gość
Odpowiedz...

×   Wklejony jako tekst z formatowaniem.   Przywróć formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Twój link będzie automatycznie osadzony.   Wyświetlać jako link

×   Twoja poprzednia zawartość została przywrócona.   Wyczyść edytor

×   Nie możesz wkleić zdjęć bezpośrednio. Prześlij lub wstaw obrazy z adresu URL.

Wczytywanie...

×
×
  • Utwórz nowe...