Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
3 / 3 / 3
Регистрация: 03.12.2011
Сообщений: 55
1

Отформатировать таблицу, дело на 5 минут

05.04.2012, 23:19. Показов 776. Ответов 1
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Помогите отформатировать таблицу в этой программе.
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128

Program baza;
Uses crt;
label 10;
type spisok=record
     imjagr:string;
     isp:string;
     pes:string;
     dis:string;
     end;
FT= file of spisok;
Var a:ft;
    i,z:integer;
    s:real;
Procedure Sozd (var a:ft);
Var i,j:integer;
    zk:spisok;
begin
rewrite (a);
j:=1;
 while j<>80 do
          begin
          write ('vvedite nazvanie gryppu ');
          readln (zk.imjagr);
          write ('Vvedite ispolnitelya ');
          readln (zk.isp);
          write ('vvedite nazvanie pesni ');
          Readln (zk.pes);
          write ('vvedite nazvanie diska ');
          readln (zk.dis);
          write (a,zk);
          writeln ('Esli konec zapisi to nazhmite 80 ');
          readln (j);
          end;
close (a);
end;
Procedure vyvod (var a:ft);
Var i:integer;
    zk:spisok;
begin
reset (a);
 writeln ('=======================================');
 writeln ('| Gryppa | Ispolnitel | Pesnya | Disk |');
 writeln ('=======================================');
  while not eof(a) do
   begin
    read (a,zk);
    write ('|',zk.imjagr:6,'|');
    write ('',zk.isp:6,'|');
    write ('|',zk.pes:6,'|');
    write ('|',zk.dis:6,'|');
    writeln;
    writeln ('---------------------------------------');
   end;
close (a);
end;
procedure delete (var a:ft);
Var n,m:longint;
      i:byte;
      mas:array [1..20] of spisok;
begin
 i:=1;
 reset(a);
 writeln ('vvedite nomer zapisi dlja udalenija ');
 readln(n);
 m:=filesize(a)-n;
 seek (a,n);
 while not eof(a) do
           begin
            read (a,mas[i]);
            i:=i+1;
           end;
 close (a);
 reset (a);
 seek (a,n-1);
 truncate (a);
 close (a);
 reset (a);
 seek (a,n-1);
  for i:=1 to m do
   write (a,mas[i]);
end;
Procedure poisk (var a:ft);
var i:integer;
    zk:spisok;
    name:string;
begin
reset (a);
 writeln ('Vvedite imja dlja poiska ');
 readln (name);
 writeln ('spisok s zadannym imenem ');
 writeln ('=======================================================');
 writeln ('| Gryppa  |  Ispolnitel  |     Pesnya   |    Disk     |');
 writeln ('=======================================================');
 while not eof(a) do
 begin
  read (a,zk);
  if zk.imjagr=name then
  begin
    write ('|1',zk.imjagr:6,'1|');
    write ('|2',zk.isp:9,'2|');
    write ('|3',zk.pes:6,'3|');
    write ('|4',zk.dis:9,'4|');
    writeln;
    writeln ('----------------------------------------------------');
  end;
 end;
close(a);
end;
begin
clrscr;
10:
assign (a,'fff');
writeln ('       MEHIO      ');
writeln ('1:cozdanie ');
writeln ('2:vyvod ');
writeln ('3:delete ');
writeln ('4:poisk ');
writeln ('5:vyxod ');
readln (z);
 case z of
  1:sozd(a);
  2:vyvod (a);
  3:delete(a);
  4:poisk (a);
  5:exit;
  end; goto 10;
readln
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 05.04.2012, 23:19
Ответы с готовыми решениями:

20 минут выключается ноутбук!! в чем дело?
Дорова всем! я тут снес Висту на Dell 1520 и поставили ХР, установил все дрова, косяк вылез в том...

Как отформатировать таблицу DataTables?
При разработке страницы использовал плагин DataTables.Вот ссылка на страничку...

Как отформатировать в Worde таблицу с уже введенными данными
Помогите кто-нить! Как отформатировать в Worde таблицу с уже введенными данными так, чтобы перенос...

Нужно на VBA добавлять в определенную позицию в word-е таблицу с текстом и отформатировать ее
Добрый день. У меня задача из 1С создать word-ский документ на основании шаблона. 1С умеет работать...

1
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
05.04.2012, 23:50 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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128

