murkovich Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору const N=5; var a, b, m: array[1..N] of integer; k: integer; sx, sy, sm: integer;   sx := 0; sy := 0; sm := 0;   for k:= 1 to N do begin   sx := sx + x[k]*m[k];   sy := sy + y[k]*m[k];   sm := sm + m[k]; end; writeln('центр тяжести: x=', sx / sm, ', y=', sy / sm); Всего записей: 1551 | Зарегистр. 26-05-2005 | Отправлено: 12:28 22-12-2009

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование