Sub Задача()
Dim a, b As Integer
a = InputBox("Введите а!")
b = InputBox("Введите b!")
If (a >= 0 And b >= 0) Or (a < 0 And b < 0) Then
MsgBox ("Знаки одинаковые")
Else
MsgBox ("Знаки разные")
End If
End Sub

вот процедура на VBA (на нем записываются макросы в Microsoft Office)

и как-то так блок-схема рисуется :D

0 0

4 года назад

Прочитать ещё 2 ответа

Срочно! создать программу! тема "организация подпрограмм через функцию" задача дан параллепипед с измерениями а,b, c. Составить

AntonFurs1986

Вычисление производим по формуле
$S=2(ab+ac+bc)=2(Sp_{(a,b)}+Sp_{(a,c)}+Sp_{(b,c)}); \ Sp_{(x,y)}=x\cdot y$

function Sp(x,y:real):real;
begin
Sp:=x*y
end;

var
a,b,c,S:real;
begin
Write('Введите размеры сторон a,b,c: ');
Read(a,b,c);
S:=2*(Sp(a,b)+Sp(a,c)+Sp(b,c));
Writeln('Площадь поверхности равна ',S)
end.

Тестовое решение:
Введите размеры сторон a,b,c: 2.5 3.15 4
Площадь поверхности равна 60.95

0 0

4 года назад

ПОЧЕМУ ОБЪЁМ ИНФОРМАЦИИ БЫВАЕТ РАЗНЫМ? ОТВЕТЬТЕ, СРОЧНО!!! ПОЖАЛУЙСТА!!! (Информатика).

Дима Ринский [1]

720:180 =4 бита - один символ
2^4=16 символов в алфавите (мощность алфавита)
То есть 1 буква это 4 бита.
Много букв = много битов = большой обьём памяти.

0 0

4 года назад

Прочитать ещё 2 ответа

Дано натуральное число. определить сумму квадратов его цифр паскаль цмкл while

Ольга Половникова

var a,b,s: integer;
begin
readln(a);
while a>=10 do
begin
b:=a mod 10;
s:=s+sqr(b);
a:=a div 10;
end;
a:=a*a;
s:=s+a;
writeln(s);
readln;

end.
В s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!

0 0

1 год назад