Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
66 / 69 / 33
Регистрация: 07.10.2013
Сообщений: 394

На складе хранится n видов продукции

09.10.2013, 07:53. Показов 1256. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
На складе хранится n видов продукции. Сведения о них содержатся в специальной ведомости, указано наименование продукта, количество, цена за ед. Сформировать соответствующий файл записей. Изменить цену у заданного продукта (наименование и новая цена вводятся пользователем)

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

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
program m7;
uses crt;
var s:text;
i,n,kol,cena,newcena,k:integer;
product,new,p:string;
begin
k:=0;
writeln('Введите кол-во продуктов');
readln(n);
assign(s,'c:\name.txt');
rewrite(s);
for i:=1 to n do begin
writeln('Введите наименование продукта');readln(product);
writeln('Введите кол-во ',product);readln(kol);
writeln('Введите цену ',product);readln(cena);
writeln(s,'№',i,' Наименование:  ',product,' Кол-во:  ',kol,' Цена: ',cena);
end;
append(s);
Writeln('Введите наименование продукта который хотите именить');
readln(new);
Writeln('Введите новое имя');
readln(p);
writeln('Введите новую цену для продукта: ',p ;readln(newcena);
for i:=1 to n do begin
if product=new then begin
writeln('Такой продукт есть');
writeln(s,'№',i,' Наименование:  ',p,' Кол-во:  ',kol,' Цена: ',newcena);
k:=1;
end;end;
if k=0 then writeln('Такого продукта нет');
close(s);
end.
Не знаю как правильно сравнивать строки. через массив? если кто может пусть кодик кинет
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
09.10.2013, 07:53
Ответы с готовыми решениями:

На складе хранится
Помогите плиз. Вот условия: На складе хранится ряд деталей, наименования которых представляют некоторую последовательность символов...

От каких видов продукции завод должен отказаться, чтобы общая производительность труда повысилась вдвое?
Нужно написать программу с использованием двумерных массивов, модулей и подпрограмм. Можете объяснить эту задачу. Так сказать разжевать....

Файл записей: На складе хранится п видов продукции
Помогите, пожалуйста, с решением задачи. На складе хранится п видов продукции. Сведения о них содержатся в специальной ведомости,...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
09.10.2013, 07:53
Помогаю со студенческими работами здесь

Создать массив структур для k видов продукции и общую стоимость выпуска всей продукции за год
Дано: Код продукции, название продукции, выпуск в каждом из 4 кварталов. Создать массив структур для k видов продукции и общую стоимость...

Оптимальный план производства 5 видов продукции
помогите решить задачу Менеджер фирмы хочет установить оптимальный план производства 5 типов продукции. менеджер собрал необходимую...

Вывод остатка продукции на складе в номенклатуре
Помогите пожалуйста, как сделать ,чтобы в номенклатуре были видны остатки продукции на складе? Может не совсем грамотно составлен вопрос,...

В массиве хранится информация о стоимости 1 килограмма 20 видов конфет
В массиве хранится информация о стоимости 1 килограмма 20 видов конфет. Определить, сколько стоят самые дешевые конфеты.

Вывести в output.txt информацию, отсортировав ее по количеству продукции на складе
Здравствуйте! Нужна помощь в сортировке. Я сделал считывание данных из файла и вывод в listView, а вот отсортировать по количеству (и...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru