Program vykreslí trojuholník z hviezdičiek
Delphi & Pascal (česká wiki)
Category: KMP (Club of young programmers)
Author: ghostix
Program: Trojuholnik.pas
File exe: Trojuholnik.exe
Author: ghostix
Program: Trojuholnik.pas
File exe: Trojuholnik.exe
Program vykreslí trojuholník z hviezdičiek. Použitá procedúra.
{ TROJUHOLNIK.PAS Copyright (c) ghostix } { Program vykresli trojuholnik z hviezdiciek. Pouzita procedura. } { } { Author: Ghostix } { Date : 18.11.2007 http://www.trsek.com } program troj; uses crt; var k,i,pocet,j:integer; procedure trj (x:integer); begin for i:=1 to x do begin for j:=1 to x+1-i do write('*'); writeln; end; end; begin clrscr; writeln('Zadajte podstavu'); readln(pocet); trj(pocet); readln; end.