PASCAL
ahojte, prosím, ak je tu niekto taký, kto vie robiť v pascale, mohol by mi na toto napísať príkazy? Veľmi to potrebujem. Ak by to niekto vedel, bola by som veľmi vďačná. Na obrazovku sa vypíše 1 – nakresli kružnicu, 2 štvorec, 3 čiaru. Následne používateľ 1,2,3. Potom sa opýta program: zadaj počet. Používateľ zadá počet napr: 20. Program vykreslí počet útvarov ktoré zadal používateľ s náhodnými parametrami.
a v čem je problém?
Programovat ses naučila, ne?
Předpokládám, že se jedná o závěrečný test/úkol před konce školního roku.
Možná by bylo vhodné vložit sem co máš už hotovo, není problém poradit, ale nečekej, že tu za tebe bude někdo psát programy.
edit: základy máš zde: lesson8.php (circle, rectangle, line), co potřebuješ, je už jen kousek kódu, co ti umožní zvolit co a kolik se má vykreslit plus napsat si nějakou proceduru, která bude generovat náhodná čísla (4 by měla stačit, u kružnice jedno prostě nevyužiješ).
Vie to vela ludi ale pisat kompletny program ti nebudem, to zadanie je robota aspon na pol hodinu - hodinu.
Nahodne cislo - vies? Ak nevies tak google.cz a napis tam pascal nahodne cislo
Vytvorit graficku plochu vues? Ak nie tak google
Nakreslit ciaru vies? Ak nie tak google
Kruznica sa kresli napr. tak ze si uhol od 0 po 2pi rozdelis napr. na 1000 casti a v cykle vykreslujes usecku od predch. bodu kruznice pre dalsi bod (pre dany uhol). Suradnice x=stred_x+sin(uhol), y=stred_y+cos(uhol)
A stvorec su 4 usecky (suradnice su snad brnkacka)
A v jakém Pascalu to potřebuješ?
Pokud v klasickém Turbo Pascalu, tak tam bez grafické nadstavby toho moc nevykreslíš.
Pokud v něčem novějším (FreePascal, Delphi), tak tam se kreslí na Canvas a jsou tam přímo příkazy na vykreslení všeho, co potřebuješ.
Už si ten TP moc nepamatuju, ale stačilo použít Uses Graph - standardní knihovna - a TP už uměl kreslit...
V TP 5 už byla, v TP 3 ještě ne. Proto čekám, jestli se autorka dotazu vymáčkne, v čem to vlastně chce kreslit...
ahoj, no myslím, že to má byť v TP3, ...môj profesor nedal žiadne poznámky, tak naozaj neviem čo s tým. Stiahla som si pascal do notebooku, ale nedá sa mi žiadny program otvoriť. Nevieš prečo? Program bol napísaný správne, je možné že to je chyba v notebooku?
ehm.. pascal je programovací jazyk, snáď upresni čo si stiahla a odkiaľ presne...
mám zatiaľ toto spravené, ale stále mi to nejde spustiť. Neviete kde mám chybu?
uses crt;
var a:integer;
begin
writeln('zadaj cislo 1-3');
readln(a);
if a=1 then circle(10:20:30);
if a=2 then rectangle(10,20,30);
if a=3 then line(10,20,30);
delay(10000);
end.
Nejde mi to spustit znamená, že to napíše něco o chybě, třeba na jakém řádku a kde.
Proc mas treba u circle argumenty oddelene dvojteckami?
Pochybuju, ze pro nakresleni trojuhelnika postaci 3 cisla. A pochybuju, ze k nakresleni primky potrebujes 3 cisla.
Ty proste pises neco, o cem vubec nic nevis! Ten program ma napovedu, tak si aspon zjisti, jake ty funkce potrebuji argumenty, aby ti vykreslily, co po nich chces.
Ještě pořád ses nevyjádřila, COS to stáhla do notebooku za IDE (předpokládám, žes nestáhla pouze kompilátor) a tedy V ČEM to píšeš a JAKÁ verze to je.
Nevěřím, že vám vyučující jen řekl "udělejte to v Pascalu" a nedal žádný tip na konkrétní implementaci, resp. jste si nikdy žádné praktické příklady nezkoušeli (pak bych logicky očekával, že to, v čem to zkoušíte, rovná se tomu, co se po vás chce).
Termín pro domácí úlohu již vypršel, tak co by se vracela a ztrácela čas odpovídáním...
Ahojte, nedalo sa skôr prísť, chodím na bilingválne gymnázium, mám aj iné predmety okrem informatiky. Na mojom notebooku mi nešli spustiť v Pascale žiadne programy. Program som si nakoniec vytvorila na PC svojho známeho.