Dim I As Integer, N As Integer

End.

Begin

Begin

Var

End.

Begin

Var

End.

Begin

Var

C: char; // Описание переменной C:

for C:= ‘A’ to ‘Z’ do Write(C);

ReadKey;

Язык «C++»:

#include <vcl.h>

#include <stdio.h>

#include <conio.h>

#pragma hdrstop

int main (int argc, char* argv[])

{

char C;

for (C = 'A'; C <= 'Z'; C++) printf("%c", C);

getch();

return 0;

}

2. Найти сумму .

Free Pascal, TP7:

1-й способ.

I, N: integer;

S: double;

S:= 0;

N:= 10000;

for I:= 1 to N do S:=S + 1/Sqr(I);

Writeln(‘ S=’, S);

Writeln(‘Контроль: ’, Sqr(pi)/6);

2-й способ.

Язык «C++»:

#include <vcl.h>

#include <stdio.h>

#include <conio.h>

#pragma hdrstop

int main (int argc, char* argv[])

{

int I, N;

double S;

N = 1000;

S = 0;

for (I = 1; I <=N; I++)S += 1.0 / ((double)I * (double)I);

printf(“S=%g”, S);

getch();

}

Возможные ошибки:

Turbo Pascal 7.0:

(* for I:= 1 to 4 do; writeln(‘I=’, I); *)

for I:= 1 to 4 do;

Writeln(‘I=’, I);

Результат: I=4 (TP7)

Язык «C++»:

// for (I = 1; I <= 4; I++); printf(“I=%d”, I);

for (I = 1; I <= 4; I++);

printf(“I=%d”, I);

Результат: I=5

3. Найти сумму .

– крайне нежелательный вариант!

, , .

Рекуррентные соотношения:

S 0 = 0	A 0 = 1
S 1 = S 0 + A 1	A 1 = A 0* x ^2/1
S 2 = S 1 + A 2	A 2 = A 1* x ^2/3
...	...
Si = Si -1 + Ai	Ai = Ai -1* x ^2/(2* i -1)

Pascal:

I, N: integer;

S, A, x, x2: double;

writeln(‘Input N, x’);

readln(N, x);

S:= 0;

A:= 1;

X2:= x*x;

for I:= 1 to N do

A:= A * x2 / (2 * I – 1);

S:= S + A;

end;

writeln(‘S=’, S);

Язык «C++»:

#include <vcl.h>

#include <stdio.h>

#include <conio.h>

#pragma hdrstop

int main (int argc, char* argv[])

{

int I, N;

double S, A x, x2;

printf(“Input N”);

scanf(“%d”, &N);

// %d – формат целого числа.

printf(“Input x”);

scanf(“%g”, &x);

// %g – формат вещественного числа, при котором сохраняется 6 значащих цифр.

S = 0;

A = 1;

x2 = x*x;

for (I = 1; I <=N; I++)

{

A *= x2 / (2.0 * (double)I – 1.0);

// (double) I – преобразование целого типа к вещественному

S += A;

}

printf(“S=%g”, S);

// %g – формат вещественного числа, при котором сохраняется 6 значащих цифр.

getch();

return 0;

}

Visual Basic:

Sub Proc1()

Дата добавления: 2014-01-04