|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.12.2012, 20:36 | #1 |
Пользователь
Регистрация: 27.11.2012
Сообщений: 10
|
Блок-схема
помогите пожалуйста составить блок схему.
uses crt; type FIRM=record fam:string; dat:string; stag:integer; okl:integer; end; var base:array [1..50] of FIRM; i,n:integer; z:real; begin write('Введите количество сотрудников->'); readln(n); writeln('Заполнение базы:'); for i:= 1 to n do with base[i] do begin write('Введите фамилию сотрудника - ');readln(fam); write('Дата рождения - '); readln(dat); write('Стаж - '); readln(stag); write('Оклад -'); readln(okl); with base[i] do if stag>20 then z:=okl+0.5*okl else if stag>=10 then z:=okl+0.3*okl else if stag>=5 then z:=okl+0.1*okl else z:=okl; writeln('Заработная плата =',Z); end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Блок схема | bo9911 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 27.02.2012 20:12 |
Схема алгоримта (блок схема) на задачу по Паскалю | LINCHAK | Помощь студентам | 0 | 22.10.2010 16:56 |
Блок схема | dimonpwnz | Помощь студентам | 2 | 02.02.2010 16:16 |
Блок-схема | BROOKS | Помощь студентам | 0 | 07.12.2009 18:40 |
Блок схема алгоритма программы и схема взаимодействия модулей. | Lazio | Фриланс | 3 | 02.12.2009 23:10 |