1 / 1 / 1
Регистрация: 13.11.2012
Сообщений: 52
1

Составить программу, которая определяет выручку фирмы за каждый месяц

21.12.2012, 07:50. Показов 1117. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите плиз найти ошибку:
Сведения о продажах фирмы представлены в виде таблицы.

Составить программу, которая определяет выручку фирмы за каждый месяц.
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
uses crt;
type printer = record
name:string;
tsena:integer;
J,F,M:integer;
end;
var base:array[1..50] of printer;
f1,f2:text;
i,n:integer;
VirJ,VirF,VirM:real;
name,Kol:string;
tsena:integer;
J,F,M:integer;
begin
assign(f1,'input.txt');
assign(f2,'out.txt');
reset(f1);
rewrite(f2);
read(f1,name,J,F,M,tsena);
for i:=1 to n do
with base[i] do
begin
clrscr;
write('Принтер:'); read(name);
writeln('Количество:');
write('Январь:'); read(j);
write('Февраль:'); read(f);
write('Март:'); read(m);
write('Цена:'); read(tsena);
write('_____________________________________________');
VirJ:=0;
for i:=1 to n do
with base[i] do
begin
VirJ:=J+tsena;
VirF:=F+tsena;
VirM:=M+tsena;
writeln( '|' ,name, '|' ,     Kol     , '|',tsena,'|');
writeln(            '|' ,J,'|',F,'|',M, '|'           );
write('____________________________________');
end;end;end.
Миниатюры
Составить программу, которая определяет выручку фирмы за каждый месяц  
0
21.12.2012, 07:50
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.12.2012, 07:50
Ответы с готовыми решениями:

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

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

Определить выручку фирмы за каждый месяц. Создать блок-схему
Уважаемые программисты, помогите пожалуйста построить блок-схему type printer=record name:string; yan,fev,mar:integer; ...

3
Добры_Змейка
 Аватар для isqoff
53 / 53 / 43
Регистрация: 09.06.2010
Сообщений: 170
21.12.2012, 13:48 2
желательно конечно ещё и прикрепить input.txt
а так:
1)после работы с файлом вы его не закрываете
2)for i:=1 to n do чему равна n??? я не нашёл...
1
1 / 1 / 1
Регистрация: 13.11.2012
Сообщений: 52
21.12.2012, 17:48  [ТС] 3
Исходные данные (N – количество чисел) вводятся из файла Input.txt

Добавлено через 7 минут
Ошибка: 0-выход за границы диапазона изменения индекса 1..50 (Program1.pas, строка 23)
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
uses crt;
type printer = record
name:string;
tsena:integer;
J,F,M:integer;
end;
var base:array[1..50] of printer;
f1,f2:text;
i,n:integer;
VirJ,VirF,VirM:real;
name,Kol:string;
tsena:integer;
J,F,M:integer;
begin
assign(f1,'input.txt');
assign(f2,'out.txt');
reset(f1);
rewrite(f2);
read(f1,name,J,F,M,tsena);
with base[i] do
begin
clrscr;
writeln(f2,'Принтер:'); read(f1,name);
writeln(f2,'кол-во:');
writeln(f2,'Январь:'); read(f1,j);
writeln(f2,'Февраль:'); read(f1,f);
writeln(f2,'Март:'); read(f1,m);
writeln(f2,'Цена:'); read(f1,tsena);
writeln(f2,'_____________________________________________');
with base[i] do
writeln(f2,' ');
writeln(f2,'|' ,name, '|' ,     Kol     , '|',tsena,'|');
writeln(f2,            '|' ,J,'|',F,'|',M, '|'           );
write(f2,'____________________________________');
writeln(f2,'Выручка за январь',tsena+J);
writeln(f2,'Выручка за февраль',tsena+F);
writeln(f2,'Выручка за март',tsena+M);
close(f1);
close(f2);
end;end.
0
Добры_Змейка
 Аватар для isqoff
