Технический форум

Технический форум (http://www.tehnari.ru/)
-   Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)
-   -   небольшие задачи на delphi (http://www.tehnari.ru/f43/t7041/)

Алексей_10_11 11.11.2007 01:10

пожалуйста помогите решить сам не могу разобраться
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 12.11.2007 09:27

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 17.11.2007 08:50

Цитата:

Сообщение от Алексей_10_11
Определить подпрограмму

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

AlexZir 17.11.2007 09:10

по 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 17.11.2007 09:29

По третьему:

Чтение из файла можно осуществлять по разному: 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 14.08.2009 01:45

второй веник
 
хочу вот себе купить второй веник, но у мя первый веник как то странно запитан, от него идет 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 14.08.2009 02:23

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

sviatoslav 14.08.2009 17:22

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

Yohji 14.08.2009 18:09

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

sviatoslav 14.08.2009 19:05

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


Часовой пояс GMT +4, время: 02:44.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.