Malá násobilka – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Malá násobilka – Pascal – Fórum – Programujte.comMalá násobilka – Pascal – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
matej130
Duch
25. 1. 2010   #1
-
0
-

Dobrý den, měl bych dotaz ohledně programu na malou násobilku. Můj kod vypadá takto:



program mnasobilka;
uses crt;

var m,cislo,y: integer;
k: char;

begin
ClrScr;
writeln('Mala nasobilka');
repeat;
writeln;
write('Zadejte cislo: ');
readln(cislo);
if cislo > 0 then
begin
m := cislo;
writeln;
writeln('m,m*2,m*3,m*4,m*5,m*6,m*7,m*8,m*9,m*10);
end
else
writeln('Toto cislo neni prirozene');
readln;
writeln('Chcete pokracovat? Y/N ');
readln(k);
until (k='n')or(k='N');
end.


Zajímalo by mě jestli by tento postup nešel nějak zjednodušit
v části výpisu malé násobilky daného čísla pomocí cyklu for.
Nevím jak zformulovat aby se při každém projetí cyklu zvýšit násobek o 1.

Předem děkuji za odpovědi.

Nahlásit jako SPAM
IP: 88.103.166.–
Reklama
Reklama
KIIV+42
God of flame
25. 1. 2010   #2
-
0
-

ac je to neuveritelne for zvetsuje o 1 automaticky.. (nebo zmensuje kdyz das downto misto to)

Nahlásit jako SPAM
IP: 80.250.1.–
Program vždy dělá to co naprogramujete, ne to co chcete...
retriwr
~ Anonymní uživatel
169 příspěvků
25. 1. 2010   #3
-
0
-

vnořením foru a využitím jeho řídící proměnné
místo



writeln('m,m*2,m*3,m*4,m*5,m*6,m*7,m*8,m*9,m*10);

bude


for i := 1 to 10 do
write(m*i);
writeln;

nezkoušel jsem to, tak snad tam není nějaká blbá chyba nebo překlep, ale s tím si už když tak určitě poradíš

Nahlásit jako SPAM
IP: 89.24.114.–
matej130
Duch
25. 1. 2010   #4
-
0
-

To retriwr : Myslel jsem že to budě složitější, ale přesto děkuji za pomoc.

Nahlásit jako SPAM
IP: 88.103.166.–
Mircosoft+1
Věrný člen
26. 1. 2010   #5
-
0
-

Ještě doplním malou drobnost: místo write(m*i); je lepší napsat write(m*i,' '); (číslo a za ním znak "mezera"). Tím dostaneš něco jako 9 18 27 36 45 a ne nečitelný guláš typu 918273645.

Nahlásit jako SPAM
IP: 130.119.248.–
Chceš-li lepší odpověď, polož lepší otázku.
Moje stránka.
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 17 hostů

Podobná vlákna

Mala násobilka v php — založil Mejzi

Nasobilka, lekce 1 — založil P1trs

Okno a násobilka — založil Vasco

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý