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

> ВНИМАНИЕ!

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

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> 25 Программ
сообщение
Сообщение #1





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

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


Всем доброго времени суток. Прошу помощи у форумчанинов. Сегодня первый день после больницы пришел на учебу. На что мне училка задала 25 заданий. и воплнить их надо за 2 дня blink.gif Понимаю прошу многого. Но всё же кто чем может помогите написать проги в срок.
Спойлер (Показать/Скрыть)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 2)
сообщение
Сообщение #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;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Бывалый
***

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

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


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. Playing The Lottery: A Game of Luck
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 29.03.2024 6:04
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name