2-ое задание

дана функция f(x)=A1*sin(B1*x)
1) для x от x0 До xk с шагом h вычислить x, f(x), среднее значение f(x).
2) коэфициенты уранения заданы в файле
число строк произвольнее
вывести таблицу a,b среднее f(x)
3) вывести набор коэфициентов при котором f(x)- максимально.

program exam2(input,output);
type
matrix=record
arr:array[1..2,1..256] of real;
sum:real;
max:integer;
end;
var
amax,bmax,max,x0,xk,h:real;


function enter(x0,xk,h,a,b:real): matrix;
var
i:integer;
x:real;
begin
x:=x0;
i:=1;
sum:=0;
while x<=xk do
begin
enter.arr[1,i]:=x;
enter.arr[2,i]:=a*sin(b*x);
sum:=sum+enter.arr[2,i];
i:=i+1;
x:=x+h;
end;
enter.sum:=sum;
enter.max:=i-1;
end;


procedure readab(x0,xk,h:real);
var
i:integer;a,b:real;
begin
read(a,b);
for i:=1 to enter(x0,xk,h,a,b).max do
begin
write('x= ',enter(x0,xk,h,a,b).arr[1,i],'f(x)= ',enter(x0,xk,h,a,b).arr[2,i]);
end;
end;


procedure read(x0,xk,h:real: var bmax,amax,max::real);
var
f:text;a,b:real;
begin
OPEN(f,'f.txt',OLD);
reset(f);
max:=enter(x0,xk,h,a,b).sum;
amax:=a;bmax:=b;

while not eof(f) do
begin
read(f,a,b);
if enter(x0,xk,h,a,b).sum>max then begin max:=enter(x0,xk,h,a,b).sum;amax:=a;bmax:=b; end;
write('a= ',a,', ',b= ',b,', ','S(f)= ',enter(x0,xk,h,a,b).sum);
writeln(' ');
end;

end;

begin
read(x0,xk,h);
readab(x0,xk,h,a,b);
read(x0,xk,h,bmax,amax,max);
writeln(' ');
write('amax= ',amax,', ',bmax= ',bmax,', ','max= ',max);
end.

1-ое задание

дана матрица размерности m на n
1) найти мин и макс в каждой строке
2) -//- столбце
3) составить вектор из минимумов и максимумов и сотрировать по возрастанию

program exam(input,output);
type
xn=array[1..2] of integer;
arr=array[1..128,1..128] of integer;
vec=array[1..512] of integer;
var
mas:arr;
v:vec;
im,jm,t:integer;

function findxn(a:array[x1..x2:integer] of integer): xn;
var
i,j:integer;
begin
min:=a[i];
for i:=x1 to x2 do
if a[i]<min then min:=a[i];

max:=a[i];
for i:=x1 to x2 do
if a[i]>max then max:=a[i];

findxn[1]:=min; findxn[2]:=max;
end;

procedure enter(var mas:arr; var im,jm:integer);
var
i,j:integer;
f:text;
begin
OPEN(f,'f.txt', OLD);
reset(f);
i:=1;
while not eof(f) do
begin
j:=1;
while not eoln(f) do
begin
read(f, mas[j,i]);
j:=j+1;
end;
readln(f);
i:=i+1;
end;
im:=i-1;jm:=j-1;
close(f);
end;

procedure view(mas:arr; im,jm:integer);
var
i,j:integer;
begin
for i:=1 to im do
begin
for j:=1 to jm do
begin
write(mas[j,i]:3)
end;
writeln(' ');
end;
end;

procedure str(mas:arr; im,jm:integer);
var
i,j,k:integer;
w:xn;
p:array[1..im] of integer;
l:array[1..2*jm] of integer;
begin
k:=1;
for i:=1 to im do
begin
for j:=1 to jm do
p[j]:=mas[j,i];
l[k]:=findxn[1];
v[t]:=l[k];
l[k+1]:=findxn[2];
v[t+1]:=l[k+1];
t:=t+2;
k:=k+2;
end;
view(l,1,2*jm);
end;

procedure stl(mas:arr; im,jm:integer);
var
i,j,k:integer;
w:xn;
p:array[1..jm] of integer;
l:array[1..2*im] of integer;
begin
k:=1;
for j:=1 to jm do
begin
for i:=1 to im do
p[j]:=mas[j,i];
l[k]:=findxn[1];
v[t]:=l[k];
l[k+1]:=findxn[2];
v[t+1]:=l[k+1];
t:=t+2;
k:=k+2;
end;
view(l,1,2*im);
end;

