IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> 25 Программ
nOoB
сообщение 14.05.2013 22:10
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


Всем доброго времени суток. Прошу помощи у форумчанинов. Сегодня первый день после больницы пришел на учебу. На что мне училка задала 25 заданий. и воплнить их надо за 2 дня blink.gif Понимаю прошу многого. Но всё же кто чем может помогите написать проги в срок.
Спойлер (Показать/Скрыть)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Innusya***
сообщение 16.05.2013 12:03
Сообщение #2


Гость






У самой такие же 25 заданий надо к экзамену приготовить))
могу с медалями помочь
вставляй в процедуры
procedure TForm1.FormActivate(Sender: TObject);
begin
tabl.Cells[0,0]:='Страна';
tabl.Cells[1,0]:='Золотых';
tabl.Cells[2,0]:='Серебро';
tabl.Cells[3,0] :='Бронза';
tabl.Cells[4,0] :='Bcего';
tabl.Cells[5,0] :='Баллов';
tabl.Cells[0,1] :='австралия';
tabl.Cells[0,2] :='белорусия';
tabl.Cells[0,3] :='великобритания';
tabl.Cells[0,4] :='германия';
tabl.Cells[0,5] :='итаия';
tabl.Cells[0,6] :='китай';
tabl.Cells[0,7] :='корея';
tabl.Cells[0,8] :='куба';
tabl.Cells[0,9] :='нидерланды';
tabl.Cells[0,10]:='россия';
tabl.Cells[0,11]:='сша';
tabl.Cells[0,12]:='франция';
tabl.Cells[0,13]:='япония';
end;

procedure TForm1.Button1Click(Sender: TObject);
var r,s,p,m,c:integer; {номер колонки и сроки}
begin
for r:=1 to tabl.rowcount do //обработать все строки
begin s:=0; // вычисляем общ.кол-во медалей
for c:=1 to 3 do
if tabl.cells[c,r] <>''
then s:=s+StrToInt(tabl.cells[c,r])
else tabl.cells[c,r]:='0'; // вычисл.кол-во очков
p:=7*StrToInt(tabl.cells[1,r])+6*StrToInt(tabl.cells[2,r])+5*StrToInt(tabl.cells[3,r]);// вsdjl результата
tabl.cells[4,r]:=IntToStr(s); //количество медалей
tabl.cells[5,r]:=IntToStr(p); // очков
end;
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 28.03.2024 22:22
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"