Witam!
Jestem studentem I-szego roku informatyki, i staram się zrobić "prosty przykład" zaproponowany przez wykładowce...
O object pascalu nie wiem nic, w TP znam z 4 komendy ;)
Program ma rysować romb z gwiazdek w konsoli dla "n=5" zgaduje że n ma być przekątną tego rombu...
Mam plan jak to zrobić ale przy okazji chciałbym zrobić 2gą wersję troszkę bardziej ambitną...
Chce by użytkownik sam podawał długość (ilość gwiazdek) przekątnej
słyszałem że wykładowca lubi robić rzeczy złośliwie np w polu na cyfry wpisać ułamki, wartości ujemne itp ;)
dlatego program muszę zabezpieczyć przed wpisywaniem głupot XD
Po ok 2h na waszym kursie delphi natrafiłem na pierwszy problem z moim programem
Nie wiem jak sprawdzić czy moje "n" w kodzie przekątna NIE jest ułamkiem tzn mogę pracowac tylko na liczbach całkowitych przy moim pomyśle na rysowanie rombu...
Oto kod w 100% moj, proszę tylko o podpowiedz dodania 3ciego warunku, nie jestem orłem z matematyki i po prostu nie mam pojecia co zrobić ze zmienną by sprawdzić czy jest to liczba całkowita...
//Rysuje romb z gwiazdek w konsoli.
//Efekt docelowy dla przekontna=5
{
*
***
*****
***
*
}
const
gwiazdki=1; //Pierwsza gwiazdka tworząca wierzcholek rombu
var
spacje:Integer; //?
przekontna:Currency; //"dlugosc" przekątnej rombu (ilosc gwiazdek)
begin
Writeln('Podaj dlugosc przekontnej rombu');
Writeln('Minimalna wartosc to 3, uzyj CALKOWITYCH liczb NIEPARZYSTYCH!');
Readln(przekontna);
if (przekontna mod 2>0) and (przekontna >=3) and (przekontna ???????) //elminujemy liczby ujemne, mniejsze od 3 oraz ulamki
then
begin // rysujemy romb tylko jeszcze nie wiem jak ;)
Writeln('Rysuje romb...'); // debug - do usunięcia
end
else
Writeln('Wybrano nieprawidlowa liczbe!');
Readln;
???????????
end.
chciałbym umieścić na końcu jakaś komendę idz do początku, restart coś takiego + komendę wyczyść ekran (konsole) na samym początku programu tak jak sie robiło ClrScr; w tutbo pascalu...
Z góry dziękuje za pomoc...