[Pascal] Funkcja podmieniająca znak oraz funkcja obliczająca ilość wyrazów
Ostatnio zmodyfikowano 2010-06-18 21:25
MasterON Temat założony przez niniejszego użytkownika |
[Pascal] Funkcja podmieniająca znak oraz funkcja obliczająca ilość wyrazów » 2010-06-17 18:22:23 Z góry przepraszam, że zaśmiecam tym forum, ale potrzebuję napisać coś takiego w Pascalku.
1. Napisz funkcję, która zmienia wybrany znak w tekście na nowy znak. Nagłówek funkcji: Function ZmianaZnakow(napis:string: stary_znak, nowy_znak:char):string
2. Napisz funkcje obliczającą z ilu wyrazów składa się wprowadzony tekst. Przyjmij że wyrazy oddzielone są od siebie pojedyńczymi spacjami. Nagłówek funkcji: Function IleWyrazow(napis:string):byte;
POMOCY. SZYBKO. Muszę to dzisiaj mieć. |
|
DejaVu |
» 2010-06-17 21:41:16 No... Pascal - prawie jak C++ => przenoszę. |
|
ison |
» 2010-06-17 21:47:08 nie pamiętam zbytnio pascala ale mogę ci podsunąć pomysł na rozwiązanie... dla Function ZmianaZnakow przeleć forem
for q:=1 to length(napis) do
i sprawdzaj czy dany znak indeksowany q
napis[q]
jest równy znakowi który masz zamienić, jeśli tak to
napis[q]:=nowy_znak;
co do drugiego zadania to wystarczy że przelecisz forem i policzysz spacje, liczba wyrazów będzie wynosiła liczba spacji + 1 zadeklaruj sobie zmienną o nazwie 'spacje'
for q:=1 to length(napis) do if napis[q]=' ' then spacje:=spacje+1
|
|
franz |
» 2010-06-18 21:25:02 2.Funkcja length()
1.Zapisujesz znaki do tablicy potem wybierasz element do zmiany i:
tab := tab[nowy] |
|
| « 1 » |