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

Создайте файл, содержащий записи следующей структуры: наименование товара, старая цена, новая цена. - Turbo Pascal

26.04.2010, 10:17. Просмотров 863. Ответов 1
Метки нет (Все метки)

Создайте файл, содержащий записи следующей структуры: наименование товара, старая цена, новая цена. Определите на какие товары повысилась цены и на сколько процентов.

С модулями и подпрограммами !!! Ну или только с Подпрограммами !!!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2010, 10:17
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Создайте файл, содержащий записи следующей структуры: наименование товара, старая цена, новая цена. (Turbo Pascal):

Опишите используя запись товар( наименование, старая цена, новая цена). Определить на какие товары повысятся цены и на сколько процентов
Опишите используя запись товар( наименование, старая цена, новая цена)....

Создать тип с описанием товара: код, наименование, цена за единицу товара, количество и сумма
Создать тип с описанием товара: код,наименование,цена за единицу...

Сформировать файл Play.txt, содержащий записи о магнитофонах и вывести все, цена которых меньше М
Сформировать файл Play.txt што вмещает инфу про магнитофоны(марка,цена) и...

Создать тип с описанием товара: код, наименование, цена за единицу товара, количество и сумма.
Помоготе решить задачу плз!!! Создать тип с описанием товара: код,...

Создать новый файл данных, содержащий сведения о товарах, цена которых более заданной суммы
Создать файл, содержащий следующие данные: наименование товара; количество;...

11. Создать файл wares, содержащий сведения об экспортируемых товарах (10 записей): указывается наименование товара, страна, импортирующая товар, и об
Создать файл wares, содержащий сведения об экспортируемых товарах (10 записей):...

1
Inadequate
Retired
7709 / 2542 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
26.04.2010, 11:00 #2
Лучший ответ Сообщение было отмечено spider12345 как решение

Решение

spider12345, все задание тебе тут наврядли будут делать. ОписАть файл можно так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
type 
  Rec = record
    Name: string[40];
    OldPrice, NewPrice: real;
  end;
 
var
  f: file of Rec;
  temp: Rec;
begin
  Assign(f, 'file.dat');
  ...
проверить какие цены поднялись можно так
Pascal
1
2
3
4
5
6
while not EOF(f) do
begin
  Read(f, temp);
  if temp.OldPrice < temp.NewPrice then
    WriteLn('Цена на ', temp.Name, 'повысилась на ', temp.NewPrice * 100 / temp.OldPrice - 100, '%');
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2010, 11:00
Привет! Вот еще темы с решениями:

Создайте файл, содержащий записи о 10 студентах из 3 групп
Выведите на экран имена круглых отличников type student = record name:...

Создайте файл, содержащий записи о каждом из 20 студентов вуза.
Создайте файл, содержащий записи о каждом из 20 студентов вуза следующей...

с клавиатуры последовательно вводятся количество товара и его цена
с клавиатуры последовательно вводятся количество товара и его цена.ввод...

Составить список на товары (4 наименования), содержащий наименование товара и цену в рублях и копейках
25 Составить программу на языке Паскаль. Составить список на товары (4...


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

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

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