Разработка программы

@gerona12 · Регистрация: 17.11.2012

Author24 — интернет-сервис помощи студентам

Напишите модуль включающий процедуру CallMe и функцию CallCount. Первая выводит на дисплей сообщение, переданное в качестве параметра, а вторая — возвращает количество обращений к CallMe. Убедитесь, что интерфейс вашего модуля не содержит ничего другого. Вспомогательный вопрос: Нужны ли общие переменные в этом модуле?
Пожалуйста помогите.

@DaMortum · 13.01.2013, 16:38

Delphi

program Project1;
 
uses
  Dialogs, SysUtils;
 
{$R *.res}
var
       S: String;
  iCount: integer = 0;
 
 
procedure CallMe(S: String);
begin
  ShowMessage(S);
  Inc(iCount);
end;
 
function CallCount: integer;
begin
  Result := iCount;
end;
 
begin
  InputQuery('Окно ввода','Вводите быстрей',S);
  CallMe(S);
  CallMe(S);
  CallMe(S);
  CallMe(S);
  CallMe(S);
  CallMe(S);
  CallMe('Количество вызовов: '+ IntToStr(CallCount));
end.

@gerona12 · 13.01.2013, 18:43 **[ТС]**

Скажите пожалуйста,а это консальное или граф.интерфейсное приложение?если второе, то как выглядит форма и куда всё это вписиывать?

Добавлено через 1 минуту
Я в Delphi вообще 0.

Добавлено через 2 минуты
пожалуйста помогите,а то завтра сдавать.

@DaMortum · 13.01.2013, 21:33

Во втором модуле процедура и функция. В первом форма их использующая.

@gerona12 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 24
		1
	Разработка программы 13.01.2013, 15:59. Показов 621. Ответов 3 Метки нет (Все метки) Напишите модуль включающий процедуру CallMe и функцию CallCount. Первая выводит на дисплей сообщение, переданное в качестве параметра, а вторая — возвращает количество обращений к CallMe. Убедитесь, что интерфейс вашего модуля не содержит ничего другого. Вспомогательный вопрос: Нужны ли общие переменные в этом модуле? Пожалуйста помогите. 0

@gerona12 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 24
	13.01.2013, 18:43 [ТС]	3
	Скажите пожалуйста,а это консальное или граф.интерфейсное приложение?если второе, то как выглядит форма и куда всё это вписиывать? Добавлено через 1 минуту Я в Delphi вообще 0. Добавлено через 2 минуты пожалуйста помогите,а то завтра сдавать. 0

	13.01.2013, 21:33