English
English
Slovensky
Slovensky
Česky
Česky
Šarišsky
Šarišsky
Kategória: Programy v Pascale (KMP)

Autor: ghostix
Program: Trojuholnik.pas
Súbor exe: Trojuholnik.exe
Program vykreslí trojuholník z hviezdičiek. Použitá procedúra.
Zobrazené: 1786x


{ 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.
 
 

[Spustiť] [Uložiť] [Tlač] [Poslať e-mailom]