Нетипизированные константы

var1 = 20;

var2 = var1+10;

var1 := 20;

var2 := var1+10;

var1 = 20

var2 = var1+10

if (a>10) a=1;

if (a<10) a=11; else a=1;

if (a==10) {a=1; b=2;}

if (a<>10) {a=2; b=1;}else{a=1; b=2;}

if a>10 then a:=1;

if a<10 then a:=11 else a:=1;

if a=10 thenbegina:=1; b:=2 end;

if a<>10 thenbegina:=2; b:=1 end else begina:=1; b:=2 end;

If a>10 Then a=1

If a<10 Then a=11 Else a=1

If a=10 Then

a=1

b=2

End If

If a<>10 Then

a=2

b=1

Else

a=1

b=2

End If

switch (2*2)

{

case 1: n=1;

case 2: n=2;

case 3: n=3;

default: n=4;

}

В частях case значение всегда должно быть константой, вычисленной на этапе компиляции. Операции сравнения в частях case запрещены. Break позволяет завершить ветвление преждевременно.

Case (2*2) of

1: n:=1;

2: n:=2;

3: n:=3;

else: n:=4;

end;

В частях Case могут содержаться списки значений.

Select Case 2*2

Case 1:

n=1

Case 2:

n=2

Case 3:

n=3

Case Else:

n=4

End Select

В частях Case могут содержаться списки значений, могут использоваться операции сравнения.

for (j=0; j<15; j++) n++;

for (j=0; j<15; j++) {n++; k--;}

for (j=0, i=1; j<15; j++, i--) n++;

for j:=0 to 15 do n:=n+1;

for j:=15 downto 0 do n:=n+1;

for j:=0 to 15 do begin n:=n+1 end;

For j=0 To 15

n=n+1

Nextj

while (j<15) j++;

whilei<=100 do
begin s:=s+i; i:=i+1 end;

Do While i<10

s=s+i

i=i+1

Loop

do {s=s+i; i--;} while (i>10)

repeats:=s+i; i:=i-1 untili>10;

Do

s=s+i

i=i-1

Loop Untili>10

#include <iostream>

using namespace std;

void main()

{

int ftemp;

cin>> ftemp

}

Read(i);

ReadLn(i,j);

I=InputBox(“введи число”, “ввод”, “10”)

#include <iostream>

using namespace std;

void main()

{

cout << “Хороший пример.” << endl;

}

Write(‘a=’); ReadLn(a);

WriteLn(‘Введено число ’, a);

MsgBox(“Введено число ” & a)

cout << A << ‘\t’ << B;

2. Использование манипуляторов

#include <iomanip>

cout << setw(9) << “Мама” << endl;

3. Использование функций printf, sprintf

Write(‘A=’,A:9:5);

#include <iostream>

using namespace std;

intmain()

{

int s=0,i=1;

while (i<=100)

{

s+=i;

i++;

}

cout << s;

return s;

}

Сразу же необходимо сделать важную оговорку: поздние версии компиляторов языка Pascal уже не требуют указывать название программы, то есть строку

program <имя программы>;

вообще говоря, можно опустить.

Uses, Label, Const, Type, Var, Procedure, Function – образуют одноименные блоки, а потому приведенные ключевые слова указываются только в начале блока, завершается же блок знаком “;”.

Program XXX;

Var s,i : integer;

Begin

s:=0;

i:=1;

while i<=100 do

begin

s:=s+i;

i:=i+1

end;

writeln(‘s=’;s:5)

End.

Exit Sub позволяет завершить программу не дожидаясь выполнения всех ее операторов.

Sub XXX

Dim s As integer

Dim i As integer

s=0

i=1

Do While i<=100

s=s+i

i=i+1

Loop

MsgBox(“s=” & s)

End Sub

Объявление функции (прототип) – содержит имя функции, типы ее аргументов и возвращаемое значение. Используется для указания компилятору, что данная функция будет определена позднее.

Вызов функции – указывает компилятору на необходимость выполнения функции.

Определение функции – собственно сама функция.

Объявление функции не обязательно при условии определения функции ДО ЕЁ ПЕРВОГО ВЫЗОВА!

При описании прототипа с параметрами в скобках указываются типы параметров или (по желанию) типы и имена параметров. В дальнейшем при определении функции необходимо придерживаться сигнатуры функции, описанной в прототипе.

Вариант с объявлением функции

#include <iostream>

using namespace std;

void starline();

intmain(){

starline();return s; }

void starline() {

for(int j=0; j<45; j++) cout << ‘*’;

cout << endl; }

Вариант без объявления функции

#include <iostream>

using namespace std;

void starline() {

for(int j=0; j<45; j++) cout << ‘*’;

cout << endl; }

intmain(){

starline();

return s; }

Определение функции обязательно ДО ЕЁ ПЕРВОГО ВЫЗОВА!

Program Pr;

Var a,b : integer;

Function summ(a,b : integer) : integer;

Begin

summ:=a+b;

end;

Begin

Read(a,b);

Write(summ(a,b));

End.