gitea-mirror/basic-computer-games
1
0
Fork 0
mirror of https://github.com/coding-horror/basic-computer-games.git synced 2025-12-12 15:50:20 -08:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #637 from aquilax/patch-1

Browse Source 
Adds Sine Wave Pascal implementation
This commit is contained in:
Jeff Atwood
2022-03-15 23:56:40 -05:00
committed by GitHub
parent 6f6ac93d1f c416b423be
commit b97e98fa0f
1 changed files with 35 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
00_Alternate_Languages/78_Sine_Wave/pascal/sinewave.pas Normal file
View File

@@ -0,0 +1,35 @@
program sinewave;
procedure tabWriteLn(text: string; indent: integer);
begin
Writeln(text:length(text)+indent);
end;
var
a, t, b: integer;
begin
tabWriteLn('SINE WAVE', 30);
tabWriteLn('CREATIVE COMPUTING MORRISTOWN, NEW JERSEY', 15);
Writeln();
Writeln();
Writeln();
Writeln();
Writeln();
// REMARKABLE PROGRAM BY DAVID AHL
b := 0;
// START LONG LOOP
for t := 0 to 40*4 do
begin
a := Trunc(26+25*Sin(t/4));
if (b = 0) then
begin
tabWriteLn('CREATIVE', a);
b := 1;
end
else
begin
tabWriteLn('COMPUTING', a);
b := 0;
end;
end;
end.