10. Распечатка тестов и результатов работы программы

1. Входной файл

{Тестовый пример на языке Pascal, который включает

в себя использование

-операторов:

const, function, repeat...until le,присваивания;

-логического выражения:

le1;

-арифметического выражения:

ae2;

-массива}

Uses Crt;

Const

a=5;{пример использования оператора const}

str_len=50;

Var b:integer;

c:integer;

d:integer;

f:integer;

M:array[1..2] of boolean;

MM:array[1..2][11..25] of integer;

Var

i:integer;

s:string[80];

t:string;

Label lab1;

function example(var a,b,c:integer;f,r:integer;g1,g2:string):integer;{примериспользованияфункции}

var cc:string[20];

abc:array[1..10][1..100] of boolean;

Begin

example:=(func*3+a);{пример использования арифметического выражения ae2}

end;

Begin

writeln('Test Pascal');

writeln('Enter b,c,d');

readln(b,c,d);

f:=example(c);{пример использования оператора присваивания}

if b=2 then begin c:=1; goto lab1; end;

if f>=b+d*4 then {пример использования логического выражения le1}

Begin

repeat {пример использования конструкции repeat...until le}

M[i]:=f;

M[i+1]:=b;

until i>2;

writeln('Result 2');

end

else

Begin

writeln('Result 2');

end;

lab1:;

end.

2. Выходнойфайл

/*Pascal to C converter by A.Shindin MIEM 2005*/

#include <stdio.h>

#include <conio.h>

#include <ctype.h>

#include <string.h>

#include <stdlib.h>

#define buf_len 255

/*Тестовый пример на языке Pascal, который включает

в себя использование

-операторов:

const, function, repeat...until le,присваивания;

-логического выражения:

le1;

-арифметического выражения:

ae2;

-массива*/

/*<USES>*/

/*<uses> Crt; */

/*пример использования оператора const*/

/*<CONST>*/

#define a 5

#define str_len 50

/*<VAR>*/

int b;

int c;

int d;

int f;

illegal M[2];

int MM[2][15];

/*<VAR>*/

int i;

char s[80];

char t;

/*<LABEL>*/

/*<label> lab1; */

/*пример использования функции*/

int example (int a, int b, int c, int f, int r, char* g1, char* g2)

{

/*<VAR>*/

char cc[20];

illegal abc[10][100];

/*пример использования арифметического выражения ae2*/

example = (func*3+a);

}

/*MAIN PROGRAM*/

void main()

{

printf('TestPascal');

printf('Enterb,c,d');

scanf(b,c,d);

/*пример использования оператора присваивания*/

f = example(c);

if ( b==2 )

{

c = 1;

goto lab1 ;

}

/*пример использования логического выражения le1*/

/*пример использования конструкции repeat...until le*/

if ( f>=b+d*4 )

{

do

{

M[i] = f;

M[i+1] = b;

}

while !( i>2 );

printf('Result2');

}

else

{

printf('Result2');

}

lab1:;

2. Входной файл

{Тестовый пример на языке Pascal, который включает

в себя использование

-операторов:

const, function, repeat...until le,присваивания;

-логического выражения:

le1;

-арифметического выражения:

ae2;

-массива}

Uses Crt;

Const

1a=5;{пример использования оператора const}

str_len=50;

Var b:integer;

c:integer;

d:integer;

f:integer;

M:array[1..2] of boolean;

MM:array[1..2][11..25] of integer;

Var

i:integer;

s:string[80];

t:string;

Label lab1;

function 1example(var a,b,c:integer;f,r:integer;g1,g2:string):abc;{примериспользованияфункции}

var cc:string[20];

abc:array[1..10][1..100] of boolean;

Begin

example:=(func*3+a);{пример использования арифметического выражения ae2}

end;

Begin

writeln('Test Pascal');

writeln('Enter b,c,d');

readln(b,c,d);

f:=example(c);{пример использования оператора присваивания}

if b=2.C then begin c:=1; goto lab1; end;

if f>=b+d*4 then {пример использования логического выражения le1}

Begin

repeat {пример использования конструкции repeat...until le}

M[i]:=f;

M[i+1]:=b;

until i>2;

writeln('Result 2');

end

else

Begin

writeln('Result 2');

end;

lab1:;

end.