Strona 1 z 2

[Pascal] Pokazywanie nieparzystych liczb

: 05 wrz 2013, 16: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, 17:40
autor: bsystem
nie wczytujesz b i nie masz "enda" na końcu imo.

Re: [Pascal] Pokazywanie nieparzystych liczb

: 05 wrz 2013, 22: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, 22:07
autor: bsystem
piotrmika pisze: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, 22: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, 23:53
autor: Onset
A może... POKAŻ, CO CI DEBUGGER MÓWI?

Re: [Pascal] Pokazywanie nieparzystych liczb

: 06 wrz 2013, 0: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, 5:56
autor: winuser
piotrmika pisze: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, 9:13
autor: piotrmika
lolasher pisze: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, 11: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, 12:55
autor: lolasher
piotrmika pisze: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, 13: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, 19:43
autor: pc.qwerty
winuser pisze:najbardziej lubię DevC++ - nie ma IDE
http://www.bloodshed.net/devcpp.html pisze: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, 19:47
autor: PisarzKsiazkowicz
winuser pisze:z wszystkich kopmilatorów najbardziej lubię DevC++.
:homerpalm:

Re: [Pascal] Pokazywanie nieparzystych liczb

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