Vykreslí požadovaný počet čiarok

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: KMP (Programy mladňakoch

Zrobil: ghostix
Program: Proc_s_parametrom_ciarky.pas
Subor exe: Proc_s_parametrom_ciarky.exe

Vykreslí požadovaný počet čiarok. Použitá procedúra.
{ CIARKY.PAS                                  Copyright (c) ghostix }
{ Vykresli pozadovany pocet ciarok. Pouzita procedura.              }
{                                                                   }
{ Author: Ghostix                                                   }
{ Date  : 25.11.2007                           http://www.trsek.com }
 
Program Ciarky;
Uses CRT;
Var p:integer;
 
Procedure Ciara(N:integer);
  var i:integer;
    begin
      For i:=1 to N do Write('-');
      Writeln;
    end;
 
begin
  Writeln('Zadaj pocet pomlciek');
  Readln(P);
  Ciara(P);
  Readln;
end.