Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ 25 Программ

Автор: nOoB 15.05.2013 2:10

Всем доброго времени суток. Прошу помощи у форумчанинов. Сегодня первый день после больницы пришел на учебу. На что мне училка задала 25 заданий. и воплнить их надо за 2 дня blink.gif Понимаю прошу многого. Но всё же кто чем может помогите написать проги в срок.

Спойлер (Показать/Скрыть)

Автор: Innusya*** 16.05.2013 16: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;

Автор: nishaknapp 16.01.2023 7:24

Why not settling on games that is fun and at the same time your earning. Well it'll make suspense because the game is well but dude just try it and it gave me hope while pandemic is real rn. https://marketbusiness.net/playing-the-lottery-a-game-of-luck/