Printable View
Zdrawim
Mam teraz pekne depky. Už pol roka sa učime Turbo Pascal ale nič neviem preto sa pytam či ho tu niekdo ovlada (asi každy 2).
Potreboval by som urobiť (podla profaka lahky) program. - nejake kreslenie + nejake tie blbostičky. Ja sa pytam dopredu či by sa dalo s niekym dohodnuť. Slovakom lebo z Čechom by som sa asi ťažko vyrovnal :? :-(
ProsimVas overclockery nenechajte ma v brinde...
+ Zaplatim alebo nejake tie Audio CD a pod.
budu tet o vikendu vyrabet progray do packalu pro sebe i kamose tak mi to posli a je se ti na to mrknu :arrow: Miro2@volny.cz a pokud to zvladnu ( vedomostne i casove ) tak ti to vyrobim :-)
PS: delame v Delphi a nevim jak tam pouzivat prikazy jako treba - ClrScr, v Turbo se nadeklaruje uses crt ale v delfach nic takoveho neni :? nevi nekdo jak na to ???
Citace:
Původně odeslal Miro2
Mrkni treba na crt32 (http://www.builder.cz/art/komponenty/crt32.html). Ale mam dojem ze to pozadovane "kresleni" by asi nemelo byt v textovem modu ? :)
Clive: Nechci ti radit, ale po pul roce bys mozna mohl neco vyplodit za domaci ukol sam ? :-) A nebo co treba zkusit Google ?
Jakakoli prace s grafickym rozhranim v TP je optuz, clovek se podstatne dele drbe s GUI nez se samotnym programem......
Ja som sa za cely rok naucil tiez velke prd a zaverecny program som robil doslova den pred odovzdanim. Zhanal som ludi, ktory bi mi to spravili, ale bud to boli k****i alebo zato chceli prachy a to dokonca nehorazne. Tak som si nasiel na nete jeden rusky program, prerobil som ho do slovenciny, malo to asi 20 stran zdrojaku a este ma s tym ucka chcela poslat na SOCKU ;D Nakoniec som vyliezol z Pascalu za 2.Citace:
Původně odeslal cLiVe
EDIT: nieco pohladam a poslem, ale najskor az v pondelok.
Uz vidim nekoho jak za tebe dela zaverecny program, coz je vetsinou nekolikahodinova/denni prace, jen proto ze ses na to vy*ral. Kdyz za mnou nekdo prijde neco vysvetlit nebo potrebuje pomoc s casti programu tak pomuzu, ale pokud to nekdo chce cele a nema o tom ani paru tak na ty zvysoka kasluCitace:
Původně odeslal andy
Pani tak ak by sa dalo dam sem zadanie a ak by to bolo možne .. :?
Vsak som si aj tak nakoniec pomohol sam tak čo :lol:Citace:
Původně odeslal Lopan
to je presne to co hledam :DCitace:
Původně odeslal viki_
jeste bych se zeptal jak to mam do tech Delph nacpat ???
To je pravda. Ještě že maturuju z Visual Basicu. Dělal jsem projekt - taky malování. Na VB se mi líbí, že se nemusím programovat s GUI a celé ho mám za chvíli navržené.Citace:
Původně odeslal Lopan
2cLive: Škoda, že to musí být v packalu a ne třeba v C++. Pascal moc neumím. Jinak bych pomohl.
No, uz je to par let, ale treba si vzpomenuCitace:
Původně odeslal cLiVe
tak uz by bylo nacase to sem dat :wink: nebo uz sis je vsechny napsal :-)Citace:
Původně odeslal cLiVe
To mi musi dať profak až potom to môžem dať sem :( a to bude až nabuduci pondelok.Citace:
Původně odeslal Miro2
Pani už teraz pondelok bude to zadanie.
Potrebujem napisať program toto je znenie ---
NApište program, ktory dokaže vypočítať obsah a obvod kruhu, štvorca a obdlžnika podla zadanych parametrov (stran polomera)
Parametre si treba vypítať, pričom PC sa najskor spýta pre aky geometricky utvar sa rozhodne. Na konci výpočtu sa program spýta, či chceme vypočet opakovať.
please ktory boli už v predchadzajucom threade a cheli pomoct. poyrite sa mi na toto.
Ide mi o krk pretože ak toto nebudem mať dowidenia 4 ročnik
odmena vas neminie!!!
please help me
to si delas srandu? to by prece zvladlo i maly dite...
kdyby to bylo v Delphi nebo Jave, tak uz to tu mas...ale v TP jsem uz dlouhoooo nedelal...
do kdy to mas mit?
Custe nevite nekdo jak v pascalu vymazat buffer. Myslim kdyz treba nactu do readkey nejakou hodnotu a pak ji chci v prubehu programu vymazat ???
cLiVe Zaslal: 26. května 2003 16:18 Předmět:
--------------------------------------------------------------------------------
Potrebujem napisať program toto je znenie ---
NApište program, ktory dokaže vypočítať obsah a obvod kruhu, štvorca a obdlžnika podla zadanych parametrov (stran polomera)
Parametre si treba vypítať, pričom PC sa najskor spýta pre aky geometricky utvar sa rozhodne. Na konci výpočtu sa program spýta, či chceme vypočet opakovať.
please ktory boli už v predchadzajucom threade a cheli pomoct. poyrite sa mi na toto.
Ide mi o krk pretože ak toto nebudem mať dowidenia 4 ročnik
odmena vas neminie!!!
please help me
Jesti jsem to dobre pochopil tak se to zepta jaky je to geometricky utvar a potom se zepta na starnu nebo polomer a vypocte to...
Jestil je to tak tak bych ti to udelal jenze musel bys pockat(nevim jak dlouho), protoze se mi posral hadr...
neco v tomhle stylu? toto sem vyplodil za 3 minuty, nemam tady zadny compiler takze nevim jestli to funguje, je tam urcite spousta chyb ale myslim ze bys z toho mohl vychazet, odmeny se zrikam ve prospech OC fora :wink: ,
je to tak naflakane ani nevim co tam je vsechno za chyby ale nemam cas tak si to opravKód:program obsahy;
uses crt;
begin
clrscr;
zvol_obr;
end.
procedure (zvol_obr);
var volba:char;
begin;
writeln('Jaky utvar chces pocitat? (k-kruh, o-obdelnik');
readln(volba);
case volba of
'k': kruh;
'o': obdelnik;
otherwise zvol_obr;
end;
end;
procedure (kruh);
var pol,obsah,obvod: real;
volba:char
begin;
writeln ('zadej polomer kruhu: ');readln(pol)
obsah:=(2*3.1415*pol);
obvod:=(3.1415*(pol^2));
writeln;
writeln('Obsah: ',obsah);
writeln('Obvod: ',obvod);
writeln('Prejes si jeste neco pocitat? (a/n) ');readln(volba);
if volba='a' then zvol_obr;
end;
procedure (obdelnik);
var a,b,obvod,obsah : real;
volba: char;
begin;
writeln ('zadej strany a a b: ');readln(a,b)
obsah:=(a*b);
obvod:=(2*(a+b));
writeln;
writeln('Obsah: ',obsah);
writeln('Obvod: ',obvod);
writeln('Prejes si jeste neco pocitat? (a/n) ');readln(volba);
if volba='a' then zvol_obr;
end;
teda v pascale som uz neprogramoval asi 6 rokov, ale moja pripomienka k uvedenemu kodu:
naco su tam preboha tie rekurzie??
:o :o ???
Co je to "otherwise" v case ???
Ludia prosimVas ma to čas asi ešte do na buduceho piatku!
Lempour - velmi dakujem ale niektore veci mi tam nepasuju ako
otherwise - to sme sa neučili preto to nemožem použiť :?
jaj a ešte vam musim povedať že zatial sme sa učili iba tieto procedury alebo príkazy :
Jednotka Graph
Programova Jednotka CRT
Reťazcove Funkcie a procedury
Matem. funkcie a procedury
Prikaz cyklu FOr a While + uplne začiatky TP
No to jste se ani učit nemohli, protože nic takového v Pascalu neexistuje! :lol: ;D :lol: lempour asi myslel „else“. Ty rekurze jsou teda hustý! :o :o :o Ale snaha se cení.Citace:
Původně odeslal cLiVe
Abych jenom nekritizoval, tak jsem tu lempourovu verzi upravil do funkční podoby. Seš teda fakt ale ostuda, tohle by si měl umět po půl roce sám.
Kód:program Obsahy;
Procedure Kruh;
var pol: real;
begin;
writeln ('Zadej polomer kruhu: ');
readln(pol);
writeln('Obsah: ',Pi*sqr(pol):0:3);
writeln('Obvod: ',2*Pi*pol:0:3);
writeln;
end;
Procedure Obdelnik;
var a,b: real;
begin;
writeln('Zadej strany (a) a (b): ');
readln(a,b);
writeln('Obsah: ',a*b:0:3);
writeln('Obvod: ',2*(a+b):0:3);
writeln;
end;
var volba: byte;
begin
repeat
writeln('Jaky utvar chces pocitat?');
writeln('0: konec');
writeln('1: kruh');
writeln('2: obdelnik');
readln(volba);
case volba of
1: Kruh;
2: Obdelnik;
end;
until volba=0;
end.
To uz vyzera naozaj ako pascal :-)
Jo, to je poměrně jednoduchej prográmek :) to nezvládneš napsat? :)
Můžeš se čistě pro inspiraci mrknout na moji semestrálku, je tu o ní thread... ale nedoporučuju ji přímo odevzdat, nevím jak bys vysvětloval ten asm.. :lol:
Ďakujem Dawn si profik skontrolujem či to funguje ako ma :-)
prosimta možeš mi ešte napisať čo si tam prečo dal ? iba tie procedury
pi*sqr
2*pi
0:3
Zatial ďakujem všetkym
no dyk sem rikal ze to je jenom tak z hlavy, ja sem tak 4 roky vubec nic nenaprogramoval
rekurzie?? s tim bych se snad vyrovnal pri ladeni ;D
k tomu otherwise: je to rozsireni Pascalu podle normy ISO 10206 (Extended Pascal), nekde sem to videl, tak se omlouvam vsem koho to zmatlo :wink:
..sem nevedel jak se to "case" pouziva tak sem nasel nejakej manual
Pi
To je snad jasný z názvu, ne? Funkce vrací hodnotu Pi.
Sqr
Druhá mocnina
0:3
Parametr procedury „write(ln)“, kterým lze nastavit, jak se zobrazí číslo. První číslo (0) udává minimální celkovou délku čísla (znaky!). Pokud by bylo číslo při výpisu kratší než uvedená hodnota, doplní se zleva mezerami. To se dá použít na zarovnání čísel pod sebou na desetinnou čárku. Hodnota 0 se ignoruje. Druhé číslo (3) udává počet desetinných míst. Když tenhle parametr vynecháš, tak se reálná čísla zobrazují standardně v exponenciálním tvaru, což není zrovna přehledné.
Ani tento nefunguje! :-(
tak programoval som uz velmi davno,ale taketo programi som zvladal v pohode a to dokonca na 8bit Sharp MZ-800 a Basic...
Clive: nic vzlom,ale co je to za skolu kam chodis?? :lol:
Citace:
Původně odeslal Mikhaill
je to asi najväčšia pajta na slovensku nadavaju tomu že citujem
" stredne odborne učilište chemicke Novaky" - SOUCH
PAJTA NAD PAJTY !!!!
zajtra to mam odovzdať a asi som v peknej eliptickej pi*i ;D
Co ti na tom nefunguje? Já jsem to samozřejmě zkoušel, než jsem to sem dal.Citace:
Původně odeslal cLiVe
Diky za pomoc všetkym - uprimne!Citace:
Původně odeslal Dawn
Fakt ten program nešiel. Ale dostal som zan 5 ale na vysvečku bude 2 takže ;D
Ešte raz THANX ALL !!
Ty lenivec jeden!!! Je tu sice par pokusov, ako ten primitivny program napisat, no ti, co to pisali, zabudli, ze v pascale treba pisat aj hlavny program. Vazeni, vy ste tam napisali len procedury,tie sice pomozu, no treba ich volat z hlavneho programu. A pozdravuj svojho pana profesora, osobne sa s nim poznam. Mali sme spolu dost dlhu debatu v autobuse... Keby ten vedel, ako sa snazios nieco vyprodukovat, asi by sa dost cudoval.