Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
сержи
6 / 6 / 3
Регистрация: 03.07.2010
Сообщений: 222
1

Описать структуру с именем NOTE

19.12.2010, 15:49. Просмотров 1084. Ответов 1
Метки нет (Все метки)

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
uses crt;
type ZNAK=record 
          fam:string[15];
          nam:string[15];
          zod:string[15];
          roz:array[1..3] of word;
          end;
var a:ZNAK; 
    f:file of ZNAK;
    i,k:integer;
    c:char;  
    ms:word;
begin
clrscr;
assign(f,'zod.dat');
rewrite(f);
repeat  
write('familia: ');readln(a.fam);
write('Imja: ');readln(a.nam);
write('Znak zodiaka: ');readln(a.zod);
writeln('Data rozdenia: ');
repeat  
write('den: ');readln(a.roz[1]);
until (a.roz[1]>0)and(a.roz[1] <=31);
repeat
write('mesjac: ');readln(a.roz[2]);
until (a.roz[2]>0)and(a.roz[2]<=12);
repeat
write('god: ');readln(a.roz[3]);
until (a.roz[3]>=1900)and(a.roz[3]<=2008);
write(f,a); 
c:=readkey; 
until c=#27; 
reset(f); 
clrscr;  
repeat  
write('Vvedite mesjac: ');readln(ms);
until (ms>0)and(ms<=12);
writeln('Informacia o ludjah, rodivshihsja v ',ms,' mesjace:');
writeln;
k:=0; 
while not eof(f) do 
    begin
      read(f,a); 
      if a.roz[2]=ms then 
         begin
           k:=1; 
           writeln(a.fam,'  ',a.nam,'  ',a.zod,'  ',a.roz[1],'.',a.roz[2],'.'
           ,a.roz[3]);
         end;
    end;
if k=0 then write('Rodivshihsja v dannom mesjace net!');
close(f);
readln
end.
Тоже самая задачи, но мне надо описать NOTE и вписать сюда номер телефона
Сама задачя звучит так : Описать структуру с именем NOTE, содержащую следующие поля: фамилия, имя, номер телефона, дата рождения (массив из трёх чисел). Написать программу, выполняющую следующие действия:
Ввод с клавиатуры данных в массив, состоящий из восьми элементов типа NOTE, вывод на экран информации о человеке, чья фамилия введена с клавиатуры. Упорядочить структуры по алфавиту (фамилии).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.12.2010, 15:49
Ответы с готовыми решениями:

Описать запись с именем Note
1 Описать запись с именем Note, содержащую следующие поля: *фамилия, имя...

Описать запись с именем NOTE
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!! описать запись с именем NOTE,содержащую следующие...

Описать запись с именем NOTE
Ребят, прислали задачу, но я, честно, не учил никогда Паскаль. Нужно сделать до...

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

Описать структуру с именем STUDENT
описать структуру с именем STUDENT, содержащую следующие поля: -- NAME -...

1
BabushkaTP
2 / 2 / 5
Регистрация: 21.11.2013
Сообщений: 20
07.02.2014, 12:04 2
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
program zad;
uses crt;
const n=8;
type note=record
          fm:string[20];
          im:string[20];
          tl:string[20];
          dt:array[1..3] of word;
          end;
var sp:array[1..n]of note;
    i,j,f:integer;
    fam:string[20];
    buf:note;
begin
clrscr;
writeln('Введите данные об ',n,' абонентах:');
for i:=1 to n do
  begin
    writeln('Абонент ',i);
    write(' Фамилия: ');readln(sp[i].fm);
    write(' Имя: ');readln(sp[i].im);
    write(' Телефон: ');readln(sp[i].tl);
    writeln(' Дата рождения: ');
    repeat
    write('  день(1..31): ');readln(sp[i].dt[1]);
    until sp[i].dt[1] in [1..31];
    repeat
    write('  месяц(1..12): ');readln(sp[i].dt[2]);
    until sp[i].dt[2] in [1..12];
    repeat
    write('  год(1900..2000): ');readln(sp[i].dt[3]);
    until (sp[i].dt[3]>=1900)and(sp[i].dt[3]<=2000);
  end;
clrscr;
{сортировка массива записей по алфавиту}
for i:=1 to n-1 do
for j:=i+1 to n do
if sp[i].fm>sp[j].fm then
 begin
  buf:=sp[i];
  sp[i]:=sp[j];
  sp[j]:=buf;
 end;
writeln('Список абонентов:':45);
writeln;
writeln('-------------------------------------------------------');
writeln('|   Фамилия   |    Имя    |  Телефон  | Дата рождения |');
writeln('-------------------------------------------------------');
for i:=1 to n do
 begin
  gotoXY(1,whereY);write('| ',sp[i].fm);
  gotoXY(15,whereY);write('| ',sp[i].im);
  gotoXY(27,whereY);write('| ',sp[i].tl);
  gotoXY(39,whereY);
  write('| ',sp[i].dt[1],'.',sp[i].dt[2],'.',sp[i].dt[3]);
  gotoXY(55,whereY); writeln('|');
 end;
writeln('-------------------------------------------------------');
repeat
writeln('Введите фамилию для поиска:');
readln(fam);
f:=0;
for i:=1 to n do
if sp[i].fm=fam then
 begin
   f:=1;
   write(sp[i].fm,' ',sp[i].im,' ',sp[i].tl,' ');
   write(sp[i].dt[1],'.',sp[i].dt[2],'.',sp[i].dt[3]);
 end;
if f=0 then writeln('Такой фамилии нет. Повторите ввод.');
until f=1;
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.02.2014, 12:04

Описать структуру с именем ZNAK
Привет) последняя лаба по Паскалю... please help: Описать структуру с именем...

Описать структуру с именем Group
необходимо описать структуру и написать программу, выручите пожалуйста ...

Описать структуру с именем ZNAK
Описать структуру с именем ZNAK, содержащую следующие поля: 1)Фамилия имя. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru