VPF::Курсовая - Форум программистов

Аброр

Дата 11.5.2006, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.5.2006

Репутация: нет
Всего: нет

Здрасте не поможете написать прогу?
Есть офис сотрудников указаны фамилию,имя,стаж, номер телефона и зароботная платаю
А) Вывести список сотрудников чей стаж не менее 20 лет работы
В) Вывести список сотрудников две первые цифры номера которых одинаковы

Часть А я сделал.

Код


program Kursovaya; 
type group=record                                                             
surname:string[10];                                                           
name:string[10];                                                               
year:integer;                                                                  
money:integer;                                                                 
number:string[7];                                                             
end;                                                                          
var F:file of group;                                                          
G:group; i,n:integer; s:string;                                                
begin                                                                          
    Assign(F,'C:\TP7\kursovaya.pas');                                       
write('Vvedite chislo sotrudnikov');  readln(n); rewrite(F);                   
  For i:=1 to n do begin with G do                                           
begin                                                                         
       readln(surname);                                                       
       readln(name);                                                        
      readln(year);                                                          
    readln(money);                                                         
       readln(number);                                                        
      end;                                                                   
write(F,G); 
   end;                                                                           
reset(F);                                                                      
WHILE NOT EOF (F) do begin                                                     
read (F,G);                                                                  
IF(G.year>=20) then begin                                                      
writeln('Staj raboti ne menee 20 let');                                        
writeln(G.surname);                                                            
writeln(G.name); 
 close(F);end. 
Это первая часть проги которую я смог сделать 
Мне посоветвали сделать
var s:array[1..100];
For i:=1 to n do
s[i]:=copy(G.number,1,2) {записать в массив первые две цифры номера и сравнивать их}

Но я не знаю как сравнивать и как сделать так чтобы выводило фамилии сотрудников чьи номера начинаются с двух первых цифр.
Заранее спасибо!

P.S. И последний вопрос? В паскале есть оператор StrToInt?
Если есть то можно маленький пример??
Спасибо!!

Это сообщение отредактировал(а) Snowy - 11.5.2006, 15:24

Romikgy

Дата 11.5.2006, 14:21 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

Цитата(Аброр @ 11.5.2006, 13:00

)

две первые цифры номера которых одинаковы

тоесть 7710000, или
у первого 333333
у второго 344444
????

Цитата(Аброр @ 11.5.2006, 13:00

)

В паскале есть оператор StrToInt?

Эта функция в дельфи есть в паскале, чет не слыхал,

Код


var i: integer;
begin
i:=StrToInt('135');
end;

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Alexeis

Дата 11.5.2006, 14:38 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459

Аброр, Необходимо пользоваться кнопкой код.
Вместо StrToInt необходимо использовать val

Это сообщение отредактировал(а) alexeis1 - 11.5.2006, 14:43

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »