Paskal problem!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Posto sam na brzinu kucao slucajne mi se omaklo ono p:Integer, koje ne treba tamo da stoji. Inace imam Turbo Pascal for windows.
Da netreba mozda jos nesto da stoji osim onoga
Inc(Broj_ponavljanja); jer program koji je napisao Strog nece nista da ispisuje nakon unetog teksta.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Zna li neko kako da resim zadatak u kome ce ipisivati sve samoglasnike u unetoj reci.
Napominjem da kod ovog tipa nije radeo
if neka_rec[i] = 'A' or neka_rec[i] = 'E' or neka_rec[i] = 'I' or neka_rec[i] = 'O' or neka_rec[i] = 'U' then

nije radeo kopajler kaze Operator not overloaded
Princip je isti sve ostalo su nijanse..Mislim na program iznad ali malo modifkovan.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Licanin ::Posto sam na brzinu kucao slucajne mi se omaklo ono p:Integer, koje ne treba tamo da stoji. Inace imam Turbo Pascal for windows.
Da netreba mozda jos nesto da stoji osim onoga
Inc(Broj_ponavljanja); jer program koji je napisao Strog nece nista da ispisuje nakon unetog teksta.

Naravno da nije stampao nista posto nisam stavio nigde da se stampa posto sam mislio da ces to i sam videti ... Samo posle tog Inc(Broj_ponavljanja); stavi jos i writeln(Broj_ponavljanja); .

@Gama

Nemam sada vremena da malo dublje udjem u problematiku, mada mislim da bi trebalo i tako kako si napisao da radi! Pogledacu do veceras, sad sam malo u frci sa vremenom .

Dopuna: 01 Mar 2006 17:25

A joj, pa sam pogledah ... Gama ubaci sve to u zagrade i trebalo bi da proradi ... Znaci pisi ovako:

if (neka_rec[i] = 'A') or (neka_rec[i] = 'E') or (neka_rec[i] = 'I') or (neka_rec[i] = 'O') or (neka_rec[i] = 'U') then begin end;

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@Gama
Mozda bi bilo mnogo prostije da si formirao jedan skup samoglasnika pa zatim proveravao da li neko slovo postoji u tom skupu.

Samo da dodam jednu sitnicu oko IF naredbe. Secam se kada sam isao na skolska takmicenja iz pascala, uvek se zahtevalo da se program izvrsi za 1s (sekundu). Znaci uvek smo morali da izbegavamo upotrebu IF naredbi jer je to najvise usporavalo program.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Posto i ja imam jedan problem a ova tema se zove "Paskal problem", nadam se da nema smetnje da ovo pitanje postavim ovde !!!

U pitanju je prosek ocena. U skoli smo radili ovaj zadatak i kod svih radi samo kod mene ne. Ne znam u cemu je problem. Ako moze mala pomoc.

program prosek_case_of; uses wincrt; var x,y,z,k,j,a:real; begin      write('UNETI PET OCENE I ISPISATI USPEH');      read (x,y,z,k,j);      a:=(x+y+z+k+j)/5;      a:= round(a);      case  a (*ovde pokaze neku gresku*)of      1:write('nedovoljan');      2:write('dovoljan');      3:write('dobar');      4:write('vr.dobar');      5:write('odlican')      end;      write(a);       end.

Edit by Srki_82: koristi code tagove.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Mislim da je greska kod toga sto ti trazis celobrojnu vrednost u CASE-u (1,2,3,4,5) a promenljiva 'a' je tipa REAL tako da nece biti 1 vec 1.0 npr.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da ali sam stavio round(a).

Zaista ne znam u cemu bi mogla da bude greska ???

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Tu je greska! Round zaokruzi vrednost na npr. "3.0" a ne na 3 zbog realnog tipa. Ako mi ne verujes ispred CASE dodaj write(a) pa ces videti koju vrednost ce ti za a ispisati.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pravilno:

var
A:integer;
x,y,z,k,j : real;
begin
........................
A:= Round ((x+y+z+k+j)/5);
....................

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala puno na pomoci i ukazanim greskama !!!