Люди добрые, я здесь первый раз, но очень надеюсь на вашу помощь!В общем в универе завал: по причине болезни накопился долг по информатике в 4 лабы...Лабы, как вы наверно уже поняли по Borland Pascal.Если вам не трудно не могли бы вы мне помочь?Может для вас эти задачи и покажутся простыми, но так как я пропустил 2 недели занятий, мне написать код этих программ не по силам...
Вот условия задач:
1)Обработка одномерных массивов:
Переписать подряд в массив А положительные элементы, а в массив Z отрицательные элементы массива В.
Массив В(20)
2)Обработка двумерных массивов:
В массиве В(4,4) найти произведение кубов главной диагонали.
3)Вычисление определённого интеграла приближёнными методами:
Подинтегральная функция: lnx (x в квадрате)
Метод численного решения: прямоугольников
Число отрезков: 50
Интервал интегрирования [1;2,5]
Заранее всем откликнувшимся огромное спасибо!
Borland Pascal.Срочно нужна помощь!
-
fossil
Re: Borland Pascal.Срочно нужна помощь!
Код:
Извени что малость не так.... писал на скорую руку.
Код: Выделить всё
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.Извени что малость не так.... писал на скорую руку.
-
Savant
Re: Borland Pascal.Срочно нужна помощь!
мне тоже помощь нужна по Паскалю. кто не сильно занят и кому не влом помочь, отзовитесь пожалуйста. чем быстрей- тем лучше.
ICQ 245348211
или приватом
ICQ 245348211
или приватом
-
Savant
Re: Borland Pascal.Срочно нужна помощь!
burnt
Зачем приватом?
Давай так...
пиши задание, давно размяться пора
Зачем приватом?
Давай так...
пиши задание, давно размяться пора
-
BBoost
Re: Borland Pascal.Срочно нужна помощь!
гы! задание! 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 отображаются неправильно
и все надо решить максимум до 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
Re: Borland Pascal.Срочно нужна помощь!
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.
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.
-
BBoost
