Etiket Arşivi: pascal sinusoidal yazı

pascal sinusoidal yazı program sinusidalyazi; uses crt; var s:real; begin textbackground(black); textcolor(lightgreen); clrscr; repeat s:=s+0.1; writeln('Saliha':round(30*sin(s)+49)); delay(100); until s >9.5; readln; end. Ekran Çıktısı

Devamını Oku »