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ı
Etiketlerfree pascal pascal sinusoidal yazı
Hakkında ibrahim
İlgili Makaleler
borlndmm.dll disable delphi
Kod yürütülmesi devam edemiyor çünkü borlndmm.dll bulunamadı. Programı yeniden yüklemek bu sorunu çözebilir. borlndmm.dll gerekliliğini …