53 / 53 / 43
Регистрация: 09.06.2010
Сообщений: 170
21.12.2012, 23:21 4
выложите файл input.txt будет легче вам помочь
0
21.12.2012, 23:21
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.12.2012, 23:21
Помогаю со студенческими работами здесь

Составить программу, которая определяет выручку фирмы за каждый месяц
Сведения о продажах фирмы представить в виде таблицы. У меня программа получилась вот только в результате коль-во принтеров показывает...

Известна зарплата каждого из 12 работников фирмы за каждый месяц первого квартала.
Известна зарплата каждого из 12 работников фирмы за каждый месяц первого квартала. Организовать ввод информации по этой таблице и...

Известна зарплата каждого из 12 работников фирмы за каждый месяц первого квартала
Известна зарплата каждого из 12 работников фирмы за каждый месяц первого квартала. Организовать ввод информации по этой таблице и...

В двухмерном массиве хранится информация о зарплате 18 сотрудников фирмы за каждый месяц года
В двухмерном массиве хранится информация о зарплате 18 сотрудников фирмы за каждый месяц года (в первом столбце - за январь, во втором - за...

Стоимость акций известной фирмы стабильно растёт на протяжении n месяцев, каждый месяц...
помогите решить на языке С++ с помощью оператора while Стоимость акций известной фирмы стабильно растёт на протяжении n месяцев, каждый...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Условные типы в TypeScript
stackOverflow 17.02.2025
Условные типы - это сильное средство TypeScript, позволяющее создавать типы, которые могут менять свое поведение в зависимости от определенных условий. По своей сути, они работают подобно тернарному. . .
TypeScript и оператор infer: разбиваем Composite-типы на части
stackOverflow 17.02.2025
В TypeScript композитные типы занимают особое место - это сложные типы данных, которые создаются путем объединения более простых типов. К ним относятся массивы, объекты, кортежи (tuples),. . .
Mapped-типы в TypeScript
stackOverflow 17.02.2025
TypeScript предоставляет развитые средства для типизации данных, и одним из наиболее гибких инструментов являются mapped-типы. По сути, mapped-тип или сопоставленный тип - это способ создания нового. . .
Как вернуть энтузиазм
Uswer 17.02.2025
Приветствую тебя читатель. Сначала небольшая предыстория. Лет 5-6 тому назад появилась у меня идея автоматизации некоего процесса на работе. А так как я уже много лет увлекаюсь (не путать с. . .
Оператор satisfies в TypeScript: как он работает и где применять
stackOverflow 17.02.2025
Оператор satisfies - одна из наиболее полезных возможностей TypeScript, позволяющая проверять типы значений без изменения их исходного типа. В отличие от других операторов типизации, satisfies дает. . .
Почему могут не шифроваться русские символы в Java
Wired 17.02.2025
При разработке на Java нередко возникают сложности с шифрованием русских символов. Эта проблема особенно актуальна для разработчиков, создающих программное обеспечение для русскоязычной аудитории. . . .
Отличия ОС для x86_64 и ARM
Wired 17.02.2025
На данный момент сосуществуют две основные архитектуры процессоров - x86_64 и ARM. Эти архитектуры имеют принципиально разные подходы к организации вычислений и обработке данных, что накладывает. . .
Многопоточность в Python: как использовать Thread
bytestream 17.02.2025
Поток выполнения (thread) - это наименьшая последовательность инструкций, которая может управляться планировщиком операционной системы. Представьте себе, что ваша программа - это книга, а потоки -. . .
Как воспроизвести Race Condition в Python
bytestream 17.02.2025
В многопоточном программировании существует множество подводных камней, и одним из самых коварных является состояние гонки (Race Condition). Этот термин описывает ситуацию, когда результат выполнения. . .
Ошибка "node: --openssl-legacy-provider is not allowed in NODE_OPTIONS"
bytestream 17.02.2025
Каждый разработчик рано или поздно сталкивается с ситуацией, когда при запуске проекта Node. js неожиданно выскакивает ошибка "node: --openssl-legacy-provider is not allowed in NODE_OPTIONS". Это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru