IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> файлы, вывести в файл для печати инфу об ассорт. обуви
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

Репутация: -  0  +


( сори за "много букав в условиях,читать долго" )

Создать файл, содержащий сведения об ассортименте обуви в магазине фирмы. Каждая запись содержит следующую информацию: артикул, наименование, цена, количество. Артикул начинается в буквы "Д" для дамской обуви, "М" для мужской, "П" для детской. Количество записей произвольное.
Вывести в файл для печати следующую информацию :
а) о наличии и стоимости обуви указанного артикула и
б) о наличии и стоимости обуви по первой букве атикула.

Как редактировать прогу,чтобы она решала задачу ? smile.gif

uses crt;
var
naim:string;
art:char;
price,kol:integer;
f:text;
s:string;
c:char;
i,n,max:integer;
begin
clrscr;
write('Введите полный путь к файлу : ');
readln(s);
assign(f,s);
{$I-}
reset(f);
{$I+}
if IOResult<>0 then
begin
write('Файл не доступен­.Для завершения программы нажмите - ENTER. Для создания файла  - 1 : ');
read©;
if c='1' then
begin
rewrite(f);
clrscr;
write('Введите количество записей : ');
readln(n);
for i:=1 to n do
begin
clrscr;
write('Артикул товара (д- жен, м- муж, п- дет) : ');
readln(art);
write('Наименование товара  : ');
readln(naim);
write('Цена товара : ');
readln(price);
write('Количество товара : ');
readln(kol);
write(f,art);
write(f,' ');
writeln(f,price);
end;
close(f);
reset(f);
end
else
halt(1);
end;



Сообщение отредактировано: brahma -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Вот и ты возьми и
Цитата(brahma @ 18.12.2007 18:42) *
открой любой учебник по паскалю
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

Репутация: -  0  +


гениально...
только ответьте на вопрос плс :
например,если на входе:

количество записей : 2
артикул : д
наименование : туфли
цена товара : 2000
количество : 100

артикул : м
наименование : сапоги
цена товара : 1000
количество : 200

то на выходе (в файле) что должно быть ?

Сообщение отредактировано: brahma -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 25.11.2020 1:10
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name