багаж пассажира характеризуеться количеством вещей и общим весом вещей. дан файл bagage, содержащий сведения о багаже нескольких пассажиров. сведения о багаже каждого пассажира представляют собой запись с тремя полями: одно поле фамилия пассажира- строка, второе-целого типа(количество вещей) и третье- действительное(вес в килограмах)
написать программу на языке Паскаль, в которой найти багаж, средний вес одной вещи в котором отличаеться не более, чем на 0,3 кг от общего среднего веса одной вещи. вывести на экран сооьщение о наличии или отсутствии таких вещей.
2
даны 3 массива целых чисел их 50, 30 и 45 элементов. написать программу, в которой получить сумму тех элементов массивов, которые кратные 5.
ввод массива оформить как процедуру, нахождение суммы как функции))
НАЗВАНИЕ ТЕМЫ ДОЛЖНО ОТРАЖАТЬ СУТЬ ВОПРОСА!
В следующий раз удалю.
помогите
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
-
Don Karleone
- Сообщения: 3
- Зарегистрирован: 13 окт 2010, 01:21
255507394 Обращайся!
Сделаю в лучшем виде!
Сделаю в лучшем виде!
Мои мысли настолько гениальны, что санитары уже приехали!
Ася 255507394.
Ася 255507394.
-
Oleg_Rus
- Сообщения: 335
- Зарегистрирован: 16 окт 2006, 09:56
- Откуда: г.Улан-Удэ, респ.Бурятия, Российская Федерация
- Контактная информация:
код прописывать не буду, ибо боюсь ошибиться, но в целом последовательность решения первой задачи следующая:
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.
Прим: возможны грамматические ошибки в коде, просто я давно за паскаль не садился (
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.
Прим: возможны грамматические ошибки в коде, просто я давно за паскаль не садился (