procedure sort(var a:array[x1..x2:integer] of integer);
var
i,j,p:integer;
begin
for i:=x1 to x2 do
for j:=i+1 to x2 do
if a[j]>a[i] then begin a[j]:=p; a[j]:=a[i]; a[i]:=p; end;
end;


begin
t:=1;
enter(mas,im,jm);
str(mas,im,jm);
stl(mas,im,jm);
sort(v);
view(v);
end.

3 заданиедана f(x)=a1*sin(a2*x)+a3*cos(a4*x)
1) для ряда значений x=x1, x2...xn вывести таблицу
x, f(x), среднее f(x).
2) вывести таблицу x, f(x), f(x)-<f(x)>, (f(x)-<f(x)>)/<f(x)>
3) найти при каком f(x) она оаиболле близко к среднему?

4 задание дано уравнение a1*x*x+a2*x+a3.
1)найти все корни уравнения, в том числе комплексные.
2) константы заданы в файле.
вывести набор констант при которых оба корня имеют отрицательное значение(вещественные).
3) найти корень с минимальной вещественной частью, вывести его вместе с коэфициентами

3 заданиедана f(x)=a1*sin(a2*x)+a3*cos(a4*x)
1) для ряда значений x=x1, x2...xn вывести таблицу
x, f(x), среднее f(x).
2) вывести таблицу x, f(x), f(x)-<f(x)>, (f(x)-<f(x)>)/<f(x)>
3) найти при каком f(x) она оаиболле близко к среднему?

program exam3(input,output);
type
arr:array[1..2,1..128] of real;
var
xmas:arr;
nmax:integer
sr,minx,minxz:real

procedure readx(var xmas:arr; var nmax:integer; var sr:real);
var
i:integer;
a1,a2,a3,a4:real;
begin
sum:=0;
write('> Введите a1:');writeln('> ');
read(a1);
write('> Введите a2:');writeln('> ');
read(a2);
write('> Введите a3:');writeln('> ');
read(a3);
write('> Введите a4:');writeln('> ');
read(a4);
write('> Введите количество значений x:');writeln('> ');
read(nmax);
for i:=1 to nmax do
begin
write('> Введите значегие x',i,': ');
read(xmas[1,i]);
xmas[2,i]:=a1*sin(a2*x)+a3*cos(a4*x);
sum:=sum+read[2,i];
end;
sr:=sum/n_max
end;

procedure write_1(xmas:arr;nmax:integer;sr:real);
var
i:integer;
begin
for i:=1 to nmax do
writeln('x= ',xmas[1,i],', ',f(x)= ',xmas[2,i]');
writeln(sr);
end;

procedure write_2(xmas:arr;nmax:integer;sr:real, var minx:integer, var minxz:real);
var
i:integer;
begin
minxz:=abs(xmas[2,i]-sr);
minx:=xmas[1,i];
for i:=1 to nmax do begin
writeln('x= ',xmas[1,i],', ',f(x)= ',xmas[2,i],', 'f(x)-<f(x)>= ',xmas[1,i]-sr,', ',(f(x)-<f(x)>)/<f(x)>= ',(xmas[2,i]-sr)/sr');
writeln(sr);
if abs(xmas[2,i]-sr)<minx then begin minxz:=abs(xmas[2,i]-sr); minx:=xmas[1,i]; end;
end;
end;


begin
readx(xmas,nmax,sr);
write_1(xmas,nmax,sr);
write_2(xmas,nmax,sr,minx,minxz);
writeln('xmin= ',minx,', ',min(f(x)-<f(x)>)= ',minxz');
end.

Задача 4 - В процессе!!!

4 задание дано уравнение a1*x*x+a2*x+a3.
1)найти все корни уравнения, в том числе комплексные.
2) константы заданы в файле.
вывести набор констант при которых оба корня имеют отрицательное значение(вещественные).
3) найти корень с минимальной вещественной частью, вывести его вместе с коэфициентами

program exam4(input,output);
type
c=record
re:real;
im:real;
be:boolean;
end;

tab=record
a1,a2,a3:real;
c1,c2:c;
b:boolean;
dmas=array[1..64] of tab
var
dec:dmas;


