[pascal] Problem z zadaniem

Witam!
Mam problem z zadankiem
Napisz program, który oblicza wartość funkcji u(t) dla dowolnego t
[w=2pi/T]

Nie wiem jak rozgryźć tego sinusa. Jak wiadomo moze on przyjmowac tylko wartosci z przedziału <-1,1>
Warunek ze t>o i t=<T nic mi nie daje, ponieważ i tak musze jeszcze domnożyć przez 'w'i wychodzą wartości wieksze niz 1.

program sinus;
Uses WinCrt ;
var
y,w,T1,Um,t:real;
begin
writeln('Program wylicza funkcje Umsin(wt)');
write ('Podaj wartosc Um:');
read(Um);
write ('Podaj wartosc t:');
read(t);
write ('Podaj wartosc T:');
read(T);
if
(0.5*T1<t) and (t<=T1)
then begin
writeln('Wartosc funkcji wynosi 0');
end;
if (t>0) and (t<=T1*0.5) then begin
w:=2*pi/T1 ;
y:=Um*sin(w*t) ;
writeln('Wartosc funkcji wynosi',y);
readln
end;
end.

---

cytat:Crisu napisał:

Witam!
Mam problem z zadankiem
Napisz program, który oblicza wartość funkcji u(t) dla dowolnego t
[w=2pi/T]

Nie wiem jak rozgryźć tego sinusa.
Jakiego sinusa ???
W temacie zadania jaki podałeś nia ma nic o sinusie...

cytat:Jak wiadomo moze on przyjmowac tylko wartosci z przedziału <-1,1>
Warunek ze t>o i t=<T nic mi nie daje, ponieważ i tak musze jeszcze domnożyć przez 'w'i wychodzą wartości wieksze niz 1.
Jesteś pewny, że podałeś całą treść zadania ?

ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl