Zdravím.
Úloha znie: "Napíšte program, ktorý nakreslí vedľa seba desať štvorcov tak, že každý tretí bude mať polovičnú dĺžku. Dĺžku strany načítajte zo vstupného riadka."
Problém je v tom, že neviem ako spraviť to, že každý tretí bude mať polovičnú dĺžku. Rozmýšľal som, či sa to nedá nejako cez div alebo mod.
Lazarus uloha
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
Re: Lazarus uloha
samozrejme že dá, v tom cykle cez ktorý to budeš robiť budeš robiť mod 3 a ak to bude nulové, tak je to tvoj menší štvorček
Kód: Vybrať všetko
for i:=1 to 10 do begin
if(i mod 3 = 0) then dlzka := strToInt(Edit1.Text) div 2
else dlzka := strToInt(Edit1.Text);
//vykreslenie stvorca s hranou dlzky 'dlzka'
end;Re: Lazarus uloha
Ďakujem veľmi pekne. 