procedure eq(a1,a2,a3:real; var dec:dmas);
var
dis:real;
begin
if a1<>0 then
begin
dis:=a2*a2-4*a1*a3;
dmas[i].b:=flase;
if dis=0 then begin dmas[i].c1.re:=(-a2/(a1*a1)); dmas[i].c1.im:=0; dmas[1,i].c1.be:=true; dmas[i].c2.re:=(-a2/(a1*a1)); dmas[i].c2.im:=0; dmas[i].c2.be:=true; i:=i+2 end;
if dis>0 then begin dmas[i].c1.re:=(-a2+sqrt(dis))/(a1*a1); dmas[i].c2.re:=(-a2+sqrt(dis))/(a1*a1); dmas[1,i].c1.im:=0; dmas[i].c2.im:=0; dmas[1,i].c1.be:=true; dmas[i].c2.be:=true; i:=i+2; end;
if dis<0 then begin dmas[i].c1.re:=(-a2/(a1*a1)) dmas[i].c1.im:=-scrt(abs(dis))/(a1*a1); dmas[2,i].c1.re:=(-a2/(a1*a1)) dmas[i].c2.im:=scrt(abs(dis))/(a1*a1); dmas[i].c1.be:=true; dmas[i].c2.be:=true; i:=i+2; end;
end
else
begin
if a2<>0 then
begin
dmas[i].c1.re:=a3/a2;
dmas[i].c1.be:=true;
dmas[i].c1.im:=0;
dmas[i].c2.be:=false;
i:=i+1;
end
else begin
if a3<>0 then dmas[i].b:=false; else dmas[i].b:=true;
end;

procedure readc(var mins:cmas);
var
i:integer; a1,a2,a3:real;
begin
writeln('> Введите значение a1, a2 и a3 через пробел:'); write('> ');
read(a1,a2,a3);
i:=1;
dmas[i].a1:=a1;
dmas[i].a2:=a2;
dmas[i].a3:=a3;
eq(a1,a2,a3,dec);
write('a1=',a1,', a2=',a2,', a3=',a3);writeln(' ');
if dmas[i].b=true then write('Уравнение имеет бесконечное количество решений') else begin
if dmas[i].c1.be<>true and dmas[i].c2.be<>true then write('Уравнение не имеет решений') else begin
if dmas[i].c1.im<>0 then write('x1=',dmas[i].c1.re,'+',dmas[i].c11.im,'i') else write('x1=',dmas[i].c1.re)
if dmas[i].c2.be=true, then if dmas[i].c2.im<>0 then write('x1=',dmas[i].c2.re,'+',dmas[i].c2.im,'i') else write('x1=',dmas[i].c2.re)
end;
end;

procedure readf(var mins:cmas);
var
i,imax:integer; a1,a2,a3:real;
f:text;
begin
OPEN(f,'f.txt',OLD);
reset(f);
imax:=0;
while not eof(f) do begin
read(f,a1,a2,a3);
readln(f);
imax:=imax+1;
end;

for i:=1 to imax do
begin
dmas[i].a1:=a1;
dmas[i].a2:=a2;
dmas[i].a3:=a3;
eq(a1,a2,a3,dec);
if (dmas[i].c1.im=0) and (dmas[i].c1.re<0) and (dmas[i].c2.re<0) then begin
write('a1=',a1,', a2=',a2,', a3=',a3);writeln(' ');
if dmas[i].b=true then write('Уравнение имеет бесконечное количество решений') else begin
if dmas[i].c1.be<>true and dmas[i].c2.be<>true then write('Уравнение не имеет решений') else begin
if dmas[i].c1.im<>0 then write('x1=',dmas[i].c1.re,'+',dmas[i].c1.im,'i') else write('x1=',dmas[i].c1.re)
if dmas[i].c2.be=true, then if dmas[i].c2.im<>0 then write('x1=',dmas[i].c2.re,'+',dmas[i].c2.im,'i') else write('x1=',dmas[i].c2.re)
end;
end;
end;
end;


procedure readf_2(var mins:cmas);
var
i,im

1.
{1-ое задание
2.
дана матрица размерности m на n
3.
1) найти мин и макс в каждой строке
4.
2) -//- столбце
5.
3) составить вектор из минимумов и максимумов и сотрировать по возрастанию}
6.

7.
program exam(input,output);
8.
type
9.
xn=array[1..2] of integer;
10.
arr=array[1..128,1..128] of integer;
11.
vec=array[1..512] of integer;
12.
var
13.
mas:arr;
14.
v:vec;
15.
im,jm,t:integer;
16.

