Программирование

Алгоритмический язык

Паскаль

Visual Basic

х:=52

х:=52

х=52

y:=mod (x, 10)

у:=х mod 10

у=х mod 10

z:=div(x, 10)

z:=x div 10

z=x \ 10

х:= y*10+z

х:= у*10 + z

х= у*10 + z |

Алгоритмический язык

Паскаль

Visual Basic

алг трехзначное число

нач цел х, cl,c2,e3,c4

Var x, cl,c2,c3,c4: integer;

Dim x, cl, c2, c3, c4 as integer

вывод "введите трехзнач­ноеи число"

Begin writein("введите трехзначное число");

x=val(inputbox ("введите трехзначное чис­ло")}

lin0 ввод х

Readln(x);

с1:= mod(x,10)

cl:= х mod 10;

cl= x mod 10

с2:=div(x,10),

с2:= х div 10;

c2= x div 10

c8:= mod(c2,10)

сЗ:= с2 mod 10;

c3= c2 mod 10

c4:=div(x,100)

с4:= х div 100;

c4= x div 100

вывод cl,c2,c3,c4

Writeln (cl,c2,c3,c4)

Print cl,c2,c3,c4

все

End.

кон

Алгоритмический язык

Паскаль

Visual Basic

алг знаки

Program znaki;

Sub znaki()

нач цел х,у

Var x,y: integer;

Dim x,y as integer

вывод "введите два чис­ла"

Begin writeln(" Введите два числа");

x=val(Inputbox(" Введите число"))

ввод х,у

Readln(x,y);

y=val(Inputbox(" Введите число"))

если х*у<0

If x*y<0 then

If x*y<0 then

то

Write("Числа разных знаков")

Print "Числа разных знаков"

вывод "числа разных знаков"

else

else

иначе

Write(" Числа одинаковых знаков");

Print "Числа одинаковых знаков"

вывод "числа одинаковых знаков"

End.

End if

все

End Sub

кон

Алгоритмический язык

Паскаль

Visual Basic

алг четверть

нач цел х,у

Var x,y: integer;

Dim x,y as integer

вывод "введите координаты точки х <> 0 и у <> 0"

Begin writeln ("вве­дите коорд. точки х <> 0 и у <> 0");

x=val(inputbox ("введите коорд. точки x о 0")}

ввод х, у

Readln(x,y);

y=val(inputbox ("введите коорд. точки у <> 0")}

выбор

if (x>0)and (y>0) then

if (x>0) and (у>0) then 1

при (х>0) и (у>0):

writeln ("точка в 1-й четверти")

Print "точка в 1-й четверти"

вывод "точка в 1-й четверти"

Else if (х<0) и (у>0) then

Elseif (x<0) и (у>0) then

при (х<0) и (у>0):

writeln ("точка во 2-й четверти")

Print «точка во 2-й четверти"

вывод "точка во 2-й четверти"

Else If (x>0) and (у<0) then

Elseif (x>0) and (у<0) then

при (х>0) и (у<0):

