PDF dokument koji pokriva kompletno gradivo koje se ... - Glavna

Elektrotehnički fakultet Univerziteta u Beogradu Programiranje 1
Zadatak Z41.PAS
Sastaviti program na programskom jeziku Pascal kojim se u tekstu, koji se u proizvoljnom broju
redova učitava preko standardnog ulaza (input), odredi broj cifara, velikih slova, malih slova, i
ostalih znakova. Tekst koji treba obraditi se završava praznim redom. Rezultate ispisati na
standardnom izlazu (output).
PROGRAM znakovi(input, output);
VAR
n_cif, n_vel, n_mal, n_ost, i: integer;
linija: STRING[255]; { max. duzina stringa za Turbo Pascal }
znak: char;
BEGIN
n_cif := 0; n_vel:= 0; n_mal := 0; n_ost := 0;
writeln(output, 'Unesite linije koje treba obraditi (prazan red za kraj unosa)');
readln(input, linija);
WHILE (Length(linija) > 0) DO
BEGIN
FOR i := 1 TO Length(linija) DO
BEGIN
znak := linija[i];
IF (znak >= '0') AND (znak = 'A') AND (znak = 'a') AND (znak 0) }
writeln(output, 'Cifara ima ukupno: ', n_cif);
writeln(output, 'Velikih slova ima ukupno: ', n_vel);
writeln(output, 'Malih slova ima ukupno: ', n_mal);
writeln(output, 'Ostalih znakova ima ukupno: ', n_ost);
writeln(output, 'Pritisnite [ENTER] za kraj programa');
readln(input)
END.
Zadatak ilustruje korišćenje STRING tipa podataka, korišćenje IF-ELSE IF-ELSE kontrolne
strukture, kao i korišćenje petlje sa izlazom na dnu. Poslednja dva reda pokazuju kako se programira
čekanje da korisnik pročita ispisane poruke, pa tek onda kada sam odluči, završava izvršavanje
programa.
Materijal za vežbe na tabli i pripremu ispita Strana 46 od 82