Witam, od jakiegoś czasu postanowilem się nauczyć pascala, dlatego poprosiłem kumpla o kilka zadań z turbo pascala. Moim zadaniem jest wypisać liczby całkowite od min do max z danego przedziału (Przedział będzie ustalał użytkownik). Mógłbym prosić o pomoc, co źle robie?
Program wypisliczb;
Uses CRT;
Var
Liczba: Integer;
Min: Integer;
Max: Integer;
Begin
Clrscr;
WriteLn('Wypisuje liczby od minimalnej do maksymalnej z danego przedzialu.');
WriteLn('Podaj wartosc minimalna przedzialu: ');
ReadLn(Min);
WriteLn('Podaj wartosc maksymalna przedzialu: ');
ReadLn(Max);
WriteLn('Nacisnij klawisz by zaczac wypisywac liczby danego zbioru.');
WriteLn;
ReadKey;
Liczba:= Min;
WriteLn(Min);
Repeat
Read(Min);
WriteLn(Inc(Min));
Until Liczba= Max;
End.
Po drugie nie jestem pewien czy takie coś zadziała: WriteLn(Inc(Min)); i w ogóle to zagmatwałeś. Dawno nie programowałem w pascalu ale powinno być tak:
Program wypisliczb;
Uses CRT;
Var
Liczba: Integer;
Min: Integer;
Max: Integer;
Begin
Clrscr;
WriteLn('Wypisuje liczby od minimalnej do maksymalnej z danego przedzialu.');
WriteLn('Podaj wartosc minimalna przedzialu: ');
ReadLn(Min);
WriteLn('Podaj wartosc maksymalna przedzialu: ');
ReadLn(Max);
WriteLn('Nacisnij klawisz by zaczac wypisywac liczby danego zbioru.');
WriteLn;
ReadKey;
Liczba:= Min;
WriteLn(Min);
Repeat
Inc(Liczba);
WriteLn(Liczba);
Until Liczba= Max;
WriteLn('Nacisnij klawisz by zakonczyc program...');
Readkey;
End.