writeln ( точка в 3-й четверти")

Print "точка в 3-й четверти"

вывод "точка в 3-й четверти"

Else

Else

иначе

writeln ("точка в 4-й четверти");

Print "точка в 4-й четверти"

вывод "точка в 4-й четверти"

End.

End if

все

кон

Алгоритмический язык

Паскаль

Visual Basic

алг деление_на_мл_цифру

нач цел х, ost

var х, ost: integer;

dim x, ost as integer

вывод "введите целое число"

Begin

x=val(inputbox ("введите целое число"))

ввод х

Writeln(" введите це­лое число"); readln(x);

ost=x mod 10

ost:=mod(x,10)

ost:=x mod 10;

if x mod ost = 0 then

если mod(x,ost)=0

if x mod ost = 0 then

Print "число делит­ся на младшую цифру"

вывод "число делится на млад­шую цифру"

Writeln( "число де­лится на младшую цифру")

Else

иначе

Else

Print "число не де­лится на младшую цифру"

вывод "число не делится на Младшую цифру"

Writeln( "число не делится на младшую цифру");

End if

все

End.

кон

Программа на языке Паскаль

Программа на языке Visual Basic

Program treug;

Private Sub Treug_Click() |

var u1, u2, u3: integer;

Dim ul as integer, u2 as integer, u3 as integer

Begin

writeln('Введите два угла треугольника');

ul = Val(Inputbox( "Введите 1-й угол треугольника"))

resdln(ul,u2);

u2 = Val(Inputbox(" Введите 2-й угол треугольника"))

u3: = 180 - (ul + u2);

u3 = 180 - (ul + u2)

If (u1 < 90) or (u2 < 90) or (u3 < 90) then

If (ul < 90) or (u2 < 90) or (u3 < 90) Then

writeln ('Треугольник остроугольный')

Print "Треугольник остроуголь­ный"

else if (ul = 90) and (u2 = 90) and (u3 =90) then

ElseIf (ul = 90) and (u2 = 90) and (u3 = 90) Then

writeln ('Треугольник прямoyгольный')

Print "Треугольник прямоуголь­ный"

Else

Else

writeln (Треугольник тупоугольный');

Print "Треугольник тупоугольный"

aspnum

End If

end.

End Sub

А

Б

В

Г

ВВОД X

ввод х

ввод х

ввод х

если (х<-1) и (х>1) то

выбор

при (х<-1) или (х>1):у:=1

выбор

при (х<-1) и. (х>1): у:=1

если (х<-1) или (х>1)

то

у:=1

при х<0:у:=-х

при х<0:у:=-х

у:=1

иначе

иначе

иначе

иначе

y:=abs(x)

у:=х

у:=х

y:=abs(x)

все

все

все

все

вывод у

вывод у .

вывод У

вывод у

А

Б

В

Г

нц для i от 10 до

нц для i от 5

i:=10

нц для i от 10

98

до 49

нц пока i<=98

до 98

если div (i,2)=0

вывод 2*i

вывод i

если mod (i,2)=0

то вывод i

кц

i:=i+2

то вывод i

все

кц

все

кц

кц

Алгоритмический язык

Паскаль

Visual Basic

алг наиболыная_цифра

нач цел m, ost, х

var m, х, ost: integer;

dim m, x, ost as integer

вывод "введите целое чис­ло"

begin

x=val(inputbox ("вве­дите целое число"))

ввод х

writelnf введите целое число"); readln(x);

m=0

m:=0

m:=0;

Do ]

нц

repeat

ost=x mod 10

ost:=mod(x,10)

ost:=x mod 10;

if ost >m then

если ost>m

if ost >m then

m=ost

то m:=ost

m:=ost;

End if |

все

until (x=0) or (ost=9) ;

Loop until (x=0) or (ost=9)

кц_ при (х=0) или (ost=9)

write(' наибольшая цифра');

Print "наибольшая цифра"

вывод "наибольшая циф­ра"

if x=0 then

If x=0 then

если х=0

writeln(m)

Print m

то вывод т

else

Else

иначе

writeln(9);

Print 9

вывод 9

end.

End if

все

кон

Алгоритмический язык

Паскаль

Visual Basic

алг

нач цел x,s,i

Var х, s, i: integer;

Dim x, s, i as integer

вывод "введите число"

begin

x=val(inputbox ("вве­дите целое число"))

ввод х

writeln(' введите число'); readln(x);

s=0

s:=1

s:=l;

For i=2 to x div 2

нц, для i от 2 до div(x,2)

For i:=2 to x div 2 do

if x mod I =0 then S:=s+I

если mod(x,i)=0

if x mod I =0 then

next

то

s:=s+I;

Print s

s:=s+i

Writeln(s)

все

end.

вывод S

кон

Алгоритмический язык

Паскаль

Visual Basic

плг наибольшее

нач цел х, m, i

Var х, i, m: integer;

Dim x, m, i as integer

вывод "введите число"

begin

x=val(inputbox ("вве­дите число"))

ВВОД X

writeln( введите чис­ло'); readln(x);

M=x

m:=x

m:=x;

For i=l to 4

нц для i от 1 до 4

For i:=l to 4 do

x=val(inputbox ("вве­дите число"))

ввод х

begin Readln (x);

if x >m then x:=m

если х>т

If x>m then

next

ТО

X:=-m

Print "Наибольшее

число"; m

х:=m

End;

все

Writeln ('Наибольшее число', m)

кц

end.

вывод "Наибольшее чис­ло", m

кон

Алгоритмический язык

Паскаль

Visual Basic

Алг

Нач целтаб х[1:6], у[1:6], z[l:6], цел i, k_?m

Var I, k, m:integer; x,y,z: array[1..6] of integer;

dim I, к, т as integer

dim x(l to 6), y(l to 6),

z(l to 6) as integer;

k:=0; m:=0

Begin k:=0; m:=0;

k=0: m=0

нц для i от 1 до 6

For i:=l to 6 do

For i=l to 6

Алгоритмический язык

Паскаль

Visual Basic

ввод x[i]

Begin read(x[i]);

X(i)=val(inputbox{ "вве­дите элементы масси­ва"))

если x[i]>=0

If x[i]>=0 then

If x(i)>=0 then

"Г"»

Begin k:=k+ 1; y[k]:=x[i] end

k=k+l:y(k)=x(i)

k:=k=1; y[k]:=x[i]

Else

Else

иначе

Begin

m:=m+l; z[m]:=x[i]

end;

m=m+l:z(m) =x(i)

m:=m+1; z[m]:=x[i]

End;

End if

все

End.

next

кц

кон

Алгоритмический язык

Паскаль

Visual Basic

алг

нач целтаб х[1:6],цел i, k

Var I,k: integer; x: array[1..6] of integer;

Dim I,k as integer Dim x(l to 6) as integer

k:=0

Begin k:=0;

K=0

нц для i от 1 до 6

For i:=l to 6 do

For i=l to 6

ввод x[i]

Read(x[i]);

X(i)^:=val(inputbox(" вве­дите элементы масси­ва"))

ни;

For i:=2 to 6 do

Next

нц для i от 2 до б

If x[i]>x[i-l] then

For i=2 to 6

если x[i]>x[i-l]

K:=k+1;

If x(i)>x(i-l) then

k:=k+1

Writeln(k);

k=k+1

все

End.

End if

кц

Next

вывод к

Print k

КОН

Алгоритмический язык

Паскаль

Visual Basic |

нц для i от 1 до 5

For i:=l to 5 do

For i=l to 5

begin

a[2*i-l]:=i

a[2*i-l]:=i;

a(2*i-l)=i

a[2*i]:=i*i

a[2*i]:=i*i

а{2*i)=i^2

кц

end;

Next

Алгоритмический язык

Паскаль

Visual Basic

нц для i от 1 до 5

For i:=l to 5 do

For i=l to 5

нц для j от 1 до 5

For j:=l to 5 do

For j=l to 5

если i>j

If i>j then

If i>j then

то a[i,j]=i

a[i,j]=i

иначе

else

a(i,j)=i

a[i,j]=j

a[i,j]=j;

else

все

a(i,j)=j

кц

end if

кц

next

next

Паскаль

Visual Basic

var i, f :byte; n: integer; a: arrny [1..10] of integer;

Dim i As Byte, f As Byte, n as integer Dim a(l To 10) As Integer

begin

for i=1 То 10 do

For i = 1 To 10 1

begin

a(i) = Int(20 * Rnd) - 10

a[i]:= random(20) - 10; write (a[i]);

Print a(i);

end;

Next

writeln('Введите число');

Val

readln(n);

n = InputBox("Введите число")

i:=l; f: = 0;

i=1: f = 0

while (i <= 10) And (f = 0) do

Do While i <= 10 And f=0

begin

If a(i) = n Then

If a[i]=n Then

Print i: f = 1

writeln( i): f := 1

Else

else

i = i + 1

i:=i +1

End If

end;

Loop

if f = 0 then writeln ('нет')

If f = 0 Then Print "нет" |

End.

Паскаль

Visual Basic

var i, b, f: integer; a:array[1..21] of integer;

Dim i, b, f, a(l To 21) As Integer

begin a[l]:=2; write(a[l]);

a(1) = 2: print a(1);

for i:=2 to 20 do begin

For i = 2 To 20

Паскаль

Visual Basic |

a[i]:=a[i-l] + random(l0); write(a[i]:3);

a(i) = a(i - 1) + Int(Rnd * 10):print a(i);

end;

Next

writeln('Введите число');

readln(b);

b = Val(InputBox( "Введите число" ))

i: = 20; f: = 0;

i = 20:f = 0

while (i >= 1) And (f = 0) do

Do While (i >= 1) And (f = 0)

begin

If (b < a(i)) Then

If (b < a[i]) then

a(i + 1) = a(i)

a[i + 1] := a[i];

i = i - 1

i:= i - 1

Else

else

f = 1

F: = 1

End If

end;

Loop

a[i + 1] := b;

a(i + 1) = b; print

for i = 1 To 21

For i = 1 To 21

write (a[i]:3);

Print a(i);

end.

Next