0 / 0 / 1
Регистрация: 21.04.2013
Сообщений: 25
1

Записи с вариантами: Вычислить средний вес урожая с грядки для каждого дачника

21.04.2013, 03:14. Показов 1026. Ответов 4
Метки нет (Все метки)

1. Для каждого дачника даны сведения: фамилия, название овоща и урожай с каждой из пяти грядок.
a. Создать массив записей дачников.
b. Вычислить средний вес урожая с грядки для каждого дачника.
c. Выполнить сортировку записей по возрастанию среднего веса урожая.
d. Отсортированный массив записей вывести на экран.

 Комментарий модератора 
Множественные задания в теме запрещены правилами форума. В одной теме должна быть только одна задача. Ваша тема разделена, другие задачи тут:
Записи. Найти и вывести общую площадь перечисленных стран
Определить, могут ли точки быть вершинами некоторого треугольника
Записи. 20 наборов мягкой мебели
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.04.2013, 03:14
Ответы с готовыми решениями:

Вычислить средний балл для каждого
вот задачка: "Для каждого студента вводятся: фамилия и оценка по 5 дисциплинам. Вычислить средний...

Для каждого статуса поставщика посчитать суммарный вес, средний вес и количество уникальных заказных товаров
Вот таблицы spool cre_demo.log CONNECT demo/demo@ORCL prompt prompt Creating table ПОСТАВЩИКИ...

Вычислить средний балл для каждого учащегося и средний балл всей группы
Дана одна страница учебного журнала некоторой группы (номер строки соответствует порядковому номеру...

В файле хранится информация о пассажирах и багаже. Получить средний вес багажа каждого пассажира
Форумчане помогуте пожалуйста с такой задачей. В файле храниться информация о пассажирах и...

4
76 / 76 / 52
Регистрация: 28.02.2013
Сообщений: 206
Записей в блоге: 9
21.04.2013, 03:57 2
Цитата Сообщение от Svetka_rain Посмотреть сообщение
1. Для каждого дачника даны сведения: фамилия, название овоща и урожай с каждой из пяти грядок.
a. Создать массив записей дачников.
b. Вычислить средний вес урожая с грядки для каждого дачника.
c. Выполнить сортировку записей по возрастанию среднего веса урожая.
d. Отсортированный массив записей вывести на экран.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
program xxx;
 
type info = record
    lastname : string;
    name : string;
    harvest : array [1..5] of integer;
    average  : real;
end;
 
const n = 10; //Кол-во дачников
var
    a : array [1..n] of info;
 
    
procedure WriteInfo();
var i,j : integer;
begin
    for i := 1 to n do
        begin
            write('Введите фамилию ',i,'-ого дачника:');
            readln(a[i].lastname);
            write('Название овоща:');
            readln(a[i].name);
            for j := 1 to 5 do
                begin
                    write('Введите урожай с ',j,'-ой грядки:');
                    readln(a[i].harvest[j]);
                end;
        end;
end;
 
procedure CalcAverage();
var i,j : integer;
        //x : real;
begin
    for i := 1 to n do
        begin
            for j := 1 to 5 do 
                begin
                    a[i].average := a[i].harvest[j] + a[i].average;
                end;
            a[i].average := a[i].average/5;
        end;
end;
 
procedure SortAverage ();
var i,j : integer;
        temp : info;
begin
    for i := 1 to n do
        begin
            for j := i+1 to n do
                begin
                    if a[i].average > a[j].average then
                        begin
                            temp := a[i];
                            a[i] := a[j];
                            a[j] := temp;
                        end;
                end;
        end;
end;
 
procedure PrintAll ();
var i : integer;
begin
    for i := 1 to n do
        begin
            writeln('Фамилия: ',a[i].lastname);
            writeln('Название овоща: ',a[i].name);
            writeln('Cредний урожай: ',a[i].average:4:2);
        end;
end;
 
begin
    WriteInfo();
    CalcAverage();
    SortAverage();
    PrintAll();
    readln;
end.
1
0 / 0 / 1
Регистрация: 21.04.2013
Сообщений: 25
21.04.2013, 04:04  [ТС] 3
большое спасибо) если не сильно сложно то гляньте и остальные 3)
0
76 / 76 / 52
Регистрация: 28.02.2013
Сообщений: 206
Записей в блоге: 9
21.04.2013, 05:32 4
Без проблем,только уже когда проснусь
1
0 / 0 / 1
Регистрация: 21.04.2013
Сообщений: 25
21.04.2013, 05:34  [ТС] 5
Цитата Сообщение от Gidropon Посмотреть сообщение
Без проблем,только уже когда проснусь
спасибо,спасибо,спасибо)*
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.04.2013, 05:34
Помогаю со студенческими работами здесь

Как вычислить средний балл для каждого ученика?
Дан текст, содержащий сведения об успеваемости учащихся, разделенные запятой. Каждое сведение...

Подсчитать среднюю заработную плату, средний вес багажа с использованием массива записи
Здравствуйте! Помогите, пожалуйста, написать две программы. 1. Разработать программу подсчета...

для каждого ученика известны Ф.И.О Пол и вес.Ученику имеющему вес 50 кг.положено 0,5 л молока.Разобрать проект,позволяющий
для каждого ученика известны Ф.И.О Пол и вес.Ученику имеющему вес 50 кг.положено 0,5 л...

Известны вес, пол, рост каждого из 22 человек. Найти общую массу и средний рост мужчин.
Помогите с задачей Известны вес, пол, рост каждого из 22 человек. Найти общую массу и средний...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru