Nejste přihlášen/a.
Ahojte 
potrebovala by som pomôcť s programom v pascale...program má po zadaní dĺžky ,,odvesny´´ vytvoriť trojuholník. Vid. príklad...neviem ako na to..prosím pomoc! :DD
príklad:
******
*****
****
***
**
*
poznámka: odmyslite si to riadkovanie
1 odpověď na otázku
Řazeno dle hodnocení
woral*
0x
Ahoj,
Já sice umím jen v Borlandu, ale co jsem se díval na net, tak ty příkazy se od pascalu moc neliší, takže tady je tělo programu v borlandu:
# include
# include
void main()
{
int n,i; -zadání neznámých
clrscr();
printf(" zadej velikost odvesny :"![;)]( ";)")
;
scanf("%d",&n); -čtení znaku n z klávesnice
n=n+1;
while(n>0)
{
n=n-1;
for(i=n;i>0;i-) -cyklus for
{
printf("*"![;)]( ";)")
; -při každém odečtení 1 v cyklu for od n to vykreslí *
}
printf(""![;)]( ";)")
; -až se dokončí cyklus for, tak se udělá nový řádek, odečte se 1 od n a cyklus for jede znovu ovšem n je o jedno menší... a tak furt dokola dokud je n>0.
}
while(!kbhit()); -ukončení programu stiskem lib. klávesy.
}
![Informatika-pascal, príklad, trojuholník]()
;
scanf("%d",&n); -čtení znaku n z klávesnice
n=n+1;
while(n>0)
{
n=n-1;
for(i=n;i>0;i-) -cyklus for
{
printf("*"; -při každém odečtení 1 v cyklu for od n to vykreslí *
}
printf(""; -až se dokončí cyklus for, tak se udělá nový řádek, odečte se 1 od n a cyklus for jede znovu ovšem n je o jedno menší... a tak furt dokola dokud je n>0.
}
while(!kbhit()); -ukončení programu stiskem lib. klávesy.
}
Přihlásit se k odběru odpovědí z této otázky:
Neneseme odpovědnost za správnost informací a za škodu vzniklou jejich využitím. Jednotlivé odpovědi vyjadřují názory jejich autorů a nemusí se shodovat s názorem provozovatele poradny Poradte.cz.
Používáním poradny vyjadřujete souhlas s personifikovanou reklamou, která pomáhá financovat tento server, děkujeme.
Copyright © 2004-2026 Poradna Poradte.cz. Všechna práva vyhrazena. Prohlášení o ochraně osobních údajů. | [tmavý motiv]