Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Помогите в написании:( завал

41K
30 ноября 2008 года
NewMaks
7 / / 30.11.2008
Срочно нужна помощь. задание по информатике, а моя будущая профессия с этим мало связана. Помогите ришить задачу!
Задача№1: Найти сумму отрицательных элементов массива С[1..7]. Значения элементов массива 1,5,6,7,-2,8,-3.
Задача№2: Найти сумму и количество позитивных элементов массива A[1..10,1..6]. 1,2,-3,-4,7,-9,3,-8,-5,10 и 1,-2,4,2,6,-5.
Задача№3: В массиве A[1..20] найти суму и количество элементов, которые менее 5 и индекс кратных 4! 3,2,4,-4,-2,-4,5,6,3,8,5,2,4,8,9,-4,-2,-1,-6,4.
Буду ждать ваших текстов программы в Turbo Pascal 7.0 с большим нетерпением. Буду очень благодарен:)
6
01 декабря 2008 года
George
4.1K / / 05.01.2007
Задача 1:
[highlight=pascal]
function FindNegSum(C: array[1..7] of integer): integer;
var
Sum, i: integer;
begin
Sum := 0;
for i := 1 to 7 do
begin
if C < 0 then
Sum := Sum + C;
end;
Result := Sum;
end;
[/highlight]

Задача 2:
[highlight=pascal]
function FindPosSum(A: array[1..10, 1..6] of integer; var PosItemCount: integer): integer;
var
Sum, i, k: integer;
begin
PosItemCount := 0;
Sum := 0;
for i := 1 to 10 do
begin
for k := 1 to 6 do
begin
if A[i, k] > 0 then
begin
Sum := Sum + A[i, k]; // сумма положительных элементов
inc(PosItemCount); // переменная, где будет лежать количество положительных элементов
end;
end;
Result := Sum;
end;
[/highlight]

Задача 3:
[highlight=pascal]
function FindSum(A: array[1..20] of integer; var PosItemCount: integer): integer;
var
Sum, i: integer;
begin
PosItemCount := 0;
Sum := 0;
for i := 1 to 20 do
begin
if (A < 5) and (i mod 4 = 0) then
begin
Sum := Sum + A; // сумма элементов
inc(PosItemCount); // переменная, где будет лежать количество элементов
end;
end;
Result := Sum;
end;
[/highlight]
41K
02 декабря 2008 года
NewMaks
7 / / 30.11.2008
Спасибо! Уважаю!побольше бы таких ЛЮДЕЙ!

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог