Ну, если я правильно понял суть задания, то:
osh - кол-во ошибок, oc - осценка. Соль программы в том, что учитель вбивает количество ошибок, и ему выдается оценка, которую надо поставить. Что-бы программа работала, создашеь кнопку на форме, жмешь по ней два раза в VB, появится окно для ввода кода программы, туда пишешь вот эту команду: Ocenka()
Потом после этой команды находишь строчку End Sub, она будет перед End Class, и копируешь вот этот код:
Sub Ocenka()
Dim osh, oc As Byte
osh = InputBox("Введите количество ошибок")
If osh = 0 Then
oc = 5
ElseIf osh = 1 Then
oc = 4
ElseIf osh = 2 Then
oc = 3
ElseIf osh >= 3 Then
oc = 2
End If
MsgBox("Оценка ученика - " & oc)
End Sub
Ну впринципе все) Скрин програмки прилагается)
PROGRAM ThreeNumbers;
VAR
numberOne : DOUBLE;
numberTwo : DOUBLE;
numberThree : DOUBLE;
sum : DOUBLE;
product : DOUBLE;
average : DOUBLE;
BEGIN
WriteLn('Введите три числа:');
Write('Число 1 -->');
ReadLn(numberOne);
Write('Число 2 -->');
ReadLn(numberTwo);
Write('Число 3 -->');
ReadLn(numberThree);
sum := numberOne + numberTwo + numberThree;
product := numberOne * numberTwo * numberThree;
average := (numberOne + numberTwo + numberThree) / 3.0;
WriteLn('Сумма = ', sum:6:1);
WriteLn('Произведение = ', product:6:1);
WriteLn('Среднее = ', average:6:1);
END.
program mas;
var
massive: array[0..1000] of integer;
n, i: integer;
begin
massive[0] := 2;
write('Введите количество элементов массива: ');
read(n);
for i := 0 to n - 1 do
begin
write(massive[i], ' ');
massive[i + 1] := massive[i] + 2;
end;
end.
Объяснение:
Максимальный размер массива - 1001 элемент.
program mas; // Название программы
var
massive: array[0..1000] of integer; // Целочисленный массив
n, i: integer; // Переменные, отвечающие за количество чисел в массиве и счётчик.
begin // Начало программы
massive[0] := 2; // Первое значение массива = 2
write('Введите количество элементов массива: '); // Вывод сообщения в консоль
read(n); // Считываем значение переменной n с клавиатуры
for i := 0 to n - 1 do // Идём от 0 до n - 1 индекса (n - 1, т. к. идём с нулевого индекса)
begin // Начало цикла
write(massive[i], ' '); // Вывод значения массива с индексом i
massive[i + 1] := massive[i] + 2; // Следующий элемент массива = текущий элемент массива + 2
end; // Конец цикла
end. // Конец программы