Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Turbo pascal 4 boký jehlan

Dobrý den,

Učitel nám zadal práci v Turbo Pascalu 4 boký jehlan. Jedná se o výpočty Uhlopříčky, obvodu a obsahu. Já jsem udělal jen uvodní obrazovku na kterou se to má napojit. Vůbec nevím jak to udělat nemáte někdo nebo neporadíte ten kod?

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny
Předmět Autor Datum
No dělaly jsme první práci to byla Program pokus1; uses crt; begin clrscr; TextColor(yellow); write…
milcek 06.01.2012 16:44
milcek
k tomu exe suboru, co si sem pastol mas zdrojovy kod? Ved tam si to od teba vypyta stranu a na vypoc… nový
nl12345 06.01.2012 22:33
nl12345
Dobře takže já mám úvodní obrazovku a mezi ni a end. vložím ten kod toho jehlanu chápu to doufám dob…
milcek 06.01.2012 16:57
milcek
Takže začneme hezky od začátku, ok? http://www.ee.ui.ac.id/~astha/courses/daskom/tutp1 .html Po to…
marekdrtic 06.01.2012 17:01
marekdrtic
ok já si to pročtu a pak napíšu
milcek 06.01.2012 17:08
milcek
A to nikdo ze třídy neví, jak se to dělá? Učiteli jsi řekl, že úkolu nerozumíš? nový
host 06.01.2012 21:22
host
Ano, řekl, ale ho to nezajímá. Ze spolužáků to taky nikdo nechápe, akorát jeden a ten má výpočet čtv… nový
milcek 08.01.2012 14:33
milcek
Vzorečky pro jehlan jsi přece dostal hned v druhé odpovědi. nový
host 08.01.2012 14:36
host
jj jasně, ale to je takhle můžu napsat do pascalu nebo to musím upravit třeba aby to vypadalo takhle… nový
milcek 08.01.2012 14:47
milcek
To už je přece obyčejná matematika, to nesouvisí s programováním. nový
host 08.01.2012 14:57
host
Nedělám v Pascalu, ale v ANSI C pro mikrokontrolery, tak snad to bude alespoň vzdáleně podobné. Musí… nový
marekdrtic 08.01.2012 14:57
marekdrtic
Jinak aby jste si nemysleli že jsem nic neudělal tak tady je to co jsem udělal, ale je to určitě špa… nový
milcek 08.01.2012 16:55
milcek
A proč to teda neuděláš dobře? nový
Wikan 08.01.2012 17:00
Wikan
víš proč to neudělám dobře? Protože když tam chci dát vzorec (1/3)*a*a*v tak mi to vyhodí chybu, ale… nový
milcek 08.01.2012 17:03
milcek
No to je jasný, že ti to s "v" nefunguje, když jsi to "v" nikde nezadal. nový
Wikan 08.01.2012 17:06
Wikan
Dejme tomu že jsem ten kod již udělal a objem výpočtu čtverce pro jehlan mi to už počítá,ale teď nev… nový
milcek 08.01.2012 16:58
milcek
Úplně stejně. Jenom prostě použiješ jiný vzoreček. Ale tak nějak netuším, jak chceš vypočítat obsah… nový
Wikan 08.01.2012 17:01
Wikan
to byl jenom příklad nový
milcek 08.01.2012 17:03
milcek
co to je "obsah stvorca pre ihlan" S tebou je tazko, ked ty ani nevies, co mas vypocitat nový
nl12345 09.01.2012 14:47
nl12345
... objem výpočtu čtverce pro jehlan mi to už počítá Opravdu se snažím, ale téhle formulaci nerozum… nový
Pavel 09.01.2012 15:18
Pavel
No že mi to už funguje dneska mi s tím kámoš pomohl, pomohl mi i z kodem ,ale píše mi to 2 chyby jeh… nový
milcek 09.01.2012 16:37
milcek
ked tu ten kod nenapises, tak ti nikto nepovie kde mas tu chybu. Podla mna ti tam niekde chyba jede… nový
nl12345 09.01.2012 17:00
nl12345
Nejspíše ti chybí ";" někde okolo řádku 22. Vlož sem aktuální zdrojový kód. nový
ws79 09.01.2012 17:00
ws79
Tady je ten kod nový
milcek 09.01.2012 17:02
milcek
Tak řádek 23 ReadLn(a, b, v) chybí ";" nový
ws79 09.01.2012 17:04
ws79
A jak to má být teda správně takhle? readln('a, b , c'); ? nový
milcek 09.01.2012 17:06
milcek
Napadá tě ještě jiná možnost? nový
ws79 09.01.2012 17:09
ws79
ReadLn(a, b, v); nový
Wikan 09.01.2012 17:11
Wikan
LOL, včera neuměl nic, dneska už používá procedury, ale nepozná, že mu tam chybí středník. Ten učite… nový
MaSo 09.01.2012 17:10
MaSo
njn ale aji když tám dám ten středník což jsem už aji zkoušel tak to nejde nový
milcek 09.01.2012 17:12
milcek
Malé děti nejdou. nový
MaSo 09.01.2012 17:14
MaSo
:-D díky za odpověď měj se, už to mám můžete lock poslední
milcek 09.01.2012 17:15
milcek
A ja som myslel, že 4-boký ihlan má 4 plochy trojuholníkového tvaru. Nevadí. nový
msx. 09.01.2012 16:54
msx.
Mohl by si mi spíše říct co je to za chybu? nový
milcek 09.01.2012 16:58
milcek
Veď Ti to prekladač píše úplne zrozumiteľne :i: Chyba syntaxe - očakáva sa znak ; a Ty ho tam na kon… nový
pme 09.01.2012 17:13
pme

