Необходимо составить программу в том числе условие задачи которая должна содержать функцию и процедуру.
И помогите решить задачу вот условие:
Выяснить делится ли число, вводимое с клавиатуры на 4 без остатка.
Полная версия: делится ли число на 4
Вот тока зачем сюда ф-ции и процедуры непойму...
var n:integer;
begin
write('Введите число');
readln(n);
if n=0 then
begin
writeln('n=',0);
readln;
exit;
end;
if n mod 4 = 0 then
writeln('Делится!') else
writeln('Не делится');
end.
Код
var n:integer;
begin
write('Введите число');
readln(n);
if n=0 then
begin
writeln('n=',0);
readln;
exit;
end;
if n mod 4 = 0 then
writeln('Делится!') else
writeln('Не делится');
end.
Код
program mod4;
procedure getValue(var x: integer);
begin
write('Input integer number: ');
readln(x);
end;
function isOK(x: integer): boolean;
begin
isOK := ((x mod 4) = 0);
end;
var myValue: integer;
begin
getValue(myValue);
if isOK(myValue)
then writeln('Yesss!')
else writeln('No!');
end.
procedure getValue(var x: integer);
begin
write('Input integer number: ');
readln(x);
end;
function isOK(x: integer): boolean;
begin
isOK := ((x mod 4) = 0);
end;
var myValue: integer;
begin
getValue(myValue);
if isOK(myValue)
then writeln('Yesss!')
else writeln('No!');
end.
;) :P :D
:yes:
Цитата(Бродяжник @ 22.12.04 9:17)
Код
program mod4;
procedure getValue(var x: integer);
begin
write('Input integer number: ');
readln(x);
end;
function isOK(x: integer): boolean;
begin
isOK := ((x mod 4) = 0);
end;
var myValue: integer;
begin
getValue(myValue);
if isOK(myValue)
then writeln('Yesss!')
else writeln('No!');
end.
procedure getValue(var x: integer);
begin
write('Input integer number: ');
readln(x);
end;
function isOK(x: integer): boolean;
begin
isOK := ((x mod 4) = 0);
end;
var myValue: integer;
begin
getValue(myValue);
if isOK(myValue)
then writeln('Yesss!')
else writeln('No!');
end.
;) :P :D
:yes: Муахаха , ноль поставь :D :D !laugh:
Код
...
procedure OnZeroInput(x: integer);
begin
if x = 0 then
begin
writeln('Fatal Error: User performed illegal action and will be killed');
halt;
end;
end;
...
Закрыто - несоблюдение правил форума...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.