[TP, DOS] Potrebujem spraviť sof v Turbo pascale - zaplatim

[cLiVe]

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.

[Miro2]

budu tet o vikendu vyrabet progray do packalu pro sebe i kamose tak mi to posli a je se ti na to mrknu 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

[viki_]

budu tet o vikendu vyrabet progray do packalu pro sebe i kamose tak mi to posli a je se ti na to mrknu 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

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 ?

[viki_]

Clive: Nechci ti radit, ale po pul roce bys mozna mohl neco vyplodit za domaci ukol sam ? A nebo co treba zkusit Google ?

[Lopan]

Jakakoli prace s grafickym rozhranim v TP je optuz, clovek se podstatne dele drbe s GUI nez se samotnym programem......

[andy]

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.

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 Nakoniec som vyliezol z Pascalu za 2.

EDIT: nieco pohladam a poslem, ale najskor az v pondelok.

[Lopan]

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 Nakoniec som vyliezol z Pascalu za 2.

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 kaslu

[cLiVe]

Pani tak ak by sa dalo dam sem zadanie a ak by to bolo možne ..

[andy]

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 Nakoniec som vyliezol z Pascalu za 2.

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 kaslu

Vsak som si aj tak nakoniec pomohol sam tak čo

[Miro2]

budu tet o vikendu vyrabet progray do packalu pro sebe i kamose tak mi to posli a je se ti na to mrknu 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

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 ?

to je presne to co hledam
jeste bych se zeptal jak to mam do tech Delph nacpat

[Anduril]

Jakakoli prace s grafickym rozhranim v TP je optuz, clovek se podstatne dele drbe s GUI nez se samotnym programem......

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é.

2cLive: Škoda, že to musí být v packalu a ne třeba v C++. Pascal moc neumím. Jinak bych pomohl.

[Radim Štěpanec]

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.

No, uz je to par let, ale treba si vzpomenu

[Miro2]

Pani tak ak by sa dalo dam sem zadanie a ak by to bolo možne ..

tak uz by bylo nacase to sem dat nebo uz sis je vsechny napsal

[cLiVe]

Pani tak ak by sa dalo dam sem zadanie a ak by to bolo možne ..

tak uz by bylo nacase to sem dat nebo uz sis je vsechny napsal

To mi musi dať profak až potom to môžem dať sem a to bude až nabuduci pondelok.

[cLiVe]

Pani už teraz pondelok bude to zadanie.

[cLiVe]

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

[mraky]

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?

[Zett]

Custe nevite nekdo jak v pascalu vymazat buffer. Myslim kdyz treba nactu do readkey nejakou hodnotu a pak ji chci v prubehu programu vymazat

[Zett]

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...

[lempour]

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 ,

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;

je to tak naflakane ani nevim co tam je vsechno za chyby ale nemam cas tak si to oprav

[Absurdus]

teda v pascale som uz neprogramoval asi 6 rokov, ale moja pripomienka k uvedenemu kodu:

naco su tam preboha tie rekurzie??

[Rainbow]

Co je to "otherwise" v case

[cLiVe]

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

[Dawn]

otherwise - to sme sa neučili preto to nemožem použiť

No to jste se ani učit nemohli, protože nic takového v Pascalu neexistuje! lempour asi myslel „else“. Ty rekurze jsou teda hustý! Ale snaha se cení.

[Dawn]

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.

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.