× ! Edge ! × ([info]devour) rakstīja,
@ 2008-11-03 10:09:00
Previous Entry  Add to memories!  Tell a Friend!  Next Entry
Kurš kaut ko no Turbo Paskāļa kaut ko saprot??

(Lasīt komentārus) - (Ierakstīt jaunu komentāru)


[info]munky
2008-11-03 15:19 (saite)
program GradiSinUnCos;

var
Gradi: String;

begin
Write('Ieavdi suuda graadus: ');
Readln(Gradi);
{Funkcija kura paker gradu sinusu un kosinusu
piemeram
Function Sine(num:word) : real;
Begin
Sine := sin(num) / (180 / Pi);
end;

Function Cose(num:word);
Cose := cos(num) / (180 / Pi);
end;
}
WriteLn({izvadam suuda cosinusu un sinusu})
end.

gandriiz gatava programma tik saliec visu pa plauktinjiem

(Atbildēt uz šo) (Iepriekšējais) (Diskusija)


[info]munky
2008-11-03 15:20 (saite)
Gradi: String vietaa Gradi: Integer

(Atbildēt uz šo) (Iepriekšējais)

(Lasīt komentārus) -

Neesi iežurnalējies. Iežurnalēties?