[fossil]

Код:

Program lab1;
Uses crt;
Var a:array [1..20] of real;
    b:array [1..20] of real;
    c:array [1..20] of real;
    i,n,m:integer;
begin
clrscr;
n:=1;
m:=1;
for i:=1 to 20 do
  begin
  write('Введите ',i:2,'-e значение: ');
  read(b[i]);
  if b[i]<0 then c[n]:=b[i] else a[m]:=b[i];
  n:=n+1;
  m:=m+1;
end;
end.

Извени что малость не так.... писал на скорую руку.

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

[Savant]

burnt
Зачем приватом?
Давай так...

пиши задание, давно размяться пора

гы! задание! 9 штук и все надо решить максимум до 9 января.
вот они:

13_4_5

Последовательность многочленов H0(x), H1(x), ... определяется следующим образом:

H0(x)=1,

H1(x)=x,

….

Hk(x)=xHk-1(x)-(k-1)Hk-2(x) (k=2, 3, ...).

Получить:

а) H2 (x), H4 (x), H6 (x).

б) Даны действительные числа a0, ..., a6. Получить многочлен

a0H0 (x)+...+a6H6 (x).

в) Данo действительнoе числа a. Вычислить H0(a)+...+H6(a).





13_5_1

Даны целые числа f1, f2, f3, ..., f10, являющиеся коэффициентами многочлена z(x). Исследовать существование целочисленных корней уравнения z(x)=0.





14_5_11

Файл LIST.1 содержит заголовок программы, функции det2, det3 и следующие процедуры: input, output, sum, subtract, multiply, system2, system3.

Порядок решения задачи

1. Внимательно проанализируйте условие задачи и определите, какими процедурами и функциями из файла LIST.1 Вы воспользуетесь для данной задачи.

2. Допишите основную программу.

3. Исполните программу.



Задача:

Наклонная призма ABCDA1B1C1D1, в основании которой лежит трапеция ABCD (BA = L*CD), построена на векторах BA=a, BC=b, BB1=c. Вычислить вектор ОD1,где О - точка пересечения диагоналей основания.





15_3_1

Файл LIST.2 содержит заголовок программ функции det2, modulus, scalar и следующие процедуры:input, output, sum, subtract, multiply, angle, vectormult.



Задача:

Тетраэдр SABC задан векторами трех ребер a,b,c, выходящих из одной вершины (точка S совпадает с началом координат). Найдите объем тетраэдра;





15_5_2

Файл LIST.2 содержит заголовок программ функции det2, modulus, scalar и следующие процедуры:input, output, sum, subtract, multiply, angle, vectormult.



Задача:



Тетраэдр SABC задан векторами трех ребер a,b,c, выходящих из одной вершины (точка S совпадает с началом координат). Найдите расстояние между центром вписанной сферы и центроидом;





3_с17

Дано натуральное число К, не превосходящее 2 000 000 000. Выписать все решения уравнения в натуральных числах, или выдать сообщение, что решений у данного уравнения нет.





7_с19

Найти все цифры десятичной записи числа 3^(2^(3^2)).





5_с21

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





2_с23

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



ЗЫ файлы list1.pas и list2.pas переименованы в list1.txt и list2.txt соответственно. приложены сюда. плюс вордовский файл(в архиве), т.к. некоторые формулы в этом wysiwyg отображаются неправильно

[BBoost]

Program lab2;
var
B:array [1..4,1..4] of integer;
s:real;
i,j:integer;
begin
s:=1;
for i:=1 to 4 do begin
for j:=1 to 4 do begin
read(B[i,j];
end;
readln;
end;
for i:=1 to 4 do s:=s*(sqr(b[i,i])*b[i,i]);
end.

ну как? ничё задачки для первого курса?