«Пользовательский тип» и переменных такого типа: Pascal Visual Basic const




Скачать 101.2 Kb.
Название«Пользовательский тип» и переменных такого типа: Pascal Visual Basic const
Дата публикации02.08.2013
Размер101.2 Kb.
ТипДокументы
Язык Visual Basic: сходства и различия с языком Pascal
Объявление переменных:

Pascal

Visual Basic

i, j, k: integer;

l: longint;

x, y: double;

c: char;

s: string;

mX: array[0 .. 7] of single;

mC: array[-2 .. 5] of char;
mL: array[0 .. 8, 0 .. 9] of longint;

Dim i As Integer, j As Integer, k As Integer

Dim l As Long

Dim x As Double, y As Double

Dim C As String*1

Dim s As String

Dim mX[0 To 7] As Single

Dim mC[-2 To 5] As Char
Dim mL[0 To 8, 0 To 9] As Long


Объявление констант:

Pascal

Visual Basic

const n = 7;

const m: integer = 9;

const sName = 'A.txt';

const c0: char = 'Z';
type MyType1 = array[0 .. 2] of integer;

const mI1: MyType1 = (0, 1, 2);
type MyType2 = array[0 .. 2, 0 .. 1] of integer;

const mI2: MyType2 =

((0, 1), (10,11), (20,21));

Const n = 7

Const m As Integer = 9

Const Name As String s = "A.txt"

Const c0 As String*1 = “Z”
Type MyType1

A(0 To 2) As Integer

End Type

‘ Разумного аналога нет
Type MyType2

B(0 To 2, 0 To 1 As Integer

End Type

‘ Разумного аналога нет


Объявление типа «Запись» «Пользовательский тип» и переменных такого типа:

Pascal

Visual Basic

const nK = 2;

const nC = 3;

const MyPi: double = 3.14;

type

MyRecord = record

mLink: array[0..2*nK+1] of longint;

mData: array[0 .. 2*nK+1, 0 .. nC] of char;

end;



var

R1, R2: MyRecord;

Const nK = 2

Const nC = 3

Const MyPi As Double = 3.14
Type MyRecord

mLink(0 To 2 * nK + 1) As Long

mData(0 To 2 * nK + 1, 0 To nC) As String*1

End Type


Dim R1 As MyRecord, R2 As MyRecord


Типы констант VB могут быть только такими:

Byte, Boolean, Integer, Long, Currency, Single, Double, Decimal, Date, String, Variant.

Объявление типов:

Pascal

Visual Basic

type MyInt = integer;

type MySingle = single;

type MyRecordClone = MyRecord;

type MyArray = array[0 .. 2] of double;

‘ Разумного аналога нет

Оператор присваивания, составной оператор (блок в Visual Basic):

Pascal

Visual Basic

begin

i := 25 div 7;

j := 27 mod 5;

x := 7.99;

y := 1 / 9; // y = 0.11111111…

y := 1.0 / 9.0; // y = 0.11111111…

z := abs(3.4); // z = 3.4

end



i = 25 / 7;

j = 27 Mod 5;

x = 7.99;

y = 1 / 9; // y = 0.11111111…

y = 1.0 / 9.0; // y = 0.11111111…

z = Abs(3.4); // z = 3.4



Простой ввод и вывод:

Pascal

Visual Basic

writeln('x=', x);

writeln('x=', x, ' y=', y);

writeln('y=', y:10:3);
writeln('Input x');

readln(x);
writeln('Input x, y');

readln(x, y);


MsgBox "x=" & x

MsgBox "x=" & x & " y=" & y

MsgBox "y=" & Format(y, "000000.000"))
x = InputBox("Input x")
Dim s As String

s = InputBox("Input x, y")


Упрощенная развилка:

Pascal

Visual Basic

if x < 0 then y := x;
if i = 1 then

begin

j := 9;

k := Trunc(x);

end;

If x < 0 Then y = x
If i = 1 Then
j = 9

k = Int(x)

EndIf


Классическая развилка:

Pascal

Visual Basic

if i <> 1 then

j := 0 // Точка с запятой НЕдопустима

else

j := round(sqrt(i));
if x < 0.0 then

begin

y := ln(1 x);

z := sin(x); // Точка с запятой НЕобязательна

end

else

begin

y := x;

z := x / pi;

end;

If i <> 1 Then

j = 0

Else

j = Math.Round(Math.Sqrt(i));

EndIf

If x < 0.0 Then
y = Log(1 x)

z = Sin(x)
Else
y = x

z = x / Pi;

EndIf

Вложенная развилка:

Pascal

Visual Basic

if (x < 0.0) or (x > 2.0) then

y := x * (2.0 x)

else

if (x > 0.5) and (x < 1.5) then

y := 1.0

else

y := 2.0 * (1.0 abs (x 1.0));

If x < 0.0 Or x > 2.0 Then

y = x * (2.0 x)

ElseIf x > 0.5 And x < 1.5 Then
y = 1.0

Else

y = 2.0 * (1.0 Abs (x 1.0))

EndIf



Оператор выбора, вариант 1:

Pascal

Visual Basic

iA := 0; iB := 0; iOther := 0;

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

readln(c);

case c of

'A':

Inc(iA);

'B':

Inc(iB);

else

Inc(iOther);

end;

iA = 0; iB = 0; iOther = 0;

c = InputBox("Введите символ");
Select Case c

Case "A"

iA = iA + 1

