-
Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.
Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.
Если вы у нас впервые, загляните на страницу о проекте, чтобы узнать больше. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.
Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.Задать вопрос Новые сообщения Как правильно спроситьЕсли пришли по ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.
Задача о центре тяжести
- Автор темы Jenek
- Дата начала
Vladimir_S
Ученик
- Регистрация
- 27 Авг 2008
- Сообщения
- 27,807
- Реакции
- 1,025
- Баллы
- 0
- Регистрация
- 6 Фев 2010
- Сообщения
- 420
- Реакции
- 6
- Баллы
- 0
Код:
uses crt;
const
n=10;
var
xy:array [1..n,1..2] of real;
m: array [1..n] of real;
sx,kx,sy,ky:real;
i,j:integer;
xc,yc:real;
begin
writeln ('znachenie n=10');
for i:=1 to n do begin
for j:=1 to 2 do
writeln ('x y',i,j,'=');
read (xy[i,1],xy[i,2]);
end;
for i:=1 to n do begin
writeln ('massa',i,'=');
read (m[i]);
end;
sx:=0;
sy:=0;
kx:=0;
ky:=0;
for i:=1 to n do begin
for j:=1 to 2 do begin
sx:=sx+(m[i]*xy[i,1]);
kx:=m[i]+kx;
sy:=sy+(m[i]*xy[i,2]);
ky:=m[i]+ky;
end;
end;
xc:=sx/kx;
yc:=sy/ky;
writeln ('Xc=',xc,'_Yc=',yc);
readln;
readkey
end.