Показать сообщение отдельно
  #1  
Старый 12.05.2009, 21:32
mAnah mAnah вне форума
Прохожий
 
Регистрация: 15.06.2007
Сообщения: 14
Репутация: -7
По умолчанию 6 задач по Delphi

Попросили сделать задачи, а времени их делать нет(( Некоторые несложные... А вот с №1 я намучался). Но так и не сделал.

№1
В матрице А (N,K) удалить строки и столбцы, в которых есть хотя бы один нулевой элемент (процедурой, чтоение из файла + запись в файл)

№2
Составить программу с функцией имеющей 1 параметр (одномерный массив), Функция задана условием:
f(x1, x2, ..., xn)= СУММА(i от 1 до n)[ x(i-тое)в_степени_k + 1 ] , если -1<x(i-тое)<1
f(x1, x2, ..., xn)= 0 - иначе
Использовать модули.

№3
Вычислить значение квадр.корня y=корень из х, для 100 значений х по итер.формуле Герона у(i-тое+1) = 1/2(У(i-тое) + Х(j-тое)/У(i-тое)); У(нулевое)= (1+Х(i-тое))/2
Точность Е = 0,001, где Е = (У(i-тое+1)-У(i-тое))
Использовать рекурсию

№4
Дана ведомость абитуриентов, сдавших экзамены в универ-е. В каждой строке данной ведомости - фамилия студента и оценки по 3-м дисциплинам. Определить средний балл по институту и распечатать список абитуриентов, чей балл выше, чем по универ-у. Список сортируется по средн. баллу в порядке убывания. + Возможность добавлять/удалять, смотреть список.

№5
Формируем множество y и выделяем из него подмножество y1, которое представляет из себя глухие согласный, входящие в y.

№6
Y=(X1\X2) .
Вывести y , делящиеся на 3 без остатка.
X1 = {1,2,3,4,5,6}
X2 = {1,3,4,5,6}
____________

1-2-3 самые нужные!
____________
Спасибо.
Ответить с цитированием