No dělaly jsme první práci to byla

Program pokus1;
uses crt;
begin
   clrscr;
   TextColor(yellow);
    write('Ahoj ');
    TextBackGround(white);

GoToXY(10,10);
write('Dnes je streda');
repeat until keypressed;
end.

Pak jsme dělaly tu úvodní obrazovku + výpočet no a teď máme udělat výpočet 4-bokého jehlenu a to právě nevím vůbec jak to udělat.

k tomu exe suboru, co si sem pastol mas zdrojovy kod? Ved tam si to od teba vypyta stranu a na vypocet stvorca
vzorce na ihlan ti tu uz niekto pastol, takze rovnako ako si si nacital stranu a, tak nacitas parametre pre ihlan.

Ako sorry, ale ak toto co ti pocita stvorec, nevies zmenit na ihlan, tak patris do pomocnej skoly.

Dobře takže já mám úvodní obrazovku a mezi ni a end. vložím ten kod toho jehlanu chápu to doufám dobře. Začátek kodu jsem myslel toho jehlanu (jenže já nevím jak ten kod napsat. Prostě to vůbec nevím co tam do toho kodu aby to fungovalo mám napsat)

Ano, řekl, ale ho to nezajímá. Ze spolužáků to taky nikdo nechápe, akorát jeden a ten má výpočet čtverce a to bych zvládl i já. Ale nerozumím tomu Jehlanu jedná se o výpočet čtverce pro jehlan. Nevíte někdo ty vzorečky pro jehlan? Třeba čtverec má obsah a*a.

Nedělám v Pascalu, ale v ANSI C pro mikrokontrolery, tak snad to bude alespoň vzdáleně podobné. Musíš si zadefinovat správný datový typ (float/double, nevim jak to v pascalu je, prostě datový typ s plovoucí desetinnou čárkou). Když to napíšeš tak, jak jsi to napsal, tak ti compiler vyhodí chybu (asi parse error). Takže takto (napíšu pro C, přepiš si to do pascalu, úpravy budou minimální):

double a,v,objem; //v a V může dělat problémy, pakliže kompiler není case-sensitive

....

void main()
{
....
objem = (1/3)*a*a*v;
}

Odmocniny se dělají funkcí sqrt (z anglického square root).

Myslím si ale, že jsi neprojevil žádnou vlastní snahu, protože metodou pokus/omyl by to za těch pár dní dokázala a naučila se to i cvičená opice.

Zpět do poradny Odpovědět na původní otázku Nahoru