17.
function findxn(a:array[x1..x2:integer] of integer): xn;
18.
var
19.
i,j:integer;
20.
begin
21.
min:=a[i];
22.
for i:=x1 to x2 do
23.
if a[i]<min then min:=a[i];
24.

25.
max:=a[i];
26.
for i:=x1 to x2 do
27.
if a[i]>max then max:=a[i];
28.

29.
findxn[1]:=min; findxn[2]:=max;
30.
end;
31.

32.
procedure enter(var mas:arr; var im,jm:integer);
33.
var
34.
i,j:integer;
35.
f:text;
36.
begin
37.
OPEN(f,'f.txt', OLD);
38.
reset(f);
39.
i:=1;
40.
while not eof(f) do
41.
begin
42.
j:=1;
43.
while not eoln(f) do
44.
begin
45.
read(f, mas[j,i]);
46.
j:=j+1;
47.
end;
48.
readln(f);
49.
i:=i+1;
50.
end;
51.
im:=i-1;jm:=j-1;
52.
close(f);
53.
end;
54.

55.
procedure view(mas:arr; im,jm:integer);
56.
var
57.
i,j:integer;
58.
begin
59.
for i:=1 to im do
60.
begin
61.
for j:=1 to jm do
62.
begin
63.
write(mas[j,i]:3)
64.
end;
65.
writeln(' ');
66.
end;
67.
end;
68.

69.
procedure str(mas:arr; im,jm:integer);
70.
var
71.
i,j,k:integer;
72.
w:xn;
73.
p:array[1..im] of integer;
74.
l:array[1..2*jm] of integer;
75.
begin
76.
k:=1;
77.
for i:=1 to im do
78.
begin
79.
for j:=1 to jm do
80.
p[j]:=mas[j,i];
81.
l[k]:=findxn[1];
82.
v[t]:=l[k];
83.
l[k+1]:=findxn[2];
84.
v[t+1]:=l[k+1];
85.
t:=t+2;
86.
k:=k+2;
87.
end;
88.
view(l,1,2*jm);
89.
end;
90.

91.
procedure stl(mas:arr; im,jm:integer);
92.
var
93.
i,j,k:integer;
94.
w:xn;
95.
p:array[1..jm] of integer;
96.
l:array[1..2*im] of integer;
97.
begin
98.
k:=1;
99.
for j:=1 to jm do
100.
begin
101.
for i:=1 to im do
102.
p[j]:=mas[j,i];
103.
l[k]:=findxn[1];
104.
v[t]:=l[k];
105.
l[k+1]:=findxn[2];
106.

http://pastebin.mozilla-russia.org/527 - задача №1
http://pastebin.mozilla-russia.org/530 - задача №2
http://pastebin.mozilla-russia.org/533 - задача №3
http://pastebin.mozilla-russia.org/535 - задача №4
(Самые свежие исправления будут доступны по этим ссылкам!!!)

Какие будут соображения по поводу завтрашнего экзамена?

ты псих это 1,
нах стоко ентеров это 2.

Это я из pastebin копировал, там они автоматически ставились. =)

http://pastebin.mozilla-russia.org/538 - задача №1
http://pastebin.mozilla-russia.org/539 - задача №2
http://pastebin.mozilla-russia.org/540 - задача №3
http://pastebin.mozilla-russia.org/541 - задача №4
(Самые свежие исправления будут доступны по этим ссылкам!!!)

вау всем привет))) а я думал мы не подем пользоваться популярностью)0

у вас девушек больше всех... видимо Никлаус - харизматичная личность :)

И не говори. Полезной группа оказалась при подготовке к экзаменам.

Когда же будут учить программированию одновременно на двух типах языков? 1) актуальных академических (лисп, scheme) 2) актуальных промышленных (Асм, Си, Си-плюс-плюс).

Но не на Паскале (устарел), не на Джаве (джава - слишком много скрывает от учеников) и уж тем более не на Питоне, Руби или Перле.

А? Передавайте соображения преподам. На меня ссылаться можно, я уже на 2-м курсе РФФ ругался на эту тему :)

а нафиг на РФФ знать кучу языков? да и вообще нужно изучить просто два типа языков, а остальное само понимается. Т.е. если умеешь писать проги на паскале, то сможешь и на любом другом императивном ЯП писать.
сам паскаль не очень люблю ибо не очень удобно во многих случаях и загрузочные модули по объёму большие...но в С, например нет типа "строка", поэтому и многие удобные строковые функции из паскаля переписываются под С заново, зато код маленький и места жрёт мало...
во-вторых кого начинают учить писать на перле, например?

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

