jatznona utworzono 9 stycznia 2008 utworzono 9 stycznia 2008 Witam mam problem z programem w pascalu, a mianowicie ma on pokazywac ilosc razy wystepowania danej liczby w ciagu n-elementowym i nie wiem co jest zle bo nie dziala tak, jak ma dzialac, gdyby znalazl sie ktos, kto moglby mi pomoc bylabym bardzo wdzieczna, z gory dziekuje:) program czwarty; uses crt; var x,n,k,z: integer; tab1: array[1..10] of integer; begin clrscr; writeln('Program sˆuľy wyznaczania ilo˜ci wyst©powania warto˜ci x w danym ciĄgu'); writeln('Podaj liczb© element˘w ciĄgu:'); readln(n); for k:=1 to n do begin writeln('Podaj ',k,'. element tablicy:'); read(tab1[k]); end; begin writeln('Podaj warto˜† x'); readln(x); if (tab1[k]=x) then begin z:=x+1; writeln( x,' wyst©puje w ciĄgu',z,'razy'); end; end; repeat until keypressed; end.
dudeck komentarz 10 stycznia 2008 komentarz 10 stycznia 2008 Program cos; uses CRT; VAR a,n,x,w,i:INTEGER; BEGIN w:=0; WRITELN('Podaj n'); READLN(n); WRITELN('Podaj x'); READLN(x); FOR i:=1 TO n DO BEGIN WRITELN('Podaj a'); READLN(a); IF a=x THEN w:=w+1; CLRSCR; END; WRITE('X wystąpiło ' ,w); WRITELN(' razy.'); READKEY; END.
Wciąż szukasz rozwiązania problemu? Napisz teraz na forum!
Możesz zadać pytanie bez konieczności rejestracji - wystarczy, że wypełnisz formularz.