x-kom hosting

Pascal - ciag n-elementowy

jatznona
utworzono
utworzono

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
komentarz

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.

×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Strona wykorzystuje pliki cookies w celu prawidłowego świadczenia usług i wygody użytkowników. Warunki przechowywania i dostępu do plików cookies możesz zmienić w ustawieniach przeglądarki.