Середовище програмування MADL

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » Середовище програмування MADL » PascalGUI » PascalGUI.Приклади з Pascal N-IDE » Вихідні коди прикладів з Pascal N-IDE

Вихідні коди прикладів з Pascal N-IDE

Страница:   1 2

Сообщений 101 страница 104 из 104

1

Вихідні коди прикладів з Pascal N-IDE

uBASIC
Continue_command.pas
Enum_type.pas
File_writer.pas
Set_type.pas
With_command.pas
array.pas
case_of_statement.pas
command_break.pas
command_exit.pas
const.pas
dynamic_array.pas
file_reader.pas
for_downto_statement.pas
for_in_statment.pas
for_to_statement.pas
function.pas
hello.pas
if_else_statment.pas
in_out.pas
output_format.pas
procedure.pas
record.pas
repeat_until_statement.pas
string_test.pas
while_do_statement.pas

uCompileProgram
assignment.pas
Ball.pas
factorial.pas
Fibonacci.pas
Input_output.pas
power_of_two.pas
Towers_of_Hanoi.pas

uCRT
clrscr.pas
Delay.pas
Goto_XY.pas
high_low_text.pas
Sound.pas
TextBackGround.pas
TextColor.pas
WhereXY.pas

uDOS
GetDate.pas
GetTime.pas
PackTime.pas

uGraph
Arc.pas
Bar.pas
Bar3d.pas
Circle.pas
Ellipse.pas
FillEllipse.pas
FloodFill.pas
GetImage.pas
Graph_fill.pas
Line.pas
Line_style.pas
Move_to.pas
OutText.pas
PieSlice.pas
putPixel.pas
Rect.pas
Sector.pas
Text_align.pas
Text_size.pas

uMath
Acrcos.pas
Acrcosh.pas
asinh.pas
atanh.pas
ceil.pas
cicletorad.pas
degtograd.pas
power.pas
tanh.pas

uSYSTEM
Byte.pas
CharToAscii.pas
ConcatString.pas
Copy.pas
Cos.pas
Dec.pas
Delete.pas
Earse.pas
Eoln.pas
Exit.pas
Frac.pas
Function.pas
IncDec.pas
Insert.pas
Keypressed.pas
Length.pas
Odd.pas
Pos.pas
Random.pas
random2.pas
ReadKey.pas
Round.pas
SetLength.pas
Sin.pas
SizeOf.pas
Sqr.pas
Sqrt.pas
Str.pas
Str2.pas
StringToInt.pas
Trunc.pas
UpCase.pas

101

uSYSTEM\Str2.pas

Код:
var
  number : longint;
  s : string;
begin
  number := 7;
  Str(number, s);
  Writeln(s);
end.

http://forumstatic.ru/files/001b/d4/a7/81517.txt

102

uSYSTEM\StringToInt.pas

Код:
program StringToInt;
const
  number = 1101010;
var
  s : string;
begin
  str(number, s);
  writeln('Number is ', number);
  writeln('String is ', s);
  readln;
end.

{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}

http://forumstatic.ru/files/001b/d4/a7/61761.txt

103

uSYSTEM\Trunc.pas

Код:
program Trunc1;

begin
  WriteLn (Frac (12.345) : 1 : 5); { 0.34500 }
  WriteLn (Int (12.345) : 1 : 5); { 12.00000 }
  WriteLn (Round (12.345) : 1); { 12 }
  WriteLn (Trunc (12.345) : 1); { 12 }

  WriteLn (Frac (-12.345) : 1 : 5); { -0.34500 }
  WriteLn (Int (-12.345) : 1 : 5); { -12.00000 }
  WriteLn (Round (-12.345) : 1); { -12 }
  WriteLn (Trunc (-12.345) : 1); { -12 }

  WriteLn (Frac (12.543) : 1 : 5); { 0.54300 }
  WriteLn (Int (12.543) : 1 : 5); { 12.00000 }
  WriteLn (Round (12.543) : 1); { 13 }
  WriteLn (Trunc (12.543) : 1); { 12 }

  WriteLn (Frac (-12.543) : 1 : 5); { -0.54300 }
  WriteLn (Int (-12.543) : 1 : 5); { -12.00000 }
  WriteLn (Round (-12.543) : 1); { -13 }
  WriteLn (Trunc (-12.543) : 1); { -12 }
end.

http://forumstatic.ru/files/001b/d4/a7/83415.txt

104

uSYSTEM\UpCase.pas

Код:
program UpCase1;

{ Program to demonstrate the upcase function. }

var
  c : char;

begin
  for c:='a' to 'z' do
    write(upcase(c));
  Writeln;
end.

http://forumstatic.ru/files/001b/d4/a7/93542.txt

Страница:   1 2

Вы здесь » Середовище програмування MADL » PascalGUI » PascalGUI.Приклади з Pascal N-IDE » Вихідні коди прикладів з Pascal N-IDE