Dale
Участник
|
       
nastja
Ты наверное не понимаешь, что такое функция - она у тебя объявлена, но не вызвана и даже не закрыта. Объясняю:
1)В pascal есть встроенные функции, например sin
Code Sample:
var x:real;
begin
x:=sin(3.14);
writeln(x);
readln;
end.
Этот код присваивает переменной x значение функции sin(3.14) и выводит ее на экран.
2)В pascal встроено много функций, но ингода возникает необходимость написать собственную. Например, нет функции, вычисляющей тангенс. Но тангенс мы можем вычислить как синус на косинус. Давай напишем ее:
Code Sample:
var x:real;
function tan(x:real):real;
begin
tan:=sin(x)/cos(x);
end;
begin
x:=tan(3.14);
writeln(x);
readln;
end.
Вот так это выглядит. Функция объявляется до начала основной програмы. В данном случае она принимает аргумент x типа реал и возвращает значение типа real .
3)А теперь по поводу твоей программы. Там нигде не вызывается функция ArcCos . Более того, функции ArcCos не присваивается никакого значения. Помимо прочего, в программе отсутствует тело программы (то ест ьпросто объявлена функция и все).
Надеюсь, эта информация тебе поможет. Удачи!
(Сообщение отредактировал Dale 19 фев. 2011 11:15)
|
Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 16 фев. 2011 6:14 | IP
|
|
Dale
Участник
|
Deleted
(Сообщение отредактировал Dale 16 фев. 2011 6:16)
|
Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 16 фев. 2011 6:15 | IP
|
|
nastja
Новичок
|
Dale спасибо большое.: )
|
Всего сообщений: 4 | Присоединился: октябрь 2010 | Отправлено: 16 фев. 2011 19:54 | IP
|
|
Olechka93
Новичок
|
Помогите, пожалуйста!!!
Необходимо написать программу, которая совершает действия над матрицами(умножение, сложение, вычитание, нахождение наибольшего из 2 матриц), вообщем это легко..
Сложность в том, что необходимо создать меню, с помощью которого не нужно ничего, кроме как нажимать на кнопки в нем(вывод 1 матрицы, 2ой матрицы, а также все действия над ними).
Подскажите, как именно сделать это меню, и какие библиотеки при этом необходимо запускать???
Заранее спасибо..
|
Всего сообщений: 5 | Присоединился: март 2011 | Отправлено: 18 марта 2011 22:27 | IP
|
|
elenalapina
Новичок
|
сформировать целочисленный двумерный массив Matrix параметры которого задаются вводом склавиатуры. инициализацию массива производить с помощью датчика псевдослучайных чисел. по сформированному двумерному массиву создать два одномерных массива А и В, где А - количество нулевых элементов строки Matrix, В- ближайшие к среднему значению элементы столбца Matrix, А отсортировать по убыванию, В по возрастанию. результаты сортировки наложить на Matrix, трансформировав его в соответствии с результатами сортировки.
массив А уже создан. помогите написать программу дальше
PROGRAM massiv;
Uses
Crt;
Type
TIndex=1..20;
TMatrix=array [TIndex, TIndex] of Integer;
TVector=array [TIndex] of Integer;
Var
Matrix:TMatrix;
A,B:TVector;
m,n:TIndex;
LV,UV:Integer;
Procedure Sleep;
Var Ch:Char;
Begin
While KeyPressed do Ch:=ReadKey;
Repeat until KeyPressed;
Ch:=ReadKey
End;
Procedure Init;
Var i,j:TIndex;
Begin
ClrScr;
Write('m > ');ReadLn(m);
Write('n > ');ReadLn(n);
Write('LV > ');ReadLn(LV);
Write('UV > ');ReadLn(UV);
WriteLn('------------- Ishodnik ---------');
Randomize;
For i:=1 to m do begin
For j:=1 to n do begin
Matrix[i,j]:=LV+Random(UV-LV+1);
Write(Matrix[i,j]:4)
end;
WriteLn
end;
End;
Procedure CreatA;
Var i,j:TIndex;
Begin
For i:=1 to m do begin
A:=0;
For j:=1 to n do
If Matrix[i,j]=0 then Inc(A)
end;
WriteLn(' ----- Ish A ----');
For i:=1 to m do Write(A:4);
WriteLn;
Sleep
End;
BEGIN
Init;
CreatA;
END.
|
Всего сообщений: 1 | Присоединился: март 2011 | Отправлено: 27 марта 2011 18:12 | IP
|
|
hacker172
Новичок
|
здрасте, вот такая задача:
составить программу нахождения площади произвольного треугольника по трем его сторонами (формула Герона)
S = √ p (p-a) (p-b) (p-c)
p = a + b + c / 2
|
Всего сообщений: 3 | Присоединился: апрель 2011 | Отправлено: 9 апр. 2011 0:21 | IP
|
|
Dale
Участник
|
Помогите, пожалуйста!!!
Необходимо написать программу, которая совершает действия над матрицами(умножение, сложение, вычитание, нахождение наибольшего из 2 матриц), вообщем это легко..
Сложность в том, что необходимо создать меню, с помощью которого не нужно ничего, кроме как нажимать на кнопки в нем(вывод 1 матрицы, 2ой матрицы, а также все действия над ними).
Подскажите, как именно сделать это меню, и какие библиотеки при этом необходимо запускать???
Заранее спасибо..
Меню? Легко!
http://exir.ru/cgi-bin/ikonboard/topic.cgi?forum=3&topic=242&start=670
|
Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 10 апр. 2011 10:01 | IP
|
|
Dale
Участник
|
здрасте, вот такая задача:
составить программу нахождения площади произвольного треугольника по трем его сторонами (формула Герона)
S = √ p (p-a) (p-b) (p-c)
p = a + b + c / 2
И в чем же проблема?
Code Sample:
var a,b,c,p:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
if(p*(p-a)*(p-b)*(p-c))<0 then begin
writeln('Печалька');
readln;
halt;{выход из программы}
end;
writeln(sqrt(p*(p-a)*(p-b)*(p-c)));
readln;
end.
|
Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 10 апр. 2011 10:10 | IP
|
|
Lerikalera
Новичок
|
помогите пожалуйста решить
1.В заданих масивах Y(9) та C(15) знайти найбільше значення, що зустрічається в масиві після відкидання з нього всіх елементів, які дорівнюють максимальному елементу. Вивести вихідний масив, максимальне значення та найбільше значення з залишених.
2.Обчислити та вивести середнє арифметичне сум індексів рядків та стовпчиків додатних елементів заданої матриці М(4,3).
3.Задано матрицю В(4,4). Сформувати новий вектор з мінімальних елементів стовпчиків. В цьому векторі обчислити суму та кiлькiсть додатнiх елементів. Вивести сформовану матрицю, суму та кiлькiсть додатних елементів.
|
Всего сообщений: 2 | Присоединился: апрель 2011 | Отправлено: 10 апр. 2011 15:15 | IP
|
|
Lerikalera
Новичок
|
это нужно сделать через процедуры
|
Всего сообщений: 2 | Присоединился: апрель 2011 | Отправлено: 10 апр. 2011 15:16 | IP
|
|
|
Форум
Решение задач на Pascal. Форум 3.