Case "B"

iB = iB + 1

Case Else

iOther = iOther + 1

End Select

Оператор выбора, вариант 2:

Pascal

Visual Basic

writeln('Input symbol');

readln(c);
case c of

'A' .. 'Z', 'А' .. 'Я', 'Ё':

writeln('BIG RUSSIAN LETTER');

'a' .. 'z', 'а' .. 'я', 'ё':

writeln('Small Russian letter');

else

writeln('Something else');

end;


// Разумного аналога НЕТ!


Оператор цикла с параметром, вариант 1:

Pascal

Visual Basic

for i := 65 to 90 do

begin

writeln(Chr(i));

end;
for i := 90 downto 65 do

writeln(Chr(i));


For i = 65 To 90
MsgBox "i=" & i

Next i
For i = 90 To 65 Step -1

MsgBox "i=" & i

Next i

Оператор цикла с параметром, вариант 2:

Pascal

Visual Basic

for c = 'A' to 'M' do

write(c);
// Аналога НЕТ!


' Аналога НЕТ!
y = 1.0 / 9.0

For x = 0.0 To 1.0 Step y

MsgBox "x=" & x

' x=1 напечатано Не будет!

Next x

Оператор цикла с предусловием:

Pascal

Visual Basic

x, y, z, xStart, xFinish, dx: double;

. . .

xStart := 0.0; xFinish := 1.0; dx := 0.1;

x := xStart;

while x <= xFinish + dx * 0.5 do

begin

y := cos(exp(x));

if y < 0.0 then break;

z := exp(cos(x));

writeln('x=', x:12:8, ' y=', y:16, ' z=', z);

x := x + dx;

end;

Dim x As Double, y As Double, …

. . .

xStart = 0.0: xFinish = 1.0: dx = 0.1

x = xStart

Do While x <= xFinish + dx * 0.5
y = Cos(Exp(x));

If y < 0.0 Then Exit Do

z = Exp(Cos(x));

MsgBox "x=" & Format(x, "000.00000000") & …

x = x + dx

Loop



Оператор цикла с постусловием:

Pascal




s: string; i, j: integer; c: char;

. . .

s := 'One. Two. Three.';

i := 0; j := length(s);

repeat

c := s[i + 1];

write (c);

Inc(i); // i += 1; // Можно и так

if i > j then break;

until (c = '.');

string s; int i, j; char c;

. . .

s = "One. Two. Three."

i = 0: j = Len(s)

Do

c = Mid(s, i, 1)

MsgBox c

i = i + 1

If i > j Then Exit Do

Loop Until c = "."

В данном примере на экран выводятся все символы строки s, за исключением тех, что стоят после первой точки.

Добавить документ в свой блог или на сайт

Похожие:

«Пользовательский тип» и переменных такого типа: Pascal Visual Basic const iconVisual Basic for Applications Учебный практикум
Учебное пособие предназначено для студентов, изучающих курс «Информатика» ирекомендуется для получения практических навыков использования...

«Пользовательский тип» и переменных такого типа: Pascal Visual Basic const icon5. основы программирования на vba (visual basic for application)
Совместное использование средств интеграции приложений, Visual Basic и других языков программирования и vba позволяет создать полностью...

«Пользовательский тип» и переменных такого типа: Pascal Visual Basic const iconЛабораторная работа по теме «Тема Средства Visual Studio. Net Ado....
Цель данной работы состоит в изучении технологии ado. Net при разработке проекта средствами Visual Basic. Net (VB. Net) с использованием...

«Пользовательский тип» и переменных такого типа: Pascal Visual Basic const icon«Тема Интегрированная среда разработки Visual Studio. Net 2008 и основные понятия»
Информатика: Учебное пособие для студентов мтуси: Раздел Базовые средства программирования на примере Visual Basic в среде Visual...

«Пользовательский тип» и переменных такого типа: Pascal Visual Basic const iconЛабораторная работа структура программы на visual basic script. Константы....
Самым простым современным языком программирования, безусловно, является язык Бейсик (basic beginners All purpose Symbolic Instruction...

«Пользовательский тип» и переменных такого типа: Pascal Visual Basic const iconПрограмма должна выводить
Приобретение навыков по работе с системой Turbo Pascal. Приобретение навыков определения типов переменных в зависимости от характеристик...

«Пользовательский тип» и переменных такого типа: Pascal Visual Basic const iconMicrosoft Office: Access, Excel, Power Point, Word
Прайс-лист на математику, программирование (pascal, turbo pascal, pascal free, pascal abc net, c/c++, java)

«Пользовательский тип» и переменных такого типа: Pascal Visual Basic const iconМетодика «тип мышления»
Диагностика типа мышления респондента. Тип мышления – индивидуальный способ преобразования информации. Зная свой тип мышления, можно...

«Пользовательский тип» и переменных такого типа: Pascal Visual Basic const iconЭкзаменационные вопросы по истории отечества. История как наука её...
И зап.) Признаки типа Ц: *общность исторической и полит. Судьбы и экономич. Разв-я, *взаимопереплетение культур, *общ. Цели и задачи...

«Пользовательский тип» и переменных такого типа: Pascal Visual Basic const iconЛекция. Процедуры и функции
Цель: ознакомиться со средой программирования Visual Basic for Applications, изучить процедуры и функции vba

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2013
контакты
zadocs.ru
Главная страница

Разработка сайта — Веб студия Адаманов