Часовой пояс: UTC + 3 часа




Куратор(ы):   Lord_of_Darkness   



Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 985 • Страница 37 из 50<  1 ... 34  35  36  37  38  39  40 ... 50  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
 
Прилепленное (важное) сообщение

Убедительная просьба ко всем, кто выкладывает исходники:
1. Обязательно пользуйтесь тэгом code (иначе очень трудно читать)
2. Старайтесь делать отступы

Если вы хотите чтобы вам помогли в написании программы, внятно излагайте задание!

Прежде чем задать вопрос, воспользуйтесь учебником


Возможно, что нужная вам программа уже написана, поэтому советую просмотреть список здесь и здесь

Отредактировано куратором: Lord_of_Darkness. Дата: 07.07.2006 19:36



Партнер
 

Ребята, плиз, помогите решить задачи, а мозгов до Паскаля у меня не хватает. Help. Не дайте погибнуть.

1) На интервале 0.41≤h≤1.23 c шагом ∆h=0.08 протабулировать функцию:

W= a, h≤5
B, 0.6≤h≤0.7
C, в остальных случаях

где A=x2-cosh; b=ln h – ln x; c=x3+arctgh; x=0.14


2) Даны натуральные числа n, a1, a2, … ,an. В последовательности a1, a2,…,an получить сумму положительных, число отрицательных, число нулевых элементов.


3) Даны натуральное число n, действительная матрица .
aij ; i,j =1,…,n (прим: aij в скобках обозначающий матрицу)
Получить последовательность элементов главной диагонали а11, а22,…, аnn.



4) Даны действительные числа х1,…,х8. Получить действительную квадратную матрицу порядка 8:
x1 x2…x8
x12 x22…x82
………..
x18 x28…x88

прим: все х в квадратных скобках.
Во второй и третьей строке матрицы двойки и восьмерки в степени


 

Member
Статус: Не в сети
Регистрация: 21.01.2004
Откуда: ядерная помойка
Arielka
и что вызывает сложность?

_________________
memento mori


 

ядерный отход писал(а):
и что вызывает сложность?


Всё! Или помогите или .... Смеяться может каждый. Не все такие продвинутые.


 

Member
Статус: Не в сети
Регистрация: 21.01.2004
Откуда: ядерная помойка
Arielka писал(а):
Всё! Или помогите или .... Смеяться может каждый. Не все такие продвинутые.

я с удовольствием помогу, но писать код от начала до конца не буду. Ничего не имею против тех, кто чего-то не знает, но полных халявщиков не люблю.

_________________
memento mori


 

Member
Статус: Не в сети
Регистрация: 20.06.2007
Откуда: Саратов
помоги решить задачку:
Около стены наклонно стоит палка длиной x м. Один ее конец находится на расстоянии y м от стены. Определить значение угла a между палкой и полом для значениий x=k м и y, изменяющегося от 2 до 3 м с шагом h м.
1. Подскажите формула для расчета данного угла, задачи такого типа мною никогда не решались.
2.Помогите определить типы переменных.


 

ядерный отход писал(а):
я с удовольствием помогу, но писать код от начала до конца не буду. Ничего не имею против тех, кто чего-то не знает, но полных халявщиков не люблю.

Причем здесь халявщики. Лучше тогда вообще не отвечать.


 

Member
Статус: Не в сети
Регистрация: 21.01.2004
Откуда: ядерная помойка
Arielka писал(а):
Причем здесь халявщики. Лучше тогда вообще не отвечать.

не хочется тут флеймом заниматься, однако я отвечу: вы учитесь в вузе, у вас были лекции, наверняка есть книги, а интернет вообще кишит материалами по программированию и математике. Если вы не можете даже начать что-то делать (предложить решение задач, нереализованное программой, или напротив - например, начать писать программу), т.е. не сдвинуться с мёртвой точки, то стоит серьёзно задуматься. Вы даже не можете сформулировать, что вам непонятно - если же вам действительно непонятно _всё_, то это говорит исключительно об одном: вы не пытались сделать _ничего_. Сделайте хоть что-нибудь, выясните, что именно непонятно, разберитесь, что вообще надо, задайте конкретные вопросы,и вам ответят. А авантюристы писать бесплатно код от начала до конца (сложного ничего, а времени может отнять заметно) вы тут вряд ли найдёте.



SaH4o писал(а):
Около стены наклонно стоит палка длиной x м. Один ее конец находится на расстоянии y м от стены. Определить значение угла a между палкой и полом для значениий x=k м и y, изменяющегося от 2 до 3 м с шагом h м.1. Подскажите формула для расчета данного угла, задачи такого типа мною никогда не решались.


Если я правильно понимаю, то выглядит это так: стена-> |\ <-палка. Правый нижний угол - это искомый.
этот угол alfa = arccos(y/x).
Я, честно говоря, не знаю, можно ли использовать библиотеку мат. функций, если да, то в вашей программе нужно будет что-то вроде этого (в начале не забудьте прописать uses Math):
Код:
x:=k;
y:=2;
repeat
        alfa:=ArcCos(y/x);
        y:=y+h;
until y>=3;
     


внутры цикла, естественно, нужно добавить вывод значений (на экран или в файл - не знаю).
Если же пользоваться математической библиотекой нельзя, то функцию арккосинуса придётся написать самому, используя разложение в ряд.

SaH4o писал(а):
2.Помогите определить типы переменных.

