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

22.01.2012, 00:54. **Показов** 19648. **Ответов** 5

Author24 — интернет-сервис помощи студентам

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

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

@Севак · 22.01.2012, 13:45

fanatka,

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
uses crt;
var
i,s,s1,s2,s3,m,mes1,mes2,mes3: integer;
one: array[1..12] of integer;
two: array[1..12] of integer;
three: array[1..12] of integer;
begin
for i:=1 to 12 do begin
writeln('Введите зарпалату 1 работника за ',i,', месяц');
readln(one[i]);
s1:=s1+one[i]
end;
for i:=1 to 12 do begin
writeln('Введите зарплату 2 работника за ',i,' месяц');
readln(two[i]);
s2:=s2+two[i];
end;
for i:=1 to 12 do begin
writeln('Введите зарплату 3 работника за ',i,' месяц');
readln(three[i]);
s3:=s3+three[i];
end;
s:=s1+s2+s3;
mes1:=one[1]+two[1]+three[1];
mes2:=one[2]+two[2]+three[2];
mes3:=one[3]+two[3]+three[3];
writeln('Общая сумма зарплат: ',s);
writeln('Зарплата 1 рабочего за квартал: ',s1);
writeln('Зарплата 2 рабочего за квартал: ',s2);
writeln('Зарплата 3 рабочего за квартал: ',s3);
writeln('Зарплата всех работников за 1 месяц: ',mes1);
writeln('Зарплата всех работников за 2 месяц: ',mes2);
writeln('Зарплата всех работников за 3 месяц: ',mes3);
end.

@КонецСвета · 22.01.2012, 14:20

о, перехват =)
fanatka, есть проблема: все 12 работников не помещаются при выводе в окне...
есть несколько вариантов решений
1) оставить как есть

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
uses crt;
const m=3; r=12;
      line='|-----------|----------|----------|----------|------------|';
      sha1='| Работники |             Месяц              |  Зарплата  |';
      sine='|           |--------------------------------|            |';
      sha2='|           |     1    |     2    |     3    | за квартал |';
 
var z: array [1..r,1..3] of integer;
    i,j,sum,summ1,summ2,summ3: integer;
begin
writeln('Внесите данные о зарплате работников за квартал');
for i:=1 to r do
    for j:=1 to m do
        begin
        write('Зарплата ',i,' работника за ',j,' месяц =');
        readln(z[i,j]);
        if j=1 then inc(summ1,z[i,j]);
        if j=2 then inc(summ2,z[i,j]);
        if j=3 then inc(summ3,z[i,j]);
        end;
clrscr;
writeln('Общая сумма, выплаченная за квартал всем работникам =',summ1+summ2+summ3);
writeln(line);
writeln(sha1);
writeln(sine);
writeln(sha2);
writeln(line);
for i:=1 to r do
    begin
    sum:=0;
    write('|',i:6,'|':6);
    for j:=1 to m do
        begin
        write(z[i,j]:8,'|':3);
        inc(sum,z[i,j]);
        end;
    writeln(sum:10,'|':3);
    writeln(line);
    end;
write('|','Итого ':8,'|':4);
write(summ1:8,'|':3);
write(summ2:8,'|':3);
write(summ3:8,'|':3);
writeln(summ1+summ2+summ3:10,'|':3);
writeln(line);
end.

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
uses crt;
const m=3; r=12;
      line='|-----------|----------|----------|----------|------------|';
      sha1='| Работники |             Месяц              |  Зарплата  |';
      sine='|           |--------------------------------|            |';
      sha2='|           |     1    |     2    |     3    | за квартал |';
 
var z: array [1..r,1..3] of integer;
    i,j,sum,summ1,summ2,summ3: integer;
begin
writeln('Внесите данные о зарплате работников за квартал');
for i:=1 to r do
    for j:=1 to m do
        begin
        write('Зарплата ',i,' работника за ',j,' месяц =');
        readln(z[i,j]);
        if j=1 then inc(summ1,z[i,j]);
        if j=2 then inc(summ2,z[i,j]);
        if j=3 then inc(summ3,z[i,j]);
        end;
clrscr;
writeln('Общая сумма, выплаченная за квартал всем работникам =',summ1+summ2+summ3);
writeln(line);
writeln(sha1);
writeln(sine);
writeln(sha2);
writeln(line);
for i:=1 to r do
    begin
    sum:=0;
    write('|',i:6,'|':6);
    for j:=1 to m do
        begin
        write(z[i,j]:8,'|':3);
        inc(sum,z[i,j]);
        end;
    writeln(sum:10,'|':3);
    end;
writeln(line);
write('|','Итого ':8,'|':4);
write(summ1:8,'|':3);
write(summ2:8,'|':3);
write(summ3:8,'|':3);
writeln(summ1+summ2+summ3:10,'|':3);
writeln(line);
end.

3) разбить таблицу на 2 части и выводить по частям... если нужен такой вариант - намекни...

@Севак · 22.01.2012, 14:27

КонецСвета, 2 код попробовал, больше данных о первом работнике не дает вводить, выводит таблицу и все

@КонецСвета · 22.01.2012, 14:28

Севак, пробуй снова =)
пс спасибо

@Севак · 22.01.2012, 14:34

КонецСвета, 2ой робит как надо)

Новые блоги и статьи Все статьи Все блоги /
Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .

fanatka

	Известна зарплата каждого из 12 работников фирмы за каждый месяц первого квартала. 22.01.2012, 00:54. Показов 19648. Ответов 5 Метки нет (Все метки) Известна зарплата каждого из 12 работников фирмы за каждый месяц первого квартала. Организовать ввод информации по этой таблице и определить: а) общую сумму, выплаченную за квартал всем работникам; б) зарплату, полученную за квартал каждым работником; в) общую зарплату всех работников за каждый месяц. Изображения

@Севак любитель покушать 687 / 641 / 248 Регистрация: 25.09.2011 Сообщений: 1,313
	22.01.2012, 14:27
	КонецСвета, 2 код попробовал, больше данных о первом работнике не дает вводить, выводит таблицу и все 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	22.01.2012, 14:28
	Севак, пробуй снова =) пс спасибо 0

@Севак любитель покушать 687 / 641 / 248 Регистрация: 25.09.2011 Сообщений: 1,313
	22.01.2012, 14:34
	КонецСвета, 2ой робит как надо) 0

Опции темы