|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.12.2016, 23:30 | #1 |
Новичок
Джуниор
Регистрация: 14.12.2016
Сообщений: 2
|
pascal Данные в виде месячной заработной платы рабочих со специальностями различных категорий занести в одномерный массив строк
Написать программу, которая выполняет следующие финансово-экономические расчеты. Данные в виде месячной заработной платы рабочих со специальностями различных категорий занести в одномерный массив строк, каждая из которых (строка) содержит фамилию, категорию, месячный заработок, номер цеха. Вычислить общую сумму выплат за месяц по всем категориям, по категориям отдельно, процент по категориям от общей суммы, среднюю месячную заработную плату по категориям.
|
14.12.2016, 23:58 | #2 |
Новичок
Джуниор
Регистрация: 14.12.2016
Сообщений: 2
|
const n=2;
var s:array[1..n] of string; i,p1,p2,p3,kat,zarob,code:integer; ser,zar,zarPoCat,vid,serPoCat:char; begin for i:=1 to n do readln(s[i]); for i:=1 to n do begin p1:=pos(' ',s[i]);delete(s[i],p1,1); val(s[i],kat,code); p2:=pos(' ',s[i]);delete(s[i],p2,1); p3:=pos(' ',s[i]);delete(s[i],p3,1); writeln(kat); end;end. сделал наброски с проверкой но не работает переменная kat 0 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal. Вывести массив из m строк и n столбцов в виде матрицы. | igagogi | Помощь студентам | 1 | 23.12.2012 23:02 |
Система учёта заработной платы. | holy_androny | Фриланс | 0 | 16.05.2012 12:08 |
SQL запрос(динамика заработной платы) | QWERTY-A | SQL, базы данных | 4 | 08.12.2011 23:03 |
Расчетные листы заработной платы | wmatik | Microsoft Office Excel | 17 | 06.05.2011 13:02 |
Распечатать фамилии рабочих бригады, начинающихся с буквы А и С с указанием из месячной зарплаты. | KatruKot | Паскаль, Turbo Pascal, PascalABC.NET | 14 | 05.02.2011 13:07 |