real (double) или extended, смотря какая точность нужна.

_________________
memento mori


 

Member
Статус: Не в сети
Регистрация: 20.06.2007
Откуда: Саратов
ядерный отход
Вывод значений будет производиться на экран, а как точность нужна я и сам и не знаю, это задания из экзаменационных билетов, задание написал целиком, препод молчит как рыба,говорит мол сам делай, вот я и мучаюсь.
И про использование библиотек мат.функций сам не знаю, да и препод тож ничего тольком не сказал


 

Member
Статус: Не в сети
Регистрация: 21.01.2004
Откуда: ядерная помойка
ну тогда используй.

_________________
memento mori


 

Member
Статус: Не в сети
Регистрация: 20.06.2007
Откуда: Саратов
ядерный отход При использовние в коде( uses Math), Pascal ругается что мол File Not Found. Как с этим бороться?
И в этой программе полученное значение угла будет в радианах?


 

Member
Статус: Не в сети
Регистрация: 04.10.2004
SaH4o
arccos
И никаких math'ов :).


 

Member
Статус: Не в сети
Регистрация: 21.01.2004
Откуда: ядерная помойка
maco
угу, а арктангенс там откуда берётся?

SaH4o писал(а):
И в этой программе полученное значение угла будет в радианах?

да.

SaH4o писал(а):
При использовние в коде( uses Math), Pascal ругается что мол File Not Found. Как с этим бороться?

а ты где это прописываешь? Нужно в самом верху после Program [...]. В чём пишешь-то?
Добавлено спустя 1 минуту, 9 секунд
RadToDeg - вроде, стандартная функция перевода из радианов в градусы

_________________
memento mori


 

Member
Статус: Не в сети
Регистрация: 04.10.2004
ядерный отход
Вы таки не поверите :). Из System :).


 

Member
Статус: Не в сети
Регистрация: 21.01.2004
Откуда: ядерная помойка
maco писал(а):
Вы таки не поверите . Из System .

и поди ж ты
(ну я не пишу на делфи, так что мне можно:))

_________________
memento mori


 

Member
Статус: Не в сети
Регистрация: 20.06.2007
Откуда: Саратов
Да запутался я окончательно, столько нового вы мне предоставили что даже не знаю что с ним делать, хоть бы этот билет не попался
Помогите хоть чуть-чуть с кодом, Pascal досовский, я его уже вообще не помню, проходили года 2 назад.
А экзамен уже скоро :weep:


 

Member
Статус: Не в сети
Регистрация: 04.10.2004
SaH4o
В чем проблема конкретно?


 

Member
Статус: Не в сети
Регистрация: 20.06.2007
Откуда: Саратов
maco
Если я выложу свой код меня засмеете, ну вот не помню я этот Паскаль, учить просто не успею за 4 дня, а экзамен надо сдавать
Не знаю как заставить работать в программе все то, что Вы мне подсказали, ну ламер я в программировании.
И что за такая функция RadToDeg, впервые слышу.


 

Member
Статус: Не в сети
Регистрация: 04.10.2004
SaH4o
Не выложите код - просто промолчим :).
RadToDeg - в Pascal'е я такой не припомню, но кто мешает умножить результат, выраженный в радианах, на величину 180/pi?


 

Member
Статус: Не в сети
Регистрация: 20.06.2007
Откуда: Саратов
Код:
Program Zada4a;
Uses Crt;
Var
h,alfa,k,x,y:real;
function ArcCos ( X : Real ): Real;
var
TempArcCos : Real;
begin
if X = 0.0 then { to avoid division by 0 }
TempArcCos := Pi / 2.0
else
TempArcCos := ArcTan ( Sqrt ( 1 - X*X ) / X );
if X < 0.0 then
TempArcCos := PI - TempArcCos;
ArcCos := TempArcCos;
end;
x:=k;
y:=2;
repeat
        alfa:=ArcCos(y/x);
        y:=y+h;
until y>=3;
End.

Вывод результата на экран не делал, программа состоит из того вы писали сам ничего нового не добавлял, просто тупо не знаю, че тут надо сделать. Переменные сделал все Real, правильно, не правильно тоже не знаю, помогите баобабу, как же мне стыдно за себя.


 

Member
Статус: Не в сети
Регистрация: 04.10.2004
Код:
Program Zada4a;
Uses Crt;
Var
h,alfa,k,x,y:real;
function ArcCos ( X : Real ): Real;
var
TempArcCos : Real;
begin
if X = 0.0 then { to avoid division by 0 }
TempArcCos := Pi / 2.0
else
TempArcCos := ArcTan ( Sqrt ( 1 - X*X ) / X );
if X < 0.0 then
TempArcCos := PI - TempArcCos;
ArcCos := TempArcCos;
end;
begin
clrscr;
write('Vvedite k (k>=3). k=');
readln(k);
write('Vvedite h (h<=1). h=');
readln(h);
writeln('--------------------');
x:=k;
y:=2;
repeat
        alfa:=(180/pi)*ArcCos(y/x);
        writeln ('   y=',y:3:2);
        writeln ('alfa=',alfa:3:1);
        writeln('--------------------');
        y:=y+h;
until y>3;
writeln('Enter - close program');
readln;
End.

P.S. Защиты от дурака нет.


Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 985 • Страница 37 из 50<  1 ... 34  35  36  37  38  39  40 ... 50  >
-

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


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

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan