potrzebuje zadania z informatyki w free pascalu. Za pomoca jak najmniejszej ilosci pentli za pomoca gwiazdek napisz litere U
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
"pętli" jak już.
Poza tym, tutaj nawet nie potrzeba pętli.
Wersja bez pętli:
begin;writeln('* *');writeln('* *');writeln('****');end.
Z pętlą:
type q=byte;const P:array[0..10]of Q=($2A,$0,$2A,$A,$2A,$0,$2A,$A,$2A,$2A,$2A);var i:q;begin;for i:=low(p)to high(p) do if p[i]=$AThen writeln else write(chr(P[I]));end.
Tutaj lepiej wytłumaczona wersja:
http://pastebin.com/jNa3wDLK
Zrobiłem to w 3 pętlach for...
Szczerze, można to zrobić jeszcze inaczej.. używając dwóch pętli, ale to będzie za bardzo skomplikowane i nie jestem pewien czy zrozumiesz na tym etapie.
Dlatego zdecydowałem na większą ilość pętli, ale widać od razu co i jak.
Rozwiązanie w załączniku.
edit:
coś zrypało się z załącznikami.. tu masz link do strony z rozwiązaniem: http://pastebin.com/aQcrb0i9