Developing.ru

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


2
даны 3 массива целых чисел их 50, 30 и 45 элементов. написать программу, в которой получить сумму тех элементов массивов, которые кратные 5.
ввод массива оформить как процедуру, нахождение суммы как функции))

НАЗВАНИЕ ТЕМЫ ДОЛЖНО ОТРАЖАТЬ СУТЬ ВОПРОСА!
В следующий раз удалю.

Готов реализовать. Пишите.
ICQ: 593-013-807
email: dryshkov@yandex.ru

255507394 Обращайся!
Сделаю в лучшем виде!

код прописывать не буду, ибо боюсь ошибиться, но в целом последовательность решения первой задачи следующая:

1. найти общий ср вес одной вещи (предполагаемый массив c)
2. в цикле выполняешь проверку веса одной вещи из багажа с общим средним весом одной вещи
if ((a/b-c>0.3) and (a/b-c<0.3))

2 задача. собсна, что тут такого?

ввод массива (если из файла):

procedure inp(n: integer; var a: array[1..50] of integer); //объявление процедуры, входные данные n (количество элементов), выходные массив a (сами числа)
var i: integer; //дополнительная переменная внутри процедуры
begin
assign(input, 'in.txt'); reset(input); //подготовка к чтению данных
for i:=1 to n do read(a); //цикл чтения массива
close(input);
end;

function sum(n: integer; a: array [1..50] of integer): integer;
var i: integer;
begin
for i:=1 to n do //цикл для обработки массива
if (a mod 5 = 0) then flag:= flag+a; // если остаток от деления на5 равен нулю, то увеличивать общую сумму
sum:= flag; //задаем значение самой ф-ции
end;

begin
inp(50, a); //читаем массив
write(sum(50, a)); // выводим значение ф-ции
end.

Прим: возможны грамматические ошибки в коде, просто я давно за паскаль не садился (