4 задачи, Паскаль

Ответить
котопек
Сообщения: 4
Зарегистрирован: 13 апр 2008, 09:45

помогите пожалуйста решть в паскале
Имеется упорядоченный массив из К элементов(возрастающий). Найти в нем элемент со значением Х за минимальное число шагов и вывести индекс этого элемента. Воспользоваться методом деления пополам, то есть, сначала сравнить Х со значением элемента с индексом (К+i) div 2. если Х больше, то выбрать правую половину массива, иначе левую. Затем эту часть снова разделить пополам и так далее, пока часть массива не будет равна одному элементу. Использовать процедуры.


Дан массив 2*2. номер строки меняется от 1 до 8, номер столбца – от а до h. Рассматривая его как шахматную доску, пометить крестиками все поля, которые бьет ферзь из произвольного фиксированной ячейки. Использовать процедуры

Решите систему линейных уравнений с помощью функций
3x-2y+5z=7
7x+4y-8z=3
5x-3y-4z=-12

Даны матрицы А(4,4) и Д(5,5). Сформируйте матрицы В(4,4) из А(4,4) и С(5,5) из Д(5,5)разделив элементы каждой строки на соответствующий диагональный элемент, например, В(1,2)=А(1,2)/А(1,1) и т д. использовать функции.
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

1. В чем проблема? Начало текущего отрезка - А, конец - В. Находим середину С.
if mas[c]>X then b:=c else a:=c;
2. Шахматная доска - это не 2х2, это 8х8. На доске 2х2 самая мощная фигура - это король ;)
Клетка с координатами Х, У бьется из клетки Х0, У0, если (X=X0) or (Y=Y0) or (abs(X-X0)=abs(Y-Y0));
3. Читаем учебник, метод Гаусса
4. for i:=1 to N do
for j:=1 to N do
if i<>j then B[i,j]:=A[i,j]/A[i,i]
for i:=1 to N do B[i,i]:=1;

N заменяется размерностью матрицы, А и В - именами матриц
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Ответить