Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
avtivo4ka
0 / 0 / 0
Регистрация: 13.06.2016
Сообщений: 17
#1

Вывести общее количество зерна (в центнерах) отдельно каждого сорта для каждого района - Pascal ABC

13.06.2016, 13:10. Просмотров 204. Ответов 4
Метки нет (Все метки)

О поступлении с элеваторов к зернохранилища зерна I, II и III сорта
Структура записи:
• название района,
• номер элеватора,
• количество зерна I, II и III сорта в центнерах за подотчетный период.
Количество записей в файле> 10.
Значение - стоимость центнера зерна, соответственно I, II и III сортов - ввести с клавиатуры.
Вывести на печать следующую информацию:
1. Общее количество зерна (в центнерах) отдельно каждого сорта для каждого района;
2. Общая стоимость зерна отдельно каждого сорта для каждого района;
3. Общее количество зерна (в центнерах) для указанного с клавиатуры сорта.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2016, 13:10
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести общее количество зерна (в центнерах) отдельно каждого сорта для каждого района (Pascal ABC):

Известно количество жителей и площадь каждого района. Определить среднюю плотность населения - Pascal ABC
2.В области 12 районов. Известны количество жителей и площадь каждого района. Определить среднюю плотность насе-ления по области в целом ...

В учебном заведении три компьютерных класса. Ввести площадь каждого класса и количество компьютеров в нем. Для каждого класса вывести сообщение наруше - Pascal ABC
В учебном заведении три компьютерных класса. Ввести площадь каждого класса и количество компьютеров в нем. Для каждого класса вывести...

Для каждого столбца матрицы отдельно вывести в возрастающем порядке те числа, в которых нет цифр, кратных 3 - Pascal ABC
Дан произвольный двумерный массив натуральных чисел. Для каждого столбца отдельно вывести в возрастающем порядке те числа, в которых нет...

Задать интервал целых чисел. Для каждого четного вывести по отдельности все цифры, а для каждого нечетного найти их среднее арифметическое - Pascal ABC
Задать интервал целых чисел. Для каждого четного вывести по отдельности все цифры, а для каждого нечетного найти их среднее арифметическое ...

Суммировать общее количество символов внутри каждого слова - Pascal
Помогите пожалуйста сделать задание: пользователь вводит несколько слов латинскими буквами. Пользователь вводит две буквы. Суммировать...

Считать из файла и вывести на дисплей средний балл по математике студентов каждого пола отдельно - Pascal ABC
Создать файл записей студентов подгруппы, который будет содержать следующую информацию: ФИО; дату рождения; пол; экзаменационную оценку по...

4
Peoples
1246 / 751 / 465
Регистрация: 06.02.2016
Сообщений: 2,038
Записей в блоге: 14
Завершенные тесты: 4
13.06.2016, 18:06 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
program pr;
const
  Csize = 10;
type
  Tgranary = record
    district: string[50];
    number: integer;
    cI: integer;
    cII: integer;
    cIII: integer;
  end;
  Tarr = array [1..Csize] of Tgranary;
 
var
  f: file of Tgranary;
  a: Tarr;
  i, n, af, b, c, s, sum: integer;
 
begin
  assign(f, 'c:\gra.txt');
  rewrite(f);
  writeln('Введите количество запсей');
  readln(n);
  for i := 1 to n do
  begin
    sum := 0;
    writeln('Введите название района');
    readln(a[i].district);
    writeln('Введите номер элеватора');
    readln(a[i].number);
    writeln('Введите количество зерна 1 сорта');
    readln(a[i].cI);
    writeln('Введите количество зерна 2 сорта');
    readln(a[i].cII);
    writeln('Введите количество зерна 3 сорта');
    readln(a[i].cIII);
    write(f, a[i]);
    writeln;
  end;
  close(f);
  writeln('Введите стоимость 1,2,3 сорта');
  readln(af, b, c);
  reset(f);
  while not eof(f) do
  begin
    read(f, a[i]);
    writeln('Район: ', a[i].district, ' Номер эл: ', a[i].number, ' 1 сорт: ', a[i].cI, ' 2 сорт: ', a[i].cII, ' 3 сорт ', a[i].cIII, ' ');
  end;
  for i := 1 to n do
  begin
    writeln('Район: ', a[i].district, ' ', ' Стоимость 1 сорт: ', a[i].cI * af, ' Стоимость 2 сорт: ', a[i].cII * b, ' Стоимость 3 сорт: ', a[i].cIII * c, ' '); end;
  writeln('Введите сорт');
  readln(s);
  if s = 1 then
    for i := 1 to n do
    begin
      sum := sum + (a[i].cI);
    end;
  if s = 2 then
    for i := 1 to n do
    begin
      sum := sum + (a[i].cII);
    end;
  if s = 3 then
    for i := 1 to n do
    begin
      sum := sum + (a[i].cIII);
    end;
  writeln('Общее количество зерна ', s, ' сорта: ', sum);
end.
1
avtivo4ka
0 / 0 / 0
Регистрация: 13.06.2016
Сообщений: 17
13.06.2016, 18:33  [ТС] #3
Peoples, что не так?
0
Миниатюры
Вывести общее количество зерна (в центнерах) отдельно каждого сорта для каждого района  
Peoples
1246 / 751 / 465
Регистрация: 06.02.2016
Сообщений: 2,038
Записей в блоге: 14
Завершенные тесты: 4
13.06.2016, 18:39 #4
avtivo4ka, 20 строчку поменяйте
Pascal
1
 assign(f, 'gra.txt');
1
avtivo4ka
0 / 0 / 0
Регистрация: 13.06.2016
Сообщений: 17
13.06.2016, 18:49  [ТС] #5
спасибо огромное за помощь
0
13.06.2016, 18:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2016, 18:49
Привет! Вот еще темы с ответами:

Известны оценки по информатике каждого ученика класса. Определить общее количество пятерок. - Pascal ABC
Известны оценки по информатике каждого ученика класса. Определить общее количество пятерок.

Для каждого элемента с нечетным индексом найти и вывести количество цифр и их сумму - Pascal
Дан массив целых чисел. Для каждого элемента с нечетным индексом найти и вывести количество цифр и их сумму. (с использованием...

Определить те сорта роз которые имеются у каждого цветовода - Pascal
известны сорта роз, вырашиваемых тремя цветодовами: Анжелика, виктория, гагарин, Ева мария, катарина,юбилейная Определить те сорта роз...

Для каждого адреса необходимо вывести количество фильтров, которым соответствует этот адрес - Pascal
Для проведения чемпионата мира по поиску в сети Меганет организаторам необходимо ограничить доступ к некоторым адресам. Адрес в сети...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru