Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
зеленокумск
0 / 0 / 1
Регистрация: 28.12.2013
Сообщений: 9
#1

Определить общий вес драгооценных металлов в приборах данного наименования К*(ВЗ+ВП) - Turbo Pascal

28.12.2013, 21:55. Просмотров 429. Ответов 6
Метки нет (Все метки)

Задан массив (размерность 12) записей следующей структуры:
-Номер прибора
-наименование прибора
-описание прибора
-вес золота в приборе (ВЗ)
-вес платины в приборе (ВП)
-Стоимость прибора (С)
-Колличество приборов данного типа (К)

Определить общий вес драгооценных металлов в приборах данного наименования К*(ВЗ+ВП).
Определить общую стоимость приборов в лаборатории.
http://www.cyberforum.ru/turbo-pascal/thread227771.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2013, 21:55
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить общий вес драгооценных металлов в приборах данного наименования К*(ВЗ+ВП) (Turbo Pascal):

Определить вид и количество предметов так, чтобы общий вес не превышал заданного значения
Имеется определенное количество нескольких видов предметов, характеризующихся...

Определить, на каком дне рождения вес съеденной пищи превысит собственный вес Винни – Пуха
На каждом следующем дне рождения Винни – Пух съедает столько же пищи, сколько...

Вычислить общий вес багажа
Дан массив из восьми строк. В строке "фамилия пассажира_количество...

Известен вес каждого ученика из двух классов. Определить количество учеников в каждом классе, вес которых больше 50 кг
1.Известен вес каждого ученика из двух классов. Определить количество учеников...

Определить общий доход, полученный от продажи каждого наименования кофе
1)ввод исходных данных двумерного массива (ввод наименований в ячейки первого...

6
Reveng
420 / 420 / 338
Регистрация: 25.06.2012
Сообщений: 666
Завершенные тесты: 1
29.12.2013, 00:28 #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
uses Crt;
 
const nmax = 12;
 
type pribor = record
  number : integer;
  name : string;
  info : string;
  w_gold : real;
  w_plat : real;
  cost : real;
  count : integer;
end;  
 
var
  p : array [1..nmax] of pribor;
  i, n : byte;
  CostAll, w_name : real;
  enter_name : string;
 
begin
  ClrScr;
  Repeat
    Writeln('Количество приборов (не более ', nmax, '): ');    Readln(n);
  until n in [1..nmax];
  Writeln('Введите данные о приборах: ');
  for i := 1 to n do
    begin
      Write('Наименование прибора № ', i, ': '); Readln(p[i].name);
      Write('Описание прибора № ', i, ': '); Readln(p[i].info);
      Write('Вес золота в приборе № ', i, ': '); Readln(p[i].w_gold);
      Write('Вес платины в приборе № ', i, ': '); Readln(p[i].w_plat);
      Write('Стоимость прибора № ', i, ': '); Readln(p[i].cost);
      Write('Количество приборов № ', i, ': '); Readln(p[i].count);
      Writeln('===================================================');
    end;
  ClrScr;
  Write('Введите наименование прибора: ');  Readln(enter_name);
  CostAll := 0; w_name := 0;
  for i := 1 to n do
    begin
      if p[i].name = enter_name then w_name := w_name + p[i].count * (p[i].w_gold + p[i].w_plat);
      CostAll := CostAll + p[i].count * p[i].cost; 
    end;
  Writeln('Общий вес драгоценных металлов в приборе ', enter_name, ' = ', w_name);
  Writeln('Общая стоимость приборов: ', CostAll);
end.
1
зеленокумск
0 / 0 / 1
Регистрация: 28.12.2013
Сообщений: 9
29.12.2013, 03:36  [ТС] #3
Спасибо большое за задачу! В целом работает, но не считает общий вес драгоценных металов и общую стоимость приборов. (не могли бы исправить, пожалуйста!?)
0
Reveng
420 / 420 / 338
Регистрация: 25.06.2012
Сообщений: 666
Завершенные тесты: 1
29.12.2013, 12:12 #4
Цитата Сообщение от зеленокумск Посмотреть сообщение
Спасибо большое за задачу! В целом работает, но не считает общий вес драгоценных металов и общую стоимость приборов. (не могли бы исправить, пожалуйста!?)
В конец кода добавьте Readln; или после выполнения программы нажимаете Alt+F5
Определить общий вес драгооценных металлов в приборах данного наименования К*(ВЗ+ВП)
1
зеленокумск
0 / 0 / 1
Регистрация: 28.12.2013
Сообщений: 9
29.12.2013, 13:16  [ТС] #5
Определить общий вес драгооценных металлов в приборах данного наименования К*(ВЗ+ВП)
У меня вот что получается!!!
как мне сделать чтобы было как у тебя?
0
Reveng
420 / 420 / 338
Регистрация: 25.06.2012
Сообщений: 666
Завершенные тесты: 1
29.12.2013, 14:03 #6
Вместо
Pascal
1
2
  Writeln('Общий вес драгоценных металлов в приборе ', enter_name, ' = ', w_name);
  Writeln('Общая стоимость приборов: ', CostAll);
Вот это:
Pascal
1
2
  Writeln('Общий вес драгоценных металлов в приборе ', enter_name, ' = ', w_name:0:2);
  Writeln('Общая стоимость приборов: ', CostAll:0:2);
1
зеленокумск
0 / 0 / 1
Регистрация: 28.12.2013
Сообщений: 9
29.12.2013, 14:43  [ТС] #7
Определить общий вес драгооценных металлов в приборах данного наименования К*(ВЗ+ВП)
оокк, спасибо! и ещё один вопросик: почему-то не считает общий вес драгоценных металов в приборе( пишет=0.00)
0
29.12.2013, 14:43
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.12.2013, 14:43
Привет! Вот еще темы с решениями:

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

Определить и вывести фамилии пассажиров, общий вес багажа которых превышает K килограмм
Имеются сведения о багаже каждого из N пассажиров (фамилия, число мест, вес...

Определить, на каком дне рождения вес съеденной пищи превысит собственный вес Винни-Пуха
На каждом следующем дне рождения Винни-Пух съедает столько же пищи, сколько на...

Определить, на каком дне рождения вес съеденной пищи превысит собственный вес Винни-Пуха
На каждом следующем дне рождения Винни-Пух съедает столько же пищи, сколько на...


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

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

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