Delphi задачи и решения

Delphi site: daily Delphi-news, documentation, articles, review, interview, computer humor.

Учебное пособие для студентов специальности "Прикладная информатика (в экономике)"

Практикум по Delphi для решения прикладных задач. Учебное пособие для студентов специальности "Прикладная информатика (в экономике) " Н.Новгород: ННГУ, 2005. 144 с.

Составитель: к.п.н., доцент Кузнецова И. А.

Учебное пособие представляет собой сборник программ и задач для самостоятельного решения в среде разработки Delphi. Рассмотренные решения задач различной степени сложности демонстрируют возможности среды разработки Delphi7.

Учебное пособие будет полезно студентам вузов технических специальностей, а также школьникам старших классов, учащимся колледжей, студентам техникумов.

1) Дан одномерный массив, вычислите среднее арифметическое.
2) Дана матрица размером 5х10. Найти минимальное значение среди сумм элементов всех ее столбцов и вывести это минимальное значение и номер столбца.
3) Багаж пассажира характеризуется количеством вещей и общим весом вещей. Данные о багаже представляют запись характеризующие 2 полями: кол-во вещей(целый тип), вес в кг(действительный тип). Найти средний вес одной вещи, который не отличается от общего среднего арифметического 0,3кг.
4) Дано имя файла с целыми числами. Вывести кол-во его элементов.
5) Вывести строку длиной n(четное число), которое состоит из C1 и C2.

Решение задачи №1 (кстати не указано размерность массива. использовал 5 элементов):

[php]
Program test;
Var i,summ:Integer;
massiv: array [1..5] of Integer;
Begin
summ:=0;
for i:=1 to 5 do
begin
Write(‘Введите элемент массива: ‘);
ReadLn (massiv[i]);
summ:=summ+massiv[i];
end;
Write(‘среднее арифметическое массива равно: ‘, summ/5);
WriteLn;
End.
[/php]

Решение задачи №2 (на примере массива 3 на 3). Массив 5 на 10 сами переделаете.

[php]
<Дана матрица размером 5х10. Найти минимальное значение
среди сумм элементов всех ее столбцов и вывести это
минимальное значение и номер столбца.>
Program massiv;
Var massive: array[1..3,1..3] of Integer;
i,j : Integer;
summ: Integer;
min :Integer;
stolbec:Integer;
Begin
min:=10000;
stolbec:=0;
WriteLn (‘Введите массив 3 на 3 по столбцам:’);
for j:=1 to 3 do
begin
summ:=0;
WriteLn (‘Ввод столбца ‘, j, ‘: ‘);
for i:=1 to 3 do
begin
Write (‘Ввод элемента [‘, j,i,’]’, ‘: ‘);
ReadLn(massive[i,j]);
summ:=summ+massive[i,j];
end;
if min > summ then
begin
min:=summ;
stolbec:=j;
end;
end;

Читайте также:  При извлечении флешки пишет что устройство используется

WriteLn(‘Минимальная сумма элементов столбца № ‘,stolbec,’ равна ‘, min);
End.
[/php]

Задача №3.
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Данные о багаже представляют запись характеризующие 2 полями: кол-во вещей(целый тип), вес в кг(действительный тип). Найти средний вес одной вещи, который не отличается от общего среднего арифметического 0,3кг.

Найти средний вес одной вещи? не верно описано!
который не отличается от общего среднего арифметического 0,3кг? Может на 0,3 кг?

[php]
Program veshi;
type bagag=record
kolvo:Integer;
ves:Real;
end;
Var
my_bagag:bagag;
i:Integer;
sred:Real;
Begin
WriteLn(‘Расчет среднего веса одной вещи багажа, который не отличается от среднего арифм. всех вещей на 0.3кг ‘);
Write(‘Введите количество вещей в багаже: ‘);
ReadLn(my_bagag.kolvo);
for i:=1 to my_bagag.kolvo do
begin
Write(‘Введите массу ‘, i, ‘ вещи багажа: ‘);
ReadLn(my_bagag.ves);
sred:=sred+my_bagag.ves;
end;
sred:=sred/my_bagag.kolvo;
WriteLn(‘Средний вес всех вещей равен ‘, sred);
End.
[/php]

Не правильная задача. Так бы решил до конца.

. массив 3на 3 делфи «Головоломка № 1» delphi дана матрица найти суммы элементов всех ее честных строк Delfi найти среднее арифметическое элементов массива делфи задачи для дельфи

Ниже вы найдете примеры решений нескольких простых задач из лабораторных работ, выполненных на языке программирования Делфи. Стандартный отчет к заданию содержит блок схему для алгоритма, исходный код и скриншоты окна программы.

Задача 1. Вычислить значение выражения $$F=1.8+ln left | 4frac<2><7>- an sin frac<5x> <3>
ight |$$

Задача 2. Определить попадает ли точка $A(x,y)$ в данную область

Задача 3. Определить внутренний и внешний радиусы обоймы шарикоподшипника, в которой без зазоров размещены шаров диаметра $D$, считая, что длина $S$ окружности, на которой размещены центры шаров приблизительно равна $DN$, $N=21,22. 27$

Читайте также:  Photoshop как изменить цвет фона

Задача 4. Высота каждого из $N$ цилиндрических резервуаров одинакова и равна $H$, а внутренние радиусы образуют последовательность $R, Rsqrt(2). Rsqrt(N)$. Определить приблизительный вес затраченного на их изготовление металла, если они сварены из листового металла, толщина листа и удельный вес которого известны