Выбрать работников, у которых средняя зарплата за 2 года больше средней зарплаты всех работников

@Юленька*** · Регистрация: 11.07.2011

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

Ввести сведения о
работниках предприятия (фамилию, год пос¬тупления на работу, среднюю зарплату за последние 2 года). Среди них выбрать тех, у которых средняя зарплата за 2 года больше средней зарплаты всех работников.

Добавлено через 53 минуты
Ребят пожалуйста помогите,очень нужно завтра сдать...

@XEHK · 11.07.2011, 20:20

А я тока хотел начать рсовать, но меня опередили

Добавлено через 39 секунд

Сообщение от bigar

гг выше))

невидать ие чето

@Юленька*** · 11.07.2011, 20:22 **[ТС]**

Спасибо,но у меня 3 ворд и не открывается этот документ с блок-схемой((((

@XEHK · 11.07.2011, 20:24

Сообщение от Юленька***

Спасибо,но у меня 3 ворд и не открывается этот документ с блок-схемой((((

Штоб открить надо поставить офис

@bigar · 11.07.2011, 20:25

Тогда вот так

@Юленька*** · 11.07.2011, 20:30 **[ТС]**

Спасибо)

@bigar · 11.07.2011, 20:34

всегда пожалуйста

@Юленька*** · 11.07.2011, 20:38 **[ТС]**

Ещё есть просьбочка маленькая,у меня есть тема ещё одна по паскаль,так решение мне прислали,а блок-схему сама начнртила,но хотелось бы чтоб правильна она была,вы не посмотрите...
Вот задание.Вычеркнуть из заданного слова все буквы, совпадающие с его последней буквой.

Kodzaev · 11.07.2011, 20:41

Юленька***, вам же уже решали ее...
https://www.cyberforum.ru/turb... 31827.html

@Юленька*** · 11.07.2011, 20:42 **[ТС]**

МНЕ НУЖНА БЛОК_СХЕМА))))))))))))))))))))))))))))

Kodzaev · 11.07.2011, 20:44

ну так выкладывайте ее, чтобы мы проверили

@Puporev · 11.07.2011, 20:50

Немного вывод результата поправил, хотя и так все выводило, только некрасиво.

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
uses crt;
type book=record
fam:string[20];
god:integer;
zar:integer;
end;
var a:array[1..10] of book;
i,n:integer;
s,b:real;
Begin clrscr;
write('vvedite kolichestvo rabotnikov: ');readln(n);
for i:=1 to n do
begin
write('familiya: ');readln(a[i].fam);
write('god postupleniya: ');readln(a[i].god);
write('zarplata: ');readln(a[i].zar);
end;
b:=0;
for i:=1 to n do
b:=b+a[i].zar;
s:=b/n;
writeln('familii teh, u kogo zarplata bolshe srednei zarplati vseh rabotnikov:');
for i:=1 to n do
if a[i].zar>s then writeln(a[i].fam);
readln
end.

Вот результат. Делал в АВС чтобы быстрее.

@Юленька*** · 11.07.2011, 20:54 **[ТС]**

Спасибо)

@bigar · 11.07.2011, 21:11

Сообщение от Юленька***

МНЕ НУЖНА БЛОК_СХЕМА))))))))))))))))))))))))))))

для 1 задачи

@XEHK · 11.07.2011, 21:26

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program Project1;
 
var
  S : String;
  Ch : Char;
  i, Len : Integer;
begin
  Writeln('Задайте слово:');  Readln(S);
 
  Len := Length(S);
  if Len > 0 then begin
    Ch := S[Len];
    for i := Len downto 1 do
      if S[i] = Ch then Delete(S, i, 1);
  end;
 
  Writeln('Результат:');
  Writeln(S);
  
  Readln;

вот какби, немного косо криво зато ... Ох блин скок я же рисовал ету мазьню(

@Юленька*** · 12.07.2011, 14:55 **[ТС]**

Огромное вам спасибо,я всё сдала сегодня)))Теперь выложила задачки,чтоб вы помогли моим одногруппникам)))

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .

@Юленька*** 0 / 0 / 0 Регистрация: 11.07.2011 Сообщений: 46

	Выбрать работников, у которых средняя зарплата за 2 года больше средней зарплаты всех работников 11.07.2011, 14:52. Показов 4535. Ответов 34 Метки нет (Все метки) Ввести сведения о работниках предприятия (фамилию, год пос¬тупления на работу, среднюю зарплату за последние 2 года). Среди них выбрать тех, у которых средняя зарплата за 2 года больше средней зарплаты всех работников. Добавлено через 53 минуты Ребят пожалуйста помогите,очень нужно завтра сдать... 0

@Юленька*** 0 / 0 / 0 Регистрация: 11.07.2011 Сообщений: 46
	11.07.2011, 20:22 [ТС]
	Спасибо,но у меня 3 ворд и не открывается этот документ с блок-схемой(((( 0

@Юленька*** 0 / 0 / 0 Регистрация: 11.07.2011 Сообщений: 46
	11.07.2011, 20:30 [ТС]
	Спасибо) 0

@bigar 53 / 53 / 36 Регистрация: 18.02.2011 Сообщений: 146
	11.07.2011, 20:34
	всегда пожалуйста 1

@Юленька*** 0 / 0 / 0 Регистрация: 11.07.2011 Сообщений: 46
	11.07.2011, 20:38 [ТС]
	Ещё есть просьбочка маленькая,у меня есть тема ещё одна по паскаль,так решение мне прислали,а блок-схему сама начнртила,но хотелось бы чтоб правильна она была,вы не посмотрите... Вот задание.Вычеркнуть из заданного слова все буквы, совпадающие с его последней буквой. 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	11.07.2011, 20:41
	Юленька***, вам же уже решали ее... https://www.cyberforum.ru/turb... 31827.html 1

@Юленька*** 0 / 0 / 0 Регистрация: 11.07.2011 Сообщений: 46
	11.07.2011, 20:42 [ТС]
	МНЕ НУЖНА БЛОК_СХЕМА)))))))))))))))))))))))))))) 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	11.07.2011, 20:44
	ну так выкладывайте ее, чтобы мы проверили 0

@Юленька*** 0 / 0 / 0 Регистрация: 11.07.2011 Сообщений: 46
	11.07.2011, 20:54 [ТС]
	Спасибо) 0

@Юленька*** 0 / 0 / 0 Регистрация: 11.07.2011 Сообщений: 46
	12.07.2011, 14:55 [ТС]
	Огромное вам спасибо,я всё сдала сегодня)))Теперь выложила задачки,чтоб вы помогли моим одногруппникам))) 0

Выбрать работников, у которых средняя зарплата за 2 года больше средней зарплаты всех работников

Решение