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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
зеленокумск
0 / 0 / 0
Регистрация: 28.12.2013
Сообщений: 9
#1

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

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

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

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

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

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

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

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

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

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

6
Reveng
420 / 420 / 89
Регистрация: 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 / 0
Регистрация: 28.12.2013
Сообщений: 9
29.12.2013, 03:36  [ТС] #3
Спасибо большое за задачу! В целом работает, но не считает общий вес драгоценных металов и общую стоимость приборов. (не могли бы исправить, пожалуйста!?)
0
Reveng
420 / 420 / 89
Регистрация: 25.06.2012
Сообщений: 666
Завершенные тесты: 1
29.12.2013, 12:12 #4
Цитата Сообщение от зеленокумск Посмотреть сообщение
Спасибо большое за задачу! В целом работает, но не считает общий вес драгоценных металов и общую стоимость приборов. (не могли бы исправить, пожалуйста!?)
В конец кода добавьте Readln; или после выполнения программы нажимаете Alt+F5
Определить общий вес драгооценных металлов в приборах данного наименования К*(ВЗ+ВП)
1
зеленокумск
0 / 0 / 0
Регистрация: 28.12.2013
Сообщений: 9
29.12.2013, 13:16  [ТС] #5
Определить общий вес драгооценных металлов в приборах данного наименования К*(ВЗ+ВП)
У меня вот что получается!!!
как мне сделать чтобы было как у тебя?
0
Reveng
420 / 420 / 89
Регистрация: 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 / 0
Регистрация: 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 килограмм - QBasic
Имеются сведения о багаже каждого из N пассажиров (фамилия, число мест, вес каждого места). Определить и вывести фамилии пассажиров, общий...

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

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

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


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

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

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