почему так сильно распространено заблуждение, что для "настоящего" программиста (читай кулмегахацкера) все равно, на чем писать код. Мол он знает какие-то методологии и все, он мегагуру.
Языки отличаются и порой очень сильно. Java и C похожи по синтаксису. Но это РАЗНЫЕ, сильно РАЗНЫЕ языки.

А вообще pascal имхо довольно хороший язык для обучения процедурному программированию (азам).Ну.. мне трудно сейчас сказать альтернативу: perl - школьники/студенты первого курса завязнут в его синтаксисе, c - нееет уж.. как правильно написали, без строк (это ж надо додуматься(!!!).. не включить в язык сущность, с которой программист работает более всего) и постоянными SEGFAULT'ами он слишком сложен для начинающих, как второй язык нормально, да, но Вирт позиционировал паскаль именно как язык для обучения и с этой задачей он успешно справляется (до сих пор справляется). Он простой и на нем можно писать очень неплохие программы.

грр.. C plus plus..//все.. пойду жаловаться Дурову..

Строки-строки. Юзайте std::string, какие проблемы? В Джаве тоже доходит до смешного: строковые литералы складывают в StringBuffer'e. Это еще уродливее, чем использование std::string. Напомню, что в Си ПП есть перегрузка оператора "плюс" :)

Насчет обучения: давайте определимся. Если стоит задача научить "сбацать программку" так, чтобы ы какой-нибудь экзотической среде быстро сориентироваться (Mathematica, MatLab, LabView, MS Office VBA и все что угодно еще), то можно учить на достаточно легком для начинающего языке. На Паскале, Бейсике, Питоне, Руби.

Умение программировать, инженерное умение, состоит в том, что вы говорите на особом многомерном языке: языке структур данных, состояний, алгоритмов и процессов. Это столь же универсальное знание, как и общая физика, высшая математика, высшее медицинское образование и что угодно еще. Как известно, каждый язык расширяет возможности мозга. Если вы хотите расширять свои возможности, учите языки.

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

Зачем на РФФ программирование? А зачем культурологам информатика? Затем, что в мире все переплетается друг с другом и нет просто "врача-кардиолога", "радиофизика", "радиотехника", "лингвиста-переводчика", "биолога-почвенника". Это все переплетается в один клубок и преуспевают те, кто шарит во всем. Не верите? Почитайте западные деловые газеты. Физики-биологи и врачи-программисты очень востребованы.

Стоит только где-нибудь завести тему/группу/итд о Паскале, как тут же появляются "насильники" и начинают поливать это дело кислотой.

Поскольку спор, как я заметил, о языках программирования вообще, то почему бы не перенести его в группу "Программисы"? Может быть там он станет более конструктивным? Или просто закрыть тему, чтобы не преумножать зло?

Просто понимаешь почитай самое начало "обсуждения"

Ну давай не трогать строки в Java, там пошли на такой шаг чисто из-за оптимизации.. (там много на что еще пошли ради оптимизации, да.. это иногда неудобно, но в 95 году это было необходимо).
Представь ruby в 95 году :) Все-таки ЯП развиваются со временем.
В школах стоит задача именно научить сбацать программки. Большинству это нафиг не надо. Есть школы с уклоном, там изучают C, Java и прочие нормальные вещи. А зажечь интерес, показать, что компьютер можно "учить", паскаль в самый раз.
В Руби, Питоне человек увязнет (для меня в 8 классе ООП не представимо, я бы его просто не понял)

Учите не новые языки, а принципиально новые языки. Между C и Pascal разница невелика. А вот C и Ruby принципиально разные языки. (Я руби не знаю, но сужу по его клону-груви)

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

Щас распутаем клубок :)

1. Разница между Си и Паскалем - о-огромная.
2. Груви - не клон Руби, а Джава с Boost'ом
3. ООП в Си+ и Джаве промышленно-производительной направленности - там много штук, непонятных новичкам. При этом само по себе ООП гораздо более естественно. В лего играли? И тут тоже - кубики и интерфейсы. Поэтому, Руби/Питон/Бейсик очень неплохие развлекательные языки.
Паскаль очень академичен, он не позволяет взять винду/мак/никс и по-простому воспользоваться их возможностями. А скрипты позволяют - есть ведь куча современных библиотек.
Мне кажется, что на наших уроках программирования (в школе, в универе), учеников не покидало ощущения оторванности процесса от жизни. А теперь вообразите скрипт, который переименовывает кучу mp3-файлов, или создает веб-сайт, или фотоальбом, да что угодно! Игрушку, какую-нибудь. Вот это всем понятно, это всем нравится :)

