VBNet - Форум - Нужна помощь по Pascal&VisualBasic

Вопрос: Нужна помощь по Pascal&VisualBasic Добавлено: 22.03.05 22:26

Автор вопроса: Shadow_Tm

Добрый день Уважаемые!
Возникла маленькая проблемка, всю жизнь учил Pascal, а тут по срочному нужна програмка на VisualBasic, в котором я полный 0. ПОМОГИТЕ ПРОГРАММКУ НАПИСАНУЮ НА PASCAL-e ПЕРЕВЕСТИ НА ЯЗЫК VISUALBASIC!!! Заранее благодарен!!!

---------------------------------
program PASCAL;

const plan=28;
a:array [1..10] of integer = (20,27,30,31,22,40,24,29,28,30);

var
i,k:integer;

begin
k:=0;
for i:=1 to 10 do
if a>=plan then k:=k+1;
writeln('Выполнили план ',k,'- человек');
readln;
end.
--------------------------------
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: *CyRax* Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229	Web-сайт: basicproduction.nm.ru Профиль \| \| #1	Добавлено: 22.03.05 22:58
	Такой примитив даже я, при полном отсутствии знаний Паскаля могу написать ' Integer - 16 битное знаковое целое ' a - переменная типа Variant Option Base 1 Sub Main() Const plan = 28 a = Array(20, 27, 30, 31, 22, 40, 24, 29, 28, 30) Dim i As Integer, k As Integer For i = 1 To 10 If a(i) >= plan Then k = k + 1 Next i MsgBox "Выполнили план " & k & "- человек" End Sub Ответить

Номер ответа: 2 Автор ответа: *CyRax* Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229	Web-сайт: basicproduction.nm.ru Профиль \| \| #2	Добавлено: 22.03.05 23:03
	А что, на Паскале тоже строки разделяются ';'? Я думал такое извращение только в Си (ну и в 1С между делом ). Ответить

Номер ответа: 3 Автор ответа: Shadow_Tm Вопросов: 2 Ответов: 1	Профиль \| \| #3	Добавлено: 22.03.05 23:38
	Большое тебе спасибо, выручил неймоверно Скажи, а что строка "Option Base 1" означает ??? Ответить

Номер ответа: 4 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #4	Добавлено: 22.03.05 23:44
	А что, на Паскале тоже строки разделяются ';'? CyRax проснулся В алголоподобных языках, которых очень много, строки оканчиваются на ; Скажи, а что строка "Option Base 1" означает ??? Значит, что массивы начинаются с индекса 1. Просто CyRax'у было лень писать Array(0,... Ответить

Номер ответа: 5 Автор ответа: *CyRax* Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229	Web-сайт: basicproduction.nm.ru Профиль \| \| #5	Добавлено: 23.03.05 00:20
	Угу, про Алголоподобные языки знаю, но чтобы и Паскаль к ним относился - не знал Option Base 1 - задаёт нижний индекс массива по умолчанию для всех массивов. Вначале стоит 0. Без использования Option Base 1 цикл выглядел бы так: For i = 0 To 9 If a(i) >= plan Then k = k + 1 Next i Это я просто тебе наиболее приблежённо к твоему коду написал. Чтобы ты не запутался Ответить

Страница: 1 |