|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.05.2009, 12:45 | #1 |
Новичок
Джуниор
Регистрация: 24.05.2009
Сообщений: 0
|
Срочно проверьте задачу в Паскале на зарплату
ВАЖНО И ОЧЕНЬ СРОЧНО!!!!! Пожалуйста!! Помогите!!!
Составить блок схему алгоритма и программу обработки ведомости на зарплату.Программа должна обеспечивать ввод фамилий, табельных номеров, номеров участков и зарплаты работников. Табельные номера следуют в произвольном порядке и имеют значения от 1 до N, номера участков также следуют в произвольном порядке и имеют значения от 1 до К. Фамилии и зарплата работников вводятся произвольно. N=9, K=3 N – численность работников, K – количество участков. Предусмотреть невозможность ввода номера участка, большего K. Определить среднее и минимальное значение зарплаты в коллективе.Вывести на печать массивы ведомости,среднее и минимальное значение зарплаты. ПОМОГИТЕ!!!!!!: Последний раз редактировалось lenok113; 24.05.2009 в 19:46. |
24.05.2009, 16:05 | #2 |
Новичок
Джуниор
Регистрация: 24.05.2009
Сообщений: 0
|
Пмогите..кто-нибудь.......
|
24.05.2009, 19:45 | #3 |
Новичок
Джуниор
Регистрация: 24.05.2009
Сообщений: 0
|
проверьте:
program asr; uses crt; type t=record fam:string;tab,nu:integer;zar:real; end; type t1 = array[1..50] of t; var baza:t;ved:t1;i,min,n,zar,s:integer ; begin clrscr; writeln ('vvedite kol-vo rabotnikov'); readln; writeln(' vvedite kol-vo uchastkov'); for i:=1 to n do begin writeln (' vvedite familiy,tabelnyi nomer,nomer uchastka,zarplatu'); readln(ved[i].fam,ved[i].nu,ved[i].zar); end; writeln('isxodnaya vedomost'); for i:=1 to n do begin min:=zar[i] ; if zar[i]<= min then min:=zar[i]; end; s:=0; for i:=1 to n do do begin s:=s+zar[i] ; s:=s/9; end; writeln ('min'; min:8:2); writeln('s';s:8:2); readln; end. |
24.05.2009, 20:08 | #4 |
Форумчанин
Регистрация: 18.04.2007
Сообщений: 135
|
Постучись в аську.
|
24.05.2009, 20:26 | #5 |
Новичок
Джуниор
Регистрация: 24.05.2009
Сообщений: 0
|
напиши мне ее
|
24.05.2009, 20:31 | #6 |
Форумчанин
Регистрация: 18.04.2007
Сообщений: 135
|
302846176 А вообще под ником у меня цветочек, там аська и прописана)
|
24.05.2009, 21:41 | #7 |
Тупой студент
Форумчанин
Регистрация: 12.05.2007
Сообщений: 614
|
надо писать НЕ "Срочно проверьте задачу в Паскале на зарплату", а "Срочно проверьте задачу в Паскале за зарплату"
|
24.05.2009, 22:22 | #8 |
Новичок
Джуниор
Регистрация: 24.05.2009
Сообщений: 0
|
Спасибо тебе Вовка (НЕ_АЙС)...выручил.....так что народ обращаемся к Вовке....он классный программист!!!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить задачу в паскале | P@niSheR | Помощь студентам | 2 | 08.12.2008 18:48 |
Помогите решить задачу в ПАСКАЛЕ | triston | Помощь студентам | 3 | 17.11.2008 17:46 |
Помогите решить задачу в Паскале | freeman4913 | Помощь студентам | 3 | 24.12.2007 21:41 |
Помогите решить задачу на паскале! | jst.denis | Помощь студентам | 2 | 28.10.2007 11:13 |