|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.06.2010, 14:23 | #1 |
Регистрация: 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; и как он называется? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как сделат грамотно меню | Manonia | HTML и CSS | 5 | 19.01.2010 12:43 |
Срочно!Нужно объяснить код программ! | ArcaN0id | Помощь студентам | 1 | 28.06.2009 12:15 |
Как перевести на делфи следующий код? | SkAndrew | Общие вопросы Delphi | 7 | 15.05.2009 21:48 |
Код игры на Паскале и на Делфи сильно отличается? Как переписать код с Паскаля в Делфи? | Mclaren | Помощь студентам | 2 | 27.04.2009 22:37 |
Как грамотно сделать описание к проге? | chandrasecar | Общие вопросы Delphi | 1 | 20.11.2008 22:23 |