SystemSh0cker/monaco-editor
1
0
Fork 0
mirror of https://github.com/microsoft/monaco-editor.git synced 2025-12-22 15:05:39 +01:00
Code Issues Projects Releases Packages Activity

Add Pascal samples (#1358)

Browse source 
Add Pascal samples
This commit is contained in:
Alexandru Dima 2019-09-19 10:41:25 +02:00 • committed by GitHub
commit 40cf59faad
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 57 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
test/samples/sample.pascal.txt Normal file
View file

@ -0,0 +1,29 @@
program GreetingsNumberOfTimes;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
var
greetingsMessage: string;
numberOfTimes, i: integer;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
greetingsMessage := 'Hello World!';
numberOfTimes := 10;
for i := 1 to numberOfTimes do
begin
Writeln(greetingsMessage);
end;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.

28
website/index/samples/sample.pascal.txt Normal file
View file

@ -0,0 +1,28 @@
program GreetingsNumberOfTimes;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
var
greetingsMessage: string;
numberOfTimes, i: integer;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
greetingsMessage := 'Hello World!';
numberOfTimes := 10;
for i := 1 to numberOfTimes do
begin
Writeln(greetingsMessage);
end;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.