Program baza;
Uses crt;
label 10;
type spisok=record
     imjagr:string[10];
     isp:string[10];
     pes:string[15];
     dis:string[10];
     end;
FT= file of spisok;
Var a:ft;
    i,z:integer;
    s:real;
Procedure Sozd (var a:ft);
Var i,j:integer;
    zk:spisok;
begin
rewrite (a);
j:=1;
 while j<>80 do
          begin
          write ('vvedite nazvanie gryppu ');
          readln (zk.imjagr);
          write ('Vvedite ispolnitelya ');
          readln (zk.isp);
          write ('vvedite nazvanie pesni ');
          Readln (zk.pes);
          write ('vvedite nazvanie diska ');
          readln (zk.dis);
          write (a,zk);
          writeln ('Esli konec zapisi to nazhmite 80 ');
          readln (j);
          end;
close (a);
end;
Procedure vyvod (var a:ft);
Var i:integer;
    zk:spisok;
begin
reset (a);
 writeln ('=========================================================');
 writeln ('|   Gryppa   | Ispolnitel |     Pesnya     |    Disk    |');
 writeln ('=========================================================');
  while not eof(a) do
   begin
    read (a,zk);
    write ('|',zk.imjagr:11,'|':2);
    write ('',zk.isp:11,'|':2);
    write ('|',zk.pes:15,'|':2);
    write ('|',zk.dis:11,'|':2);
    writeln;
    writeln('---------------------------------------------------------');
   end;
close (a);
end;
procedure delete (var a:ft);
Var n,m:longint;
      i:byte;
      mas:array [1..20] of spisok;
begin
 i:=1;
 reset(a);
 writeln ('vvedite nomer zapisi dlja udalenija ');
 readln(n);
 m:=filesize(a)-n;
 seek (a,n);
 while not eof(a) do
           begin
            read (a,mas[i]);
            i:=i+1;
           end;
 close (a);
 reset (a);
 seek (a,n-1);
 truncate (a);
 close (a);
 reset (a);
 seek (a,n-1);
  for i:=1 to m do
   write (a,mas[i]);
end;
Procedure poisk (var a:ft);
var i:integer;
    zk:spisok;
    name:string;
begin
reset (a);
 writeln ('Vvedite imja dlja poiska ');
 readln (name);
 writeln ('spisok s zadannym imenem ');
 writeln ('=========================================================');
 writeln ('|   Gryppa   | Ispolnitel |     Pesnya     |    Disk    |');
 writeln ('=========================================================');
 while not eof(a) do
 begin
  read (a,zk);
  if zk.imjagr=name then
  begin
    write ('|',zk.imjagr:11,'|':2);
    write ('|',zk.isp:11,'|':2);
    write ('|',zk.pes:15,'|':2);
    write ('|',zk.dis:11,'|':2);
    writeln;
    writeln('---------------------------------------------------------');
  end;
 end;
close(a);
end;
begin
clrscr;
10:
assign (a,'fff');
writeln ('       MEHIO      ');
writeln ('1:cozdanie ');
writeln ('2:vyvod ');
writeln ('3:delete ');
writeln ('4:poisk ');
writeln ('5:vyxod ');
readln (z);
 case z of
  1:sozd(a);
  2:vyvod (a);
  3:delete(a);
  4:poisk (a);
  5:exit;
  end; goto 10;
readln
end.
1
05.04.2012, 23:50
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 05.04.2012, 23:50
Помогаю со студенческими работами здесь

Сделал таблицу, но выдаёт ошибку, можете подсказать в чём дело, разибирался так и не понял
SQL query: CREATE TABLE `fonline`.`pid` ( `name` CHAR( 0 ) CHARACTER SET utf8 COLLATE...

Предприниматель, начав дело, взял кредит размером k рублей под p процентов годовых и вложив его в свое дело. По прогноза
Предприниматель, начав дело, взял кредит размером k рублей под p процентов годовых и вложив его в...

Получить таблицу значений температуры конфорки при равномерном изменении времени от 0 до 12 минут с шагом 30 секунд
Как это сделать: 1) математическую постановку задачи, а именно - ввести обозначения переменных;...

Поезд находился в пути С часов и М минут. Сколько минут длилась поездка
помогите пожалуйста!! 1)Поезд находился в пути С часов и М минут. Сколько минут длилась поездка?...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru