Vladimir_S

Прикину на досуге. Пока некогда.

Мало информации. Нужна исходная база данных по работникам предприятия. В каком она виде? Таблица? Массив записей? Или ее нужно тоже формировать самостоятельно?

Эту давайте-ка самостоятельно. Детский сад.

Бракс

2)Среди работников данного предприятия найти тех, чья заработная плата за месяц ниже средней по предприятию, а также распечатать список тех, кто проработал на предприятии более 10 лет, с указанием их фамилии, зарплаты, стажа работы и должности.

Мало информации. Нужна исходная база данных по работникам предприятия. В каком она виде? Таблица? Массив записей? Или ее нужно тоже формировать самостоятельно?

Самому нужнно вводить зароботную плату и через эти данные нужно найти среднию!!!
вот я начал был решать и неполучаеться и одного условия нет!!! вот примерно псмотрите!!!
program vtoroiBlok;
const n=10;
type pa6otnik=record
famili9:string[20];
zarplata:integer;
cTa>|<_pabotb|:integer;
DoJI>|<Hoctb:string[10];
end;
mas=array[1..n] of pa6otnik;
var
v:mas;
i,k,nn:integer;
{s:string;}
begin
write('Vvedute kol=');
readln(nn);
for i:=1 to nn do
begin
write('vvedite famili9 ',i,' pa6otnik='); readln(v[i].famili9);
write('vvedite zarplata ',i,' pa6otnik='); readln(v[i].zarplata);
write('vvedite cTa>|<_pabotb| ',i,' pa6otnik
='); readln(v[i].cTa>|<_pabotb|);
write('vvedite DoJI>|<Hoctb ',i,' pa6otnik='); readln(v[i].DoJI>|<Hoctb);
end;
write('kotorb|e pabotali bolee 10 let ');
{readln(s); }
k:=0;
for i:=1 to nn do
if v[i].cTa>|<_pabotb|='10' then begin with v[i] do begin
write(i,' ',famili9,' ');
writeln(zarplata,' ');
writeln(cTa>|<_pabotb|,' ');
writeln(DoJI>|<Hoctb,' ');
end;
k:=k+1; end;
write('Kol-vo pabotnikov ctaj rabotb| bolee 10 let =',k);
readln;
end.

Vladimir_S

Так, ну сразу видно - в 10-й снизу строке 2 ошибки:
1. Почему условие равенства? Надо ">".
2. Стаж работы вы задали, как INTEGER-тип, а не STRING, а поэтому брать 10 в кавычки - ошибка.
Отсюда условие должно быть таким:
if v[i].cTa>|<_pabotb|>10 then
Но, между прочим, всё равно будет сообщение об ошибке! Потому что у Вас, скажем так, весьма своеобразные идентификаторы. Ну как, скажите, бедному компьютеру разобраться, какой из знаков "<", ">" относится к условию, а какой описывает русскую букву "ж"? Поэтому уберите-ка все значки типа "<", ">", "|" из идентификаторов переменных и постарайтесь обойтись обычным транслитом. Выпендреж до добра не доведет.
В остальном вроде всё верно.
Дальше нужно прокрутить еще пару аналогичных циклов. Первый - чтобы определить среднюю зарплату, второй - чтобы выявить низкооплачиваемых работников. Нужно будет ввести переменную средней зарплаты.

Vladimir_S

VAR
f,f1,f2:TEXT;
S,Sh_Word:STRING;
Sh_Lng:BYTE;
Sh_Num:WORD;
Ch:Char;
BEGIN
Assign(f,'D:\Txt');
ReSet(f);
Assign(f1,'D:\TTT');
ReWrite(f1);
Assign(f2,'D:\TXX');
ReWrite(f2);
REPEAT
Read(f,Ch);
IF (Ch=' ') OR (Ch='.') OR (Ch=',') OR (Ch='!') OR (Ch='?')
OR (Ch=':') OR (Ch=';') OR (Ch='(') OR (Ch=')') OR (Ch='-')
THEN Writeln(f1) ELSE Write(f1,Ch);
UNTIL EoF(f);
Close(f);
Close(f1);
ReSet(f1);
REPEAT
Readln(f1,S);
IF S<>'' THEN WriteLn(f2,S);
UNTIL EoF(f1);
Close(f1);
Close(f2);
ReSet(f2);
Sh_Lng:=255;
REPEAT
Readln(f2,S);
IF Length(S)<Sh_Lng THEN
BEGIN
Sh_Lng:=Length(S);
Sh_Word:=S;
END;
UNTIL EoF(f2);
ReSet(f2);
Sh_Num:=0;
REPEAT
Readln(f2,S);
IF S=Sh_Word THEN INC(Sh_Num);
UNTIL EoF(f2);
Close(f2);
Erase(f1);
Erase(f2);
Writeln('The shortest word "',Sh_Word,'" is ',Sh_Num,' times recurred');
Readln;
END.

shutti

Vladimir_S , большое спосибо .

Бракс

Vladimir_S: Спасибо большое за предыдущую подсказку у меня получилось!!!
Помоги пожалуйста решить с файлами еще, воопще файлы плохо знаю(((
1)Дан файл, содержащий текст, и некоторые буквы. Найти слово, содержащее наибольшее количество указанных букв.
За ранее очень очень благодарен!!!

Vladimir_S

Вот как-то так:

CONST
Let:ARRAY[1..4] of CHAR= ('а', 'е', 'и', 'ф');
VAR
f,f1,f2:TEXT;
S,Rich_Word:STRING;
i,j,k:INTEGER;
L_Num:WORD;
Ch:Char;
BEGIN
Assign(f,'D:\Txt');
ReSet(f);
Assign(f1,'D:\TTT');
ReWrite(f1);
Assign(f2,'D:\TXX');
ReWrite(f2);
REPEAT
Read(f,Ch);
IF (Ch=' ') OR (Ch='.') OR (Ch=',') OR (Ch='!') OR (Ch='?')
OR (Ch=':') OR (Ch=';') OR (Ch='(') OR (Ch=')') OR (Ch='-')
THEN Writeln(f1) ELSE Write(f1,Ch);
UNTIL EoF(f);
Close(f);
Close(f1);
ReSet(f1);
REPEAT
Readln(f1,S);
IF S<>'' THEN WriteLn(f2,S);
UNTIL EoF(f1);
Close(f1);
Close(f2);
ReSet(f2);
L_Num:=0;
REPEAT
Readln(f2,S);
k:=0;
FOR i:=1 TO Length(S) DO
FOR j:=1 TO 4 DO
IF S[i]=Let[j] THEN INC(k);
IF k>L_Num THEN
BEGIN
L_Num:=k;
Rich_Word:=S;
END;
UNTIL EoF(f2);
Close(f2);
Erase(f1);
Erase(f2);
Writeln('The word "',Rich_Word,'" contains ',L_Num,' letters on payroll');
Readln;
END.

shutti

Не решаеться вообще

Vladimir_S

Извините, но задача настолько простая, что даже не интересно. И чему тут "не решаться"? Правда, я не очень понимаю, зачем нужна подпрограмма и куда ее воткнуть, но если по-простому, то:

VAR
SUM, Quantity:REAL;
Number:WORD;
BEGIN
Number:=0;
SUM:=0;
REPEAT
Write('Next quantity ');
Readln(Quantity);
IF Quantity<0 THEN
BEGIN
SUM:=SUM+Quantity;
Number:=Number+1;
Writeln(Number);
Writeln('Sum = ',SUM);
END;
UNTIL Quantity>0;
Writeln('Data input is finished');
Readln;
END.

Всё!!!

Саня111

1 задача. Сформировать запись, имеющую следующую структуру
type предмет=record
название:string; количество часов:integer; преподаватель:string; кафедра:string; форма отчетностизачет,экзамен); end;
и определить:
o преподавателя, у которого самое большое количество часов;
o список предметов, по которым сдают экзамен;
o кафедру и преподавателя, который ведет данный предмет.
2 задача. Составить программу, выводящую на экран инвентаризационную ведомость (инвентаризационный номер, наименование, дата учета)
3 задача. Определить и вывести на экран множество символов входящих одновременно в имя, отчество, и фамилию, введённые с клавиатуры