From 4e58f60f2df2240e382c137501bf4fd1ef190141 Mon Sep 17 00:00:00 2001 From: Evgeniy Vasilev Date: Tue, 15 Mar 2022 08:16:40 +0100 Subject: [PATCH 1/2] Adds Sine Wave Pascal impelmentation Compiled with FreePascal: ``` fpc sinewave.pas ``` --- 78_Sine_Wave/pascal/sinewave.pas | 35 ++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 78_Sine_Wave/pascal/sinewave.pas diff --git a/78_Sine_Wave/pascal/sinewave.pas b/78_Sine_Wave/pascal/sinewave.pas new file mode 100644 index 00000000..db82189f --- /dev/null +++ b/78_Sine_Wave/pascal/sinewave.pas @@ -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. From c416b423beda1737e0544d979527e969da1a618d Mon Sep 17 00:00:00 2001 From: aquilax Date: Wed, 16 Mar 2022 05:47:45 +0100 Subject: [PATCH 2/2] Moved SineWave Pascal implementation to Alternative Languages --- .../78_Sine_Wave}/pascal/sinewave.pas | 0 1 file changed, 0 insertions(+), 0 deletions(-) rename {78_Sine_Wave => 00_Alternate_Languages/78_Sine_Wave}/pascal/sinewave.pas (100%) diff --git a/78_Sine_Wave/pascal/sinewave.pas b/00_Alternate_Languages/78_Sine_Wave/pascal/sinewave.pas similarity index 100% rename from 78_Sine_Wave/pascal/sinewave.pas rename to 00_Alternate_Languages/78_Sine_Wave/pascal/sinewave.pas