Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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


Ответ
 
Опции темы
Старый 10.06.2010, 13:23   #1
MegaMozg28
 
Регистрация: 08.06.2010
Сообщений: 4
Радость как грамотно объяснить код (делфи 7)

Здравствуйте

Вот как грамотно объяснить этот процесс? :

procedure Tform1.Calculate;
var
sum:integer;
begin
sum:=0;
if f=d then sum:=sum+strtoint(cena.cells[1,0]);

if ((f=1) and (d=2))or((d=1) and (f=2))
then sum:=sum+strtoint(cena.cells[1,1]);

if ((f=1) and (d=3))or((d=1) and (f=3))
then sum:=sum+strtoint(cena.cells[1,2]);

if ((f=1) and (d=4))or((d=1) and (f=4))
then sum:=sum+strtoint(cena.cells[1,3]);

if ((f=1) and (d=5))or((d=1) and (f=5))
then sum:=sum+strtoint(cena.cells[1,4]);

if ((f=2) and (d=3))or((d=2) and (f=3))
then sum:=sum+strtoint(cena.cells[1,5]);
if ((f=2) and (d=4))or((d=2) and (f=4))
then sum:=sum+strtoint(cena.cells[1,6]);

if ((f=2) and (d=5))or((d=2) and (f=5))
then sum:=sum+strtoint(cena.cells[1,7]);

if ((f=3) and (d=4))or((d=3) and (f=4))
then sum:=sum+strtoint(cena.cells[1,8]);

if ((f=3) and (d=5))or((d=3) and (f=5))
then sum:=sum+strtoint(cena.cells[1,9]);

if ((f=4) and (d=5))or((d=4) and (f=5))
then sum:=sum+strtoint(cena.cells[1,10]);

if gazel=1 then sum:=sum+strtoint(cena.cells[1,11]);
if pazek=1 then sum:=sum+strtoint(cena.cells[1,12]);
label4.Visible:=true;
Label4.caption:='Стоимость поездки составит: '+inttostr(sum)+' рублей';
button3.Visible:=true;
end;

и как он называется?
MegaMozg28 вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сделат грамотно меню Manonia HTML и CSS 5 19.01.2010 12:43
Срочно!Нужно объяснить код программ! ArcaN0id Помощь студентам 1 28.06.2009 11:15
Как перевести на делфи следующий код? SkAndrew Общие вопросы Delphi 7 15.05.2009 20:48
Код игры на Паскале и на Делфи сильно отличается? Как переписать код с Паскаля в Делфи? Mclaren Помощь студентам 2 27.04.2009 21:37
Как грамотно сделать описание к проге? chandrasecar Общие вопросы Delphi 1 20.11.2008 22:23


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS