Qbasic 643 вариант Задание (максимальная оценка – 12п.):
1. Запустить генератор случайных чисел. (1п.)
2. В виде комментария (оператор REM) записать свою фамилию, имя, класс. (1п.)
3. Ввести переменную а в виде целого случайного числа в интервале (-12,10)(2п.)
4. Вычислить переменную b, которая на 2 единицы больше первой переменной а. (1п.)
5. Вычислить третью переменную с, равную разности двух первых переменных. (1п.)
6. Вывести на экран полученные значения переменных, а, b и с в указанном виде (2п.)
а= значение а
b= значение b с= значение с
7. Найти произведение переменных а, b и с, вывести его на экран в указанном виде. (2п.)
а * b * с=значение
8. Если полученное произведение положительно (>=0), то получить на экране
REZULTATS POZITIVS , если отрицательно - REZULTATS NEGATIVS.(2п.)
function Summa(a,b:integer):string;
var a1,b1:integer;
begin //находим сумму первого числа
a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);
//находим сумму второго числа
b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);
//выясняем что больше
if a1>b1 then
Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1)
else
Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin //Выполнение и вывод результата функции через нажатие кнопки
Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
end;