небольшие задачи на delphi

[Алексей_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 привод...
у мя есть свободный один разъем с 4 проводами... мне говорят что типа веник сгорит... надо 5 проводов... вот такой ну тока он идет в блок питания

 

[sergey5000]

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

 

[sviatoslav]

то есть переходник с 4 проводов на 5 или как?
у мя вот такой болтается в компе

 

[Yohji]

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

 

[sviatoslav]

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

 

[Yohji]

1. Кто пустым должен быть ???

2." или если они свободны (их 2 штуки) как и 2 свободных сата" Если Вы хотите получить конкретный вопрос задавайте конкретный вопрос, со всеми подробностями!!! Ибо трудно ответить если не понимаешь что спрашивают... И без жаргона давайте пжалста.

 

[sergey5000]

sviatoslav, внимательно прочтите мой пост1, там написано что пустой - это недостающие 3,3 В питания. Без них всё будет работать нормально за исключением режима горячего останова (как флешка).

 

[sviatoslav]

у мя компе есть 2 разъема по 4 провода в каждом... но они идут не на прямую с блока питания... если я вставлю в один из них молекс-сата + веник... все будет норм?

 

[sergey5000]

sviatoslav, ЭТО просто молексы запараллелены, а для того чтоб использовать меньше провода и достать подальше - второй разъём запитали не от самого БП а уже от первого разъёма. Таким образом конечно уменьшается сечение но тех проводов хватит не пись пись.