Помощь - Поиск - Пользователи - Календарь
Полная версия: 25 Программ
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
nOoB
14.05.2013 22:10
Всем доброго времени суток. Прошу помощи у форумчанинов. Сегодня первый день после больницы пришел на учебу. На что мне училка задала 25 заданий. и воплнить их надо за 2 дня blink.gif Понимаю прошу многого. Но всё же кто чем может помогите написать проги в срок.
Спойлер (Показать/Скрыть)
Innusya***
16.05.2013 12:03
У самой такие же 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;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.