Предмет: Информатика,
автор: Lerusik54rus
Ребятки, снова прошу помощи!))) Условие: Составьте блок-схему и программу на языке VBA, которая вычисляет частное от деления двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные (делитель равен нулю), выдавать сообщение об ошибке.
Я совсем не дружу с бейсиком(( Помогите пожалуйста! :)
Ответы
Автор ответа:
0
uses crt;
var a,b,n:integer;
begin
clrscr;
writeln('Введите делимое:'); readln(a);
writeln('Введите делитель <>0'); readln(b);
n:=a div b;
if b <> 0 then begin n:=a div b; writeln('Ответь ',n); end else writeln('error 0');
readkey;
end.
Если что паскаль
var a,b,n:integer;
begin
clrscr;
writeln('Введите делимое:'); readln(a);
writeln('Введите делитель <>0'); readln(b);
n:=a div b;
if b <> 0 then begin n:=a div b; writeln('Ответь ',n); end else writeln('error 0');
readkey;
end.
Если что паскаль
Приложения:

Автор ответа:
0
да знаю , может хоть блок схема пригодится
Автор ответа:
0
Отдельное спасибо за блок-схему, пригодится! :)
Автор ответа:
0
Sub z()
x = InputBox("Введите делимое")
Do
y = InputBox("y")
If y = 0 Then MsgBox ("Делить на 0 нельзя")
Loop Until y <> 0
MsgBox ("s" & x / y)
End Sub
x = InputBox("Введите делимое")
Do
y = InputBox("y")
If y = 0 Then MsgBox ("Делить на 0 нельзя")
Loop Until y <> 0
MsgBox ("s" & x / y)
End Sub
Приложения:

Автор ответа:
0
DeSexAlex, Большущее спасибо, снова Вы меня выручили!))
Похожие вопросы
Предмет: Право,
автор: korkdasha1
Предмет: Право,
автор: korkdasha1
Предмет: Биология,
автор: kitiryauna
Предмет: Математика,
автор: Zelmers
Предмет: География,
автор: VAVANKORKIN