Skocz do zawartości




Zdjęcie

Turbopascal - liczby parzyste i nieparzyste


  • Zaloguj się, aby dodać odpowiedź
7 odpowiedzi w tym temacie

Katalogi.pl

Katalogi.pl
  • Bywalec

#1 Radziu0890

Radziu0890

    1

  • Members
  • Pip
  • 8 postów

Napisano 05 listopad 2009 - 17:43

Wykonaj program, który sprawdzi czy podana liczba z przedziału od 0 do 100 jest parzysta czy nieparzysta.

Program powinien:

1) Wyświetlić opis do czego służy.

2) Zapytać użytkownika o liczbę i dokonać sprawdzenia czy jest ona większa od 0 i mniejsza od 100. Jeśli liczba nie spełnia tego warunku pytać ponownie o liczbę do sprawdzenia.

3) Wykonać sprawdzenie i wyświetlić wynik w postaci komunikatu na ekranie.

Program powinien informować użytkownika na bieżąco co robi. W kodzie programu powinien znaleźć się, w postaci komentarza, numer zadania.

Wynik końcowy powinien być podany z pełnym opisem jak na przykładzie poniżej

Przykład:

Użytkownik podaje liczbę 6.

Komunikat końcowy powinien wyglądać następująco:

Liczba 6 jest parzysta.

__________________________________________________


Var
x: integer;


begin
writeln(‘Program sprawdza liczbę w przedziwne od 0 do 100 czy jest parzysta czy nie’);
writeln(‘Podaj liczbe w przedziale od 0 do 100’);
readln(x);
for i:= 0 to 100 do
begin

x mod 2 = 0
writeln(‘Liczba’ ,x, ‘jest liczbą parzystą);
readln;
end

else

x mod 2 = 1
writeln(‘Liczba’ ,x, ‘jest liczbą nieparzystą);
readln;
end

end.


PROSZE MNIE POKIEROWAC GDZIE SĄ BŁĘDY I NA CZYM POLEGAJĄ.



#2 13ty Smok

13ty Smok

    1

  • Moderators
  • 2314 postów

Napisano 05 listopad 2009 - 18:08

Sprawdzenie przedziału:
if (0<=x)and(x<=100) then // w przedziale
else // poza przedziałem
Sprawdzenie na parzystość:
if (x mod 2)=0 then // parzysta
else // nieparzysta
Lub (szybsza wersja):
if (x and 1)=0 then // parzysta
else // nieparzysta


#3 Radziu0890

Radziu0890

    1

  • Members
  • Pip
  • 8 postów

Napisano 05 listopad 2009 - 19:26

Var
x: integer;

begin
writeln('Program sprawdza liczbę w przedziwne od 0 do 100 czy jest parzysta czy nie');
writeln('Podaj liczbe w przedziale od 0 do 100');
readln(x);

begin
if (0<=x)and(x<=100) then
else
writeln(‘Proszę o podanie liczby z przedziału 0 do 100’);
readln;
if (x mod 2)=0 then
writeln('Liczba' ,x, 'jest liczbą parzystą);
readln;
else
writeln('Liczba' ,x, 'jest liczbą nieparzystą);
readln;
end

end.


CZY TAK POWINIEN TERAZ WYGLADAC CAŁY PROGRAM ?

#4 13ty Smok

13ty Smok

    1

  • Moderators
  • 2314 postów

Napisano 05 listopad 2009 - 19:33

Weź poczytaj jakiś kurs paskala.

#5 Radziu0890

Radziu0890

    1

  • Members
  • Pip
  • 8 postów

Napisano 05 listopad 2009 - 19:37

Hmmm czyli zle, czytam czytam i ciagle nie rozumiem tych pętli a szczegolnie jak sie dodaje +1 itp.
Mógłbys mi powiedziec co jest zle, ułatwi mi to nauke.

#6 13ty Smok

13ty Smok

    1

  • Moderators
  • 2314 postów

Napisano 05 listopad 2009 - 19:49

Poco ci tu pętle?
Wskazanie co jest źle nie ułatwi ci nauki, wystarczy poukładać to co masz w jakieś sensownej kolejności.
Możliwe, że jedynie czego nie rozumiesz: - co to jest begin end i z czym to się je.

#7 Przemk01

Przemk01

    1

  • Members
  • Pip
  • 1 postów

Napisano 05 styczeń 2011 - 20:16

program liczba_parzysta_nieparzysta;
uses crt;
var
a:longint;
Begin
clrscr;
writeln('wprowadz liczbe');
readln (a);
if a mod 2 <> 0 then writeln ('nieparzysta') else writeln ('parzysta');
readln;
readln;
end.

#8 13ty Smok

13ty Smok

    1

  • Moderators
  • 2314 postów

Napisano 07 styczeń 2011 - 20:40

Kolejny niekrofil, patrz na datę postu.



Similar Topics Collapse

  Temat Forum Autor Podsumowanie Ostatni post


Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych


Inne serwisy: IFD