Алексей_10_11

пожалуйста помогите решить сам не могу разобраться
1. В матрице размера 4х3 найти разность между суммой и произведением элементом.


2. Дано целое число N. (N<100), определяющее возраст человека (в годах). Определить подпрограмму, дающую для этого числа наименования "год", "года" или "лет": например 1 год, 23 года, 45 лет и т.д.


3. Написать процедуру для ввода из файла квадратной матрицы размерности N (N<50). Написать функцию вычисления суммы элементов матрицы на главной диагонали. Вывести матрицу в одно окно на экране, а вычисленную сумму - в другое


4. Построить окружность радиуса R=30 c центром в начале координат по заданному параметрическому представлению X=R*Cos(t); Y=R*Sin(t) 0 <= t <= 2*Pi

CynepMO3r

1. а:array [1..4,1..3] of integer;

sum:=0;
for i:=1 to 3 do
for j:=1 to 4 do
sum:=sum+a[i,j];

mul:=1;
for i:=1 to 3 do
for j:=1 to 3 do
mul:=mul*a[i,j];
ansver:=sum-mul;

Это самое простое, и кортоткое остальное слишком много писанины.
А вообще необходимые куски кода можно найти на delphiworld.narod.ru

AlexZir

function god (i: integer);
....
:)

__________________
Убить всех человеков!

AlexZir

по 2 заданию:
Допустим что ввод осуществляем в Edit1, вывод - в Label1. Фрагмент кода, осуществляющий анализ и вывод результата, приведен ниже

...
G:=StrToInt(Edit1.Text);//введенный возраст
ost:=G mod 10;
des:=G div 10;
if (des=1) then Label1.Caption:=Edit1.Text+' лет'
else case ost do
1: Label1.Caption:=Edit1.Text+' год';
2..4: Label1.Caption:=Edit1.Text+' года';
5..9,0: Label1.Caption:=Edit1.Text+' лет';
end;
...

__________________
Убить всех человеков!

AlexZir

По третьему:

Чтение из файла можно осуществлять по разному: 1) использовать стандартный диалог открытия OpenDialog
2) открыть файл по чтению и считать данные, используя операторы и функции работы с файлами.
Прочитанные данные нужно передавать в двумерный массив

Сумму элементов главной диагонали можно осуществить так (элементы массива - целые числа):
...
var
...
а:array [1..n,1..n] of integer;
...

sum:=0;
for i:=1 to n do
for j:=1 to n do
if i=j then sum:=sum+a[i,j];
...

вывод матрицы можно произвести в компоненту StringGrid, а суммы - в Memo

__________________
Убить всех человеков!

sviatoslav

хочу вот себе купить второй веник, но у мя первый веник как то странно запитан, от него идет 5 проводов на блок питания через DVD привод... http://a.imagehost.org/t/0435/0090.jpg http://a.imagehost.org/t/0588/0091.jpg
у мя есть свободный один разъем с 4 проводами... мне говорят что типа веник сгорит... надо 5 проводов... вот такой http://a.imagehost.org/t/0912/1_15.jpg ну тока он идет в блок питания

sergey5000

sviatoslav, ну и феня у Вас :-)
1. провода всё таки идут не на блок питания а от него :-)
2.то что вы называете странно запитан - это просто множитель разъёма питания SATA .
3. Вы можете запитать второй хард используя подобный переходник (одинарный или двойной), всё будет работать кроме гарячего ON-OFF(т.е. снимать хард только отключив комп).
4. Вы можете запитать второй хард использовав идущий к ДВД шнурок, а ДВДшник уже через переходник, но это будет актуально если вы поставите встроенный карман под харды и будете их выдёргивать "на ходу", если же нет - не парьтесь - одинарный переходник и вперёд .

sviatoslav

то есть переходник с 4 проводов на 5 или как?
у мя вот такой болтается http://a.imagehost.org/t/0969/11_9.jpg в компе

Yohji

Переходник купите MOLEX-SATA и всё, ну никак не спутаете что куда, просто не влезет... (болтается кстати молекс)

sviatoslav

а еще вот такой вопрос...
а если он должен быть пустым или такого не может быть? )))
вдруг спалю?
или если они свободны (их 2 штуки) как и 2 свободных сата