Strona 1 z 2

[Pascal] Pokazywanie nieparzystych liczb

: 05 wrz 2013, 15:03
autor: winuser
Mam następujący problem - powróciłem na chwilę do Pascala, bo potrzebuję napisać bardzo prosty program - ma on pozwolić użytkownikowi na wpisanie cyfr po czym ma pokazać tylko liczby parzyste. Dobrnąłem do momentu:

Kod: Zaznacz cały

program liczby; uses crt; var a:integer; b:char; begin repeat writeln('Podaj liczby'); readln(a); if a mod 2 <> 0 then writeln(a); readln; writeln('Czy chcesz dalej wpisywac'); writeln('Jesli tak wcisnij Y jesli nie to N'); until (b='n' or b='N');
i nie potrafię sobie poradzić dalej :[ Pomoże ktoś, proszę o szybką pomoc, bo potrzebne na jutro :(

Re: [Pascal] Pokazywanie nieparzystych liczb

: 05 wrz 2013, 16:40
autor: bsystem
nie wczytujesz b i nie masz "enda" na końcu imo.

Re: [Pascal] Pokazywanie nieparzystych liczb

: 05 wrz 2013, 21:06
autor: piotrmika
Nie lepiej utworzyć tablicę do której będziesz wczytywał liczby oddzielone przecinkami aż do momentu wciśnięcia Entera? Później przelecisz tablicę pętlą i wypiszesz tylko liczby parzyste.

Kod: Zaznacz cały

program liczby; var a:integer; var b:char; begin repeat writeln('Podaj liczbę'); readln(a); if a mod 2 <> 0 then writeln(a); writeln('Czy chcesz dalej wpisywać?'); writeln('Jeśli tak wciśnij Y, jeśli nie wciśnij N'); readln(b); until(b='n'); end.
Działający kod. Nie używasz nigdzie crt.

Re: [Pascal] Pokazywanie nieparzystych liczb

: 05 wrz 2013, 21:07
autor: bsystem
Nie lepiej utworzyć tablicę do której będziesz wczytywał liczby oddzielone przecinkami aż do momentu wciśnięcia Entera? Później przelecisz tablicę pętlą i wypiszesz tylko liczby parzyste.

Kod: Zaznacz cały

program liczby; var a:integer; var b:char; begin repeat writeln('Podaj liczbę'); readln(a); if a mod 2 <> 0 then writeln(a); writeln('Czy chcesz dalej wpisywać?'); writeln('Jeśli tak wciśnij Y, jeśli nie wciśnij N'); readln(b); until(b='n'); end.
Działający kod. Nie używasz nigdzie crt.
Przecież Ty tego nie wczytujesz do tablicy :D

Re: [Pascal] Pokazywanie nieparzystych liczb

: 05 wrz 2013, 21:14
autor: piotrmika
Dałem przykład tylko jak można rozwiązać to inaczej. W tamtym roku pisałem program kuzynce koleżanki, to dostał pałę bo wykorzystałem tam tablicę, których nie brali i nie umiał wytłumaczyć skąd mu się to wzięło.

Re: [Pascal] Pokazywanie nieparzystych liczb

: 05 wrz 2013, 22:53
autor: Onset
A może... POKAŻ, CO CI DEBUGGER MÓWI?

Re: [Pascal] Pokazywanie nieparzystych liczb

: 05 wrz 2013, 23:18
autor: lolasher
Czemu nie robicie wcięć? Ja wiem, że krótki kod, ale ze trzy razy musiałem czytać, żeby załapać :)

Re: [Pascal] Pokazywanie nieparzystych liczb

: 09 wrz 2013, 4:56
autor: winuser
Nie lepiej utworzyć tablicę do której będziesz wczytywał liczby oddzielone przecinkami aż do momentu wciśnięcia Entera? Później przelecisz tablicę pętlą i wypiszesz tylko liczby parzyste.

Kod: Zaznacz cały

program liczby; var a:integer; var b:char; begin repeat writeln('Podaj liczbę'); readln(a); if a mod 2 <> 0 then writeln(a); writeln('Czy chcesz dalej wpisywać?'); writeln('Jeśli tak wciśnij Y, jeśli nie wciśnij N'); readln(b); until(b='n'); end.
Działający kod. Nie używasz nigdzie crt.
Wielkie dzięki :) Leci + do Ciebie ;)

Re: [Pascal] Pokazywanie nieparzystych liczb

: 09 wrz 2013, 8:13
autor: piotrmika
Czemu nie robicie wcięć? Ja wiem, że krótki kod, ale ze trzy razy musiałem czytać, żeby załapać :)
Bo w dzisiejszych czasach każdy normalny kompilator pomaga Ci, robiąc te wcięcia za Ciebie, gdy mądrze używasz klamer, ale nie Free Pascal. Poza tym czas przeznaczony na robienie wcięć w tak prostym projekcie można przeznaczyć na coś bardziej pożytecznego.

Re: [Pascal] Pokazywanie nieparzystych liczb

: 09 wrz 2013, 10:26
autor: winuser
Niestety Free Pascal jest nieco zacofany, z wszystkich kopmilatorów najbardziej lubię DevC++ - nie ma IDE tylko normalne środowisko okienkowe, nie razi w oczy i jest po Polsku (chociaż w Angielskim nie tkwi problem). Temat można zamknąć.

Re: [Pascal] Pokazywanie nieparzystych liczb

: 09 wrz 2013, 11:55
autor: lolasher
Bo w dzisiejszych czasach każdy normalny kompilator pomaga Ci, robiąc te wcięcia za Ciebie, gdy mądrze używasz klamer, ale nie Free Pascal. Poza tym czas przeznaczony na robienie wcięć w tak prostym projekcie można przeznaczyć na coś bardziej pożytecznego.
W Pascalu swego czasu też robiłem wcięcia, nie wiem jak w Free, ale w Turbo 7.0 tab przesuwał tak ładnie o trzy znaki. Aktualnie mi się najlepiej pisze w XCode, albo Visual Studio, Deva strasznie, nie lubię, może to kwestia konfiguracji, ale brak debuggera irytuje.

Re: [Pascal] Pokazywanie nieparzystych liczb

: 09 wrz 2013, 12:23
autor: piotrmika
Nie miałem czasu na szukanie kompilatora, bo nie programuję w Pascalu, a kojarzyłem tylko FreePascal.

Co do VisualStudio, uważam, że kwestie pomocy w pisaniu kodu są tam najlepiej rozwiązane. Gdy programuję w PHP używam NetBeansa, który również jest bardzo pomocny.

Re: [Pascal] Pokazywanie nieparzystych liczb

: 09 wrz 2013, 18:43
autor: pc.qwerty
najbardziej lubię DevC++ - nie ma IDE
Bloodshed Dev-C++ is a full-featured Integrated Development Environment (IDE) for the C/C++ programming language.
Wygląda legalnie.

Re: [Pascal] Pokazywanie nieparzystych liczb

: 09 wrz 2013, 18:47
autor: PisarzKsiazkowicz
z wszystkich kopmilatorów najbardziej lubię DevC++.
:homerpalm:

Re: [Pascal] Pokazywanie nieparzystych liczb

: 09 wrz 2013, 18:48
autor: Rublik
FANTASTYCZNY