[Pascal] Modyfikacja programu - spirala Archimedesa

lutnia
Użytkownik
Użytkownik
Posty: 33
Rejestracja: 6 lis 2011, o 11:35
Płeć: Kobieta
Lokalizacja: Szczecin
Podziękował: 3 razy

[Pascal] Modyfikacja programu - spirala Archimedesa

Post autor: lutnia »

Witajcie. Który element mam zmienić, aby spirala była szersza, tj. odstępy pomiędzy kolejnymi okręgami. Miałam zrobić jakieś wariacje i zrobiłam, ale te spirale są bardzo malutkie. Proszę o pomoc.

Kod: Zaznacz cały

program spirala;
uses crt,graph;
var t,x,y,a,b:integer;
    z:real;
BEGIN
   initgraph(a,b,');
   t:=100;
   repeat
        z:=t*PI/180;
        x:=round(z*cos(z)+getmaxx div 2);
        y:=round(z*sin(z)+getmaxy div 2);
        putpixel(x,y,red);
        t:=t+4;
        delay(1);
        delay(3);
   until z>=5000;
closegraph;
END.
(nie wiedziałam jak to tutaj dodać)
Ostatnio zmieniony 26 lut 2012, o 16:09 przez Afish, łącznie zmieniany 1 raz.
Powód: Staraj się lepiej dobierać nazwy tematów, tak by wskazywały o czym jest treść zadania.
abc666

[Pascal] Modyfikacja programu - spirala Archimedesa

Post autor: abc666 »

Pomnóż z*cos(z) i z*sin(z) przez stałą.
ODPOWIEDZ