Предмет: Информатика,
автор: ВИИИИЛА
ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ, ПОЖАЛУЙСТА
Напишите программу, использующую модуль, в котором описаны 2 процедуры: первая возвращает произведение двух чисел, вторая их частное.
Ответы
Автор ответа:
0
unit MyModule;
interface
function prod(a,b:real):real;
function quot(a,b:real):real;
implementation
function prod(a,b:real):real;
begin
Result:=a*b
end;
function quot(a,b:real):real;
begin
Result:=a/b
end;
end.
---------------------------------------------
uses MyModule;
var
a,b:real;
begin
Write('Введите через пробел a и b: '); Read(a,b);
Writeln('a*b=',prod(a,b),', a/b=',quot(a,b))
end.
Тестовое решение:
Введите через пробел a и b: 12 0.5
a*b=6, a/b=24
interface
function prod(a,b:real):real;
function quot(a,b:real):real;
implementation
function prod(a,b:real):real;
begin
Result:=a*b
end;
function quot(a,b:real):real;
begin
Result:=a/b
end;
end.
---------------------------------------------
uses MyModule;
var
a,b:real;
begin
Write('Введите через пробел a и b: '); Read(a,b);
Writeln('a*b=',prod(a,b),', a/b=',quot(a,b))
end.
Тестовое решение:
Введите через пробел a и b: 12 0.5
a*b=6, a/b=24
Автор ответа:
0
Большое, спасибо) А через какую программу открывать модуль?
Автор ответа:
0
Вы же написали, что ПаскальАВС. Я делал в PascalABC.NET. Сначала создаете файл с именем MyModule.pas из текста, что до разделителя и компилируете его. Затем хагружаете текст после разделителя и исполняете, откомпилированный модуль подтягивается сам по имени файла.
Автор ответа:
0
Все, получилось) большое спасибо)
Автор ответа:
0
Для спасибо тут синенькая кнопочка)
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Геометрия,
автор: gleb040208
Предмет: Українська мова,
автор: arseniy4231
Предмет: История,
автор: Evelinka280
Предмет: Физика,
автор: govoruha