как обеспечить вывод информации по последним буквам в задаче - Форум
Понедельник, 05.12.2016, 07:26
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » как обеспечить вывод информации по последним буквам в задаче
как обеспечить вывод информации по последним буквам в задаче
inessaaДата: Воскресенье, 30.05.2010, 22:41 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
решить задачу, связанную с оценкой экономической деятельности группы предприятий на основе известных данных: - название предприятий, - фактический объем розничного товарооборота, - сумма полученной прибыли за последний год, - среднесписочное количество работников предприятия. Требуется определить: 1) сумму прибыли, приходящейся на одного работника, по каждому предприятию. 2) кол-во предпр, число работников которых находится в заданном диапазоне. 3) предпр с наименьшим среднесписочным кол-вом работников. 4) обеспечить вывод инф о предприятиях по заданным последним буквам. 5) упорядочить предпр по убыванию прибыли

в этой задаче что написать под "if n=5 then writeln('vivod predpr po posl bukvam');"? ну и кто сможет еще после if n=6 then writeln('predpriyatiya po ubivaniyu pribili');

program aa;
uses crt;
var n,k,i,m,u,min,max,min2,count,q:integer;p,y,o:real;b:string; h:char;
t,g:array[1..10] of string;
c:array[1..10] of real;
s:array[1..10] of real;
r:array[1..10] of integer;
begin
clrscr;
writeln('1 vvod dannih');
writeln('2 summa pribily prih na 1 rabot');
writeln('3 kol-vo predpr chislo rab v zad diapazone');
writeln('4 predpr s naim sr kol-vom rab');
writeln('5 vivod predpr po posl bukvam');
writeln('6 predpriyatiya po ubivaniyu pribili');
writeln('100 okonch rab');
repeat
writeln('vvedite punkt');
read(n);
if n=1 then begin writeln('vvod dannih');
write('vvedite k-vo predpr');
readln(k);
for i:=1 to k do begin
writeln('predpr n',i,' ');readln(t);
writeln('fact obiem rozn tovaro-ta n',i,' ');readln©;
writeln('summa poluch prib za posl god');readln(s);
writeln('srednespis k-vo rabotnikov predpr');readln®;
end;end;
if n=2 then begin writeln('summa pribily prih na 1 rabot');
writeln('Summy pribyley na kol-vo rabotnikov : ');
for i:=1 to k do begin
o:=s/r;
writeln('o=',o);
end;end;
if n=3 then begin writeln('kol-vo predpr chislo rab v zad diapazone');
count:=0;
writeln('min');readln(min);
writeln('max');readln(max);
write('Chislo predpriyatiy s kol-vom rabotnikov mejdu ',min,'-',max, ' ravno ');
for i:=1 to k do
if(r >= min) AND (r <= max) then
count:=count+1;
writeln(count);
end;
if n=4 then begin writeln('predpr s naim sr kol-vom rab');
min2:=r;
for i:=1 to k do begin
if (r<min2)>;end;
writeln (t,' - predpr s min kolichestvom rabotnikov - ',min2);
end;
if n=5 then writeln('vivod predpr po posl bukvam');

if n=6 then writeln('predpriyatiya po ubivaniyu pribili');

if n=100 then writeln('okonch rab');
until n=100;
end.

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » как обеспечить вывод информации по последним буквам в задаче
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016