Вернуться Форум Bashtel.RU > Разное > Компьютеры
Компьютеры Железо, программирование

Ответ
 
Опции темы Опции просмотра

Помогите пожалуйста решить задачи в Паскале!
Старый 17.06.2011, 09:33   #1
Мимо проходил
 
Tores вне форума
Регистрация: 17.06.2011
Сообщений: 2
По умолчанию Помогите пожалуйста решить задачи в Паскале!

1 Задача:
Вычислить координаты точки, делящий отрезок ab в отношении n1:n2 по формулам: x=(X1+tX2)/(1+t), y=(Y1+tY2)/(1+t), где t=n1/n2

2 Задача:
-Формула для расчетов элементов массива: Ai=i+1/i-1
-Диапазон изменения 2 < i < 12
-Величина для вычисления - сумма целых элементов массива
  Ответить с цитированием
 

Старый 17.06.2011, 13:48   #2
Маньяк форума
 
Аватар для F0iL
 
F0iL вне форума
Регистрация: 19.05.2009
Адрес: Уфа
Сообщений: 6,299
По умолчанию

program ololo;
var
x1,x2,y1,y2,n1,n2:byte;
t,x,y:real;
begin
write('введите x1');
readln(x1);
write('введите x2');
readln(x2);
write('введите y1');
readln(y1);
write('введите y2');
readln(y2);
write('введите n1');
readln(n1);
write('введите n2');
readln(n2);
t:=n1/n2;
x=(X1+tX2)/(1+t);
y=(Y1+tY2)/(1+t);
writeln('x=',x);
writeln('y=',y);
end.

если нужны целые значения то типы x,y,n1,n2 замени с real на byte, и знак "/" в формулах замени на слово "div"

Добавлено через 2 минуты
program ololo;
var
i:integer;
S:real;
a:array [2..12] of real;
begin
for i:=2 to 12 do a[i]:=(i+1)/(i-1);
s:=0;
for i:=2 to 12 do if (a[i] mod 1=0) then s:=s+a[i];
writeln(s);
end.
__________________
Origin: ...почему люди бьются головой об стену? Биться об угол намного эффективнее!
Я не являюсь работником ОАО БИС и по всем связанным вопросам посылаю нафиг.

Последний раз редактировалось F0iL; 17.06.2011 в 13:51.. Причина: Добавлено сообщение
  Ответить с цитированием
 

Старый 17.06.2011, 18:49   #3
Мимо проходил
 
Tores вне форума
Регистрация: 17.06.2011
Сообщений: 2
По умолчанию

Спасибо огромное!!!! ты настоящий друг!! выручил!!!!

Добавлено через 9 минут
FOiL смотри, задачку решил в паскале

Program Summa;
Var n:integer;
e,X,H,G,S,C:real;
Begin
Write('‚Введите x,' x= ');
Readln(x);
e:=0.0001;
n:=0;
S:=0;
G:=1;
H:=1;
C:=1;
While abs(G)> e do
begin
S:=S+G;
n:=n+1;
C:=-C;
H:=H*(x*x)/((2*n-1)*2*n);
G:=C*H;
end;
Writeln('сумма члено ряда равна ',S:6:3);
end.

при проверке преподаватель сказал что не правильно, ты видишь ошибку? он говорит что при x=0,5 должно получиться больше 1, у меня получается 0,878 ((

Добавлено через 24 минуты
задание такое
S=1 - X2/2! + X4/4! - + (-1)в степени n *Х в степени 2n/(2n)!

при 0,1 <=X<=1


расшифровочка: X2 - это X в квадрате, аналогично X4

Добавлено через 36 минут
я вторую задачку вбил в паскаль, нажал RUN мне выдало ошибку
на mod 1=0)
PS: Error 41

Последний раз редактировалось Tores; 17.06.2011 в 19:25.. Причина: Добавлено сообщение
  Ответить с цитированием
 
Ответ


Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачку в паскале elenik-lenik Программирование 1 01.06.2011 08:07
Экзамен по информатике 1 курс,решить задачу на Паскале РусWalk Программирование 2 07.01.2011 18:41
Сделайте пожалуйста 5 задач на Паскале SEK500 OS и Программное обеспечение 0 25.10.2010 12:53
Помогите пожалуйста решить задачи в Turbo Pascal. [OKT]DenisL Программирование 0 06.05.2010 22:02
помогите решить задачи в паскале ProtectoR Программирование 2 04.10.2009 21:18



Текущее время: 09:43. Часовой пояс GMT +3.


vBulletin skin developed by: eXtremepixels
Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd. Перевод: zCarot
top of page