Hello, это ты мне написал???
Если мне, то куда вводить это???

Jx...вот тока ковычки почему-то при отправке поменялить...там болжны быть не двойные, а одинарные... вот эти '' а не эти "

Jx...вот, держи))
program noname;
uses crt;
var
Y:extended;
const
a=2.44;
b=1.39;
c=6.21;
x=31;
begin
clrscr;
writeln;
Y:=(sqrt(x+exp(a*x)))*ln(b*sqr(x)-1)/(c*sqr(x)+3);
writeln (''Y='',Y:10:5);
writeln;
writeln (''Press any key'');
writeln;
repeat until keypressed;
end.

Здравствуйте!
Как сделать скрин рисунка в Паскале...??? Обыскал весь инет, нигде нету...
Спасибо...
И ещё... Вы задачи помогаете решать???)))

где можно скачать файлы Turbo Pascal''я hyp.fun и graph3?

я скачала turbo pascal 5.5? а он не открывается. че делать?

Извините за те символы но как только ввожу обозначения корня сразу вот такая вещь вырисовывается!!! Удачи.

Извините что отнимаю время но может поможите, хотя бы ссылки какие-нибудь дадите.
Тек вот как решить систему уравнения
D=0 если -1<a<0 b<0
D=1 если 0<=a<10 b<0
D=2 если a>==10 b>=0
D=3 если предыдущие не выполняются.У меня с B проблемы как ее вставить?
И еще помойму чтото связанное с рекурсией 2(корень)x+3(корень)x+4(корень)x+...+n(корень)x+n+1(корень)x (2,3,4,n - не умножаются а над корнем!)

Да, динамический массив, и в конце освобождаем память (Finalize если память не изменяет!!!)

Да нет нужно вывести допустим A1=****, A2=****, где **** - это сумма элементов строки A1, A2. Насчет n*m - да нужно вводить самим.Задача будет работать примерно так - n=
m=
сумма строки A1 =
сумма строки A2 = и тд. Спасибо если решите!

Подскажите если знаете как найти сумму элементов строк в заданной матрице A размерности n*m

Missy...ааа...я просто условие не понял сначала))) тада вот так конечно)))
program matritsa;
uses crt;
type matr=array [1..6,1..9] of integer;
mas=array [1..10] of integer;
var i,j,k,n,S1,S2:integer; A:matr; X:mas; Y:mas;
begin
clrscr;
{-----Задание матрицы и её распечатка-----}
for i:=1 to 6 do
for j:=1 to 9 do
A[i,j]:=random(99);
writeln (''Matritsa A:'');
for i:=1 to 6 do
begin
for j:=1 to 9 do
write (A[i,j]:4);
writeln;
end;
writeln;
{-----Составление массива из сумм элементов четных строк-----}
S1:=0;
k:=0;
for i:=1 to 6 do
if i mod 2=0 then
begin
k:=k+1;
for j:=1 to 9 do
begin
S1:=S1+A[i,j];
end;
X[k]:=S1;
end;
writeln (''Kolichestvo elementov v massive X: k='',k:1);
writeln (''Massiv X:'');
for k:=1 to k do
write (X[k]:3,''; '');
writeln;
writeln;
{-----Составление массива из сумм элементов нечётных столбцов-----}
S2:=0;
n:=0;
for j:=1 to 9 do
if j mod 2<>0 then
begin
n:=n+1;
for i:=1 to 6 do
begin
S2:=S2+A[i,j]
end;
Y[n]:=S2;
end;
writeln (''Kolichestvo elementov v massive Y: n='',n:1);
writeln (''Massiv Y:'');
for n:=1 to n do
write (Y[n]:3,''; '');
writeln;
writeln;
writeln (''***Nazmite lubuy klavishu***'');
repeat until keypressed;
end.

вот второй вариант вообще у меня одни нули выводит...не знаю,в чем там проблема..

norman ))
да,выкидывать там и вправду ничего не надо,только задача все-равно неверно решена(((.Получаются массивы из элементов матрицы,а дожны они состоять:один-из сумм элементов каждой четной строки,а другой-столбцов..
но пасибо и за тот..

Прекрасный сайт для начинающих программистов

Помогите, есть ли у кого пример индексации базы данных
на паскале. Возможно есть у сылки с примерами именно для паскаля. Заранее благодарен.