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.