Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 06.12.2012, 16:32   #1 (permalink)
Диман
Новичок
 
Регистрация: 06.12.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Нужно написать функцию

Плиз хелм ми гайс!
Нужно написать функцию! проверяющую массив на геометрическую прогрессию!
Есть код который переделал с процедуры но он не пашет... Ругается на отсутствие мемо
Код:
Function Checkgp:boolean;
var
i:integer;
//q:Real;  q обьявите глобально;
rez:Boolean;
begin
  q:=strtofloat(memo1.lines[1])/strtofloat(memo1.lines[0]);
   result:=true;
      for i:=2 to memo1.lines.count-1 do
     if (strtofloat(memo1.lines[i])/strtofloat(memo1.lines[i-1])<>q)
   then
 begin
  result:=false; exit;
 end;
end;

вызов
Код:

if checkGP then
edt1.Text:=FloatToStr(q)
  else
   edt1.Text:='0';
Диман вне форума   Ответить с цитированием

Старый 06.12.2012, 16:32
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Ранее созданных обсуждения помогут раскрыть глаза на решение проблемы

Нужно написать программу в паскале, сама не могу!
Помогите с задачами, пожалуйста. Нужно написать на языке С
Нужно написать программу

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 16:59.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.