Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2009, 16:10   #11
maladoy
delphi-ст!
Форумчанин
 
Аватар для maladoy
 
Регистрация: 02.01.2009
Сообщений: 825
По умолчанию

Пост #6-Полный код.
вступлю в команду разработчиков ПО на Delphi
maladoy вне форума Ответить с цитированием
Старый 21.05.2009, 16:18   #12
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Пепел Феникса
Я не спорю, раз уж учится товарищ то пусть правила игры познает.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 21.05.2009, 16:19   #13
Инспектор ГУЛ
Пользователь
 
Аватар для Инспектор ГУЛ
 
Регистрация: 21.05.2009
Сообщений: 55
По умолчанию

Всё! Получилось, только я не понял, что я в коде делал не правильно? кто нибудь может объяснить мне? только очень подробно, т. к. я "чайник" в этом новом для меня деле - программировании. а?
В тюрьме столько не сидят, сколько в ИНЭТЕ!
Инспектор ГУЛ вне форума Ответить с цитированием
Старый 21.05.2009, 16:20   #14
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Стилет а я и не спорю=)
с Вами спорить и не вижу смысла=)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

Последний раз редактировалось Пепел Феникса; 21.05.2009 в 16:23.
Пепел Феникса вне форума Ответить с цитированием
Старый 21.05.2009, 16:20   #15
Инспектор ГУЛ
Пользователь
 
Аватар для Инспектор ГУЛ
 
Регистрация: 21.05.2009
Сообщений: 55
По умолчанию

и в чём я код неправильно оформил как сказал Пепел Феникса... а?
В тюрьме столько не сидят, сколько в ИНЭТЕ!
Инспектор ГУЛ вне форума Ответить с цитированием
Старый 21.05.2009, 16:29   #16
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

оформление кода - я имел в виду отступы(для читабельности и удобства)

то есть вот ваш код:

Код:
procedure TfMain.Button1Click(Sender: TObject);
var
Perem1, Perem2 : Integer; // Делимое и делитель - целые числа
Perem3 : Double; // Частное, то есть результат - дробное число
begin
Perem1 := StrToInt(Edit1.Text); // Делимое
Perem2 := StrToInt(Edit2.Text); // Делитель

{защита от дураков:}
If Perem2 = 0 then begin
Soobshenie;
Edit3.Text := '0';
end
else begin
Perem3 := Delenie(Perem1, Perem2);
Edit3.Text := FloatToStr(Perem3);
end;


end;
а вот грамотно оформленный код:
Код:
procedure TfMain.Button1Click(Sender: TObject);
var
  Perem1, Perem2 : Integer; // Делимое и делитель - целые числа
  Perem3 : Double; // Частное, то есть результат - дробное число
begin
  Perem1 := StrToInt(Edit1.Text); // Делимое
  Perem2 := StrToInt(Edit2.Text); // Делитель
  {защита от дураков:}
  If Perem2 = 0 then 
    begin
      Soobshenie;
      Edit3.Text := '0';
    end
  else 
    begin
      Perem3 := Delenie(Perem1, Perem2);
      Edit3.Text := FloatToStr(Perem3);
    end;
end;
правда лично я делаю обычно чуть иначе...
но это все не критично...



а ваша ошибка в том что вы заменив вывод сообщения
Код:
ShowMessage('Ошибка! На ноль делить нельзя!');
на вашу процедуру Soobshenie;
забыли написать саму эту процедуру
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 21.05.2009, 16:41   #17
Инспектор ГУЛ
Пользователь
 
Аватар для Инспектор ГУЛ
 
Регистрация: 21.05.2009
Сообщений: 55
По умолчанию

вроде понял... смутно конечно для меня все эти процедуры... думаю нужно будет заново попробовать пройти урок... Но уже хоть что то понял. И ещё! у вас есть какая нибудь статья, где описаны все правила оформления кода? Чтобы я сразу стал привыкать ко всем правилам... а?
В тюрьме столько не сидят, сколько в ИНЭТЕ!
Инспектор ГУЛ вне форума Ответить с цитированием
Старый 21.05.2009, 17:00   #18
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
у вас есть какая нибудь статья, где описаны все правила оформления кода?
По-моему этиправила в каком-то ISО стандарте описаны...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 21.05.2009, 17:20   #19
Инспектор ГУЛ
Пользователь
 
Аватар для Инспектор ГУЛ
 
Регистрация: 21.05.2009
Сообщений: 55
По умолчанию

а что такое ISО стандарт? И где его найти?

что никто не знает где эти правила оформления кода? ну подскажите пожалуйста!!! буду очень благодарен и признателен!
В тюрьме столько не сидят, сколько в ИНЭТЕ!

Последний раз редактировалось Stilet; 22.05.2009 в 09:46.
Инспектор ГУЛ вне форума Ответить с цитированием
Старый 21.05.2009, 18:37   #20
Tirendus
Форумчанин
 
Аватар для Tirendus
 
Регистрация: 20.03.2009
Сообщений: 272
По умолчанию

смотря о каких правилах вы говорите... просто читайте дальше, там автор правила написания (синтаксис) показывает в каждой главе и доволно-таки подробно. Главное разобраться со свойствами, методами и событиями. А правила "оформления" кода - это красота его написания, читабельность, например использование отступов и комментариев.
Tirendus вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Среда Turbo Pascal 7.0 (урок для начинающих) Arigato Обсуждение статей 19 30.11.2009 18:01
Напишите кто то урок по OpenGL. spamer Обсуждение статей 2 07.05.2009 23:50
Как заснять видео урок в программе камтазия??? Рогаль Иван Софт 4 05.04.2009 19:21
решить с использованием рекурсивной подпрограммы. помогите пожалуйста ваще ни че не понял st1m Паскаль, Turbo Pascal, PascalABC.NET 2 02.04.2009 15:31
[Delphi]Окно как выводить понял,а вот.. Ученик(школьник) Помощь студентам 5 26.12.2008 13:55