4. Биолог-в-себе-биолог - это замечательно. Он огромный специалист по мшанкам Баренцева моря. Только он никому не нужен. Я, конечно, утрирую. Но поверь на слово, чисто-программисты уж точно никому не нужны. Нужны спецы по целой области. Ну например, чтобы сделать программу для бизнес-процесса, нужно в бизнесс-процесс вникнуть. Если он очень сложный, то учиться нужно долго. Иногда пяток лет в институте. А программирование - это не наука, это инструмент.

Крутая группа получилась. Никто не пишет, и новых участников не прибавляется. Хорошо хоть ссоры прекратились :-)

Просто сессия пока не скоро. А паскалд - чисто учебный язык. =)

А мне довелось изучать сей язык ещё в школе, что очень способствовало дальнейшему изучению Fortran, C и C+ ....

Шо-то тут как-то скучно. Давайте задачку решим:

Одномерный массив. Упорядочить массив методом пузырька.

Удачи)

мне стыдно это решать)))

Кстати на счет сортировок. Немного не в тему, но если уж зашел пофлудить :)..

Как вам такая реализация quicksort? Во-всяком случае алгоритм буквально на ладони:
def quickSort(list) {
..if (list.size() < 2) return list
..def pivot = list[list.size().intdiv(2)]
..def left = list.findAll {item -> item < pivot }
..def middle = list.findAll {item -> item == pivot }
..def right = list.findAll {item -> item > pivot }
..return (quickSort(left) + middle quickSort(right))
}
из комментариев: findAll ищет все элементы коллекции (грубо говоря массива), которые удовлетворяет условию в фигурных скобках.
Правда красиво?

А вот ещё задача: с консоли вводятся два целочисленных значения. Вывести туда же их сумму :)

Вот еще более красивая реализация quicksort:
def qsort(L):
if L == []: return []
return qsort([x for x in L[1:] if x< L[0]]) + L[0:1] + \
qsort([x for x in L[1:] if x>=L[0]])

Это Python.

я бы не сказал, что она красивая :)
алгоритм как на ладони не виден

паскаль параша ...

пУскаль - гумно гумней гумнейшее!

Люди хелп. Поможите прогу написать!!!!! смертельно надо!!! Определить, составляют ли байты длинного целого числа н арифмитическую прогрессию!!!Плиз. Кому не влом!!! шлите на мыло: radeonru@mail.ru

pasКАЛЛ!!!!!!

Да ладно вам язык-то опускать. Ну ясен хрен это TP7, который сделали лет 15 назат не рулит сейчас, но этож и не весь паскаль. Сейчас есть интересные и актуальные разработки, ведущиеся в рамках открытых сырцёв. Скажем, GNU Pascal, Free Pascal, Lazarus - эти проекты живут и развиваются, давай порой ьольше, чем творения Borland (она-то какраз вообще что-то левое сейчас мутит с неясным будущим).

Лю-ю-ю-юди! Кому не трудно помочь решить простейшую задачу по Паскалю, напишите на мыло, либо в личку!=)
"Если сумма положительных элементов целочисленной матрицы А больше произведения его отрицательных элементов, сформировать одномерный массив их положительных элементов матрицы, иначе массив формируется из отрицательных элементов матрицы. При формировании одномерного массива матрицу рассматривать построчно."

пасКАЛЛ буууууэээээээээээээ :-!

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

2Александр Pr0b3L Лопатин
хы-хы, я вот дико ржал ,когда узнал что использкемая мной тогда среда разработки на С++ написана на Дельфях =)

writeln('Hello world');

begin
write('pasKALL');
end.

DELPHI сила.
Pascal - forever!!!

Вот задачка (ИТМО 2 курс (лето)):
Дана шахматная доска 8х8. Вводятся координаты начального положения коня (y,x) (именно y,а потом x). Затем вводятся координаты конечного положения коня. если ход возможен, то выводить за 2 раза или за 1-н. Также выводятся координаты промежуточной клетки. Обязятельна проверка.

Я набивал на C 3.1. Ушло 4.5 часа.

Просто интересно, за сколько можно ее набить.