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

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

10.06.2010, 00:10. Показов 1482. Ответов 12
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
вот, надо создать программу которая создает файл .dta где содержится список ингридиентов. Потом надо сооздать программу которая читает из этого файла..т.е. 2 проги. Вещества я впишу сам только скажите где...Буду весьма благодарен. Вот сама задача:

Дан фаил F, содержащий сведения о веществах, указывается название вещества, его удельный вес и проводимость(проводник,
полупроводник, изолятор). Найти удельные веса и названия всех полупроводников.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 10.06.2010, 00:10
Ответы с готовыми решениями:

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

Найдите удельные веса и названия всех полупроводников
Народ, помогите с задачей на типизированные файлы - Дан файл f, содержащий сведения о...

Найти удельный вес и названия всех полупроводников
Очень нужна помощь! Можно сразу готовую программу) Про вещество известна информация: название...

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

12
ЧакЭ одобряЭ
285 / 284 / 86
Регистрация: 27.12.2009
Сообщений: 1,767
10.06.2010, 00:23 2
ну там сообственно так вводится в файл(file of <ваше название записи>)
Pascal
1
2
3
4
5
6
7
8
9
10

for i := 1 to n do 
  begin
    with z do
    begin
      readln(nazv);
      readln(ves);
      readln(provodimost);
    end;
    write(f, z);
  end;
1
0 / 0 / 0
Регистрация: 09.06.2010
Сообщений: 12
10.06.2010, 00:26  [ТС] 3
а как написать программу которая будет создавать этот файл??
0
8 / 7 / 9
Регистрация: 17.10.2009
Сообщений: 105
10.06.2010, 00:43 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13

procedure zapis;
begin
 writeln('vvedite imya faila');
 readln(im);
            assign(f,im);
            rewrite(f);
            i:=1;
         while i<=n do begin
            write(f,zap[i]);
            i:=i+1;
            end;
         close(f);
end;
1
0 / 0 / 0
Регистрация: 09.06.2010
Сообщений: 12
10.06.2010, 00:45  [ТС] 5
ага....спасибо....
0
8 / 7 / 9
Регистрация: 17.10.2009
Сообщений: 105
10.06.2010, 00:47 6
могу написать пояснения ели что
0
0 / 0 / 0
Регистрация: 09.06.2010
Сообщений: 12
10.06.2010, 00:48  [ТС] 7
а программу которая читает из созданного файла данные и выводит удельный вес и полупроводники можете написать пожалуйста?
0
ЧакЭ одобряЭ
285 / 284 / 86
Регистрация: 27.12.2009
Сообщений: 1,767
10.06.2010, 01:05 8
Цитата Сообщение от cuhdpom Посмотреть сообщение
а программу которая читает из созданного файла данные и выводит удельный вес и полупроводники можете написать пожалуйста?

Не по теме:

всегда так.напишешь что-то.а потом "а можете ещё вот это сделать?""а можете еще одну задачу решить?"иногда и в личку лезут....

0
8 / 7 / 9
Регистрация: 17.10.2009
Сообщений: 105
10.06.2010, 01:06 9
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

uses crt;
  type tbaz=record
         veshectvo:string;
         massa:integer;
          provodimost:string;
var zap:array [1..100] of tbaz;
procedure sozd_zapysi;
begin
     writeln('vvedite  kol-vo  zapisei:');
     readln(n);
       for i:=1 to n do
          begin
              with zap[i] do
                begin
                 writeln('zapis',i);
                    Writeln('vvedite veshestvo');
                     readln(veshesstvo);
                       Writeln('vvedite ydelnuy massu');
                      readln(massa);
                     Writeln('vvedite provodimost');
                     readln(provodimost);
end;
end;
end;
procedure vivod;
begin
              with zap[i] do
                begin
                 write('____________________________________________________________________________');
                 writeln;
                 write(veshesstvo);
                    writeln;
                   writel(massa);
                  writeln;
                   write(provodimost);
                   writeln;
                   write('____________________________________________________________________________');
end;
end;
procedure zapis;
begin
 writeln('vvedite imya faila');
 readln(im);
            assign(f,im);
            rewrite(f);
            i:=1;
         while i<=n do begin
            write(f,zap[i]);
            i:=i+1;
            end;
         close(f);
end;
procedure schitivanie;
  begin
 n:=0;
 i:=1;
  writeln('vvedite imya faila');
 readln(im);
 assign(f,im);
 reset(f);
  while not eof(f) do begin
            read(f,zap[i]);
             with zap[i] do
             vivod;
            i:=i+1;
            n:=n+1;
            end;
         close(f);
 end;
 
begin
clrscr;
repeat
writeln('viberte deistvie: ');
writeln('1 - vvod zapisei ');
writeln('2 - zapis danix v  fail');
writeln('3 - schitivanie iz faila');
writeln('4- vixod');
readln(ch);
if ch=1 then
  begin
  sozd_zapysi;
  for i:=1 to n do  vivod;
  end;
 if ch=2 then zapis;
if ch=3 then schitivanie;
until ch=4   end.
0
ЧакЭ одобряЭ
285 / 284 / 86
Регистрация: 27.12.2009
Сообщений: 1,767
10.06.2010, 01:13 10
fescar, еще добавьте вывод полупроводников
0
8 / 7 / 9
Регистрация: 17.10.2009
Сообщений: 105
10.06.2010, 01:19 11
всмысле добавить вывод полупроводников?
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

uses crt;
  type tbaz=record
         veshectvo:string;
         massa:integer;
          provodimost:string;
          end;
var zap:array [1..100] of tbaz; n,i:integer; f:file of tbaz; im:string;ch:byte;
procedure sozd_zapysi;
begin
     writeln('vvedite  kol-vo  zapisei:');
     readln(n);
       for i:=1 to n do
          begin
              with zap[i] do
                begin
                 writeln('zapis',i);
                    Writeln('vvedite veshestvo');
                     readln(veshectvo);
                       Writeln('vvedite ydelnuy massu');
                      readln(massa);
                     Writeln('vvedite provodimost');
                     readln(provodimost);
end;
end;
end;
procedure vivod;
begin
              with zap[i] do
                begin
                 write('____________________________________________________________________________');
                 writeln;
                 write(veshectvo);
                    writeln;
                   write(massa);
                  writeln;
                   write(provodimost);
                   writeln;
                   write('____________________________________________________________________________');
end;
end;
procedure zapis;
begin
 writeln('vvedite imya faila');
 readln(im);
            assign(f,im);
            rewrite(f);
            i:=1;
         while i<=n do begin
            write(f,zap[i]);
            i:=i+1;
            end;
         close(f);
end;
procedure schitivanie;
  begin
 n:=0;
 i:=1;
  writeln('vvedite imya faila');
 readln(im);
 assign(f,im);
 reset(f);
  while not eof(f) do begin
            read(f,zap[i]);
             with zap[i] do
             vivod;
            i:=i+1;
            n:=n+1;
            end;
         close(f);
 end;
 
begin
clrscr;
repeat
writeln('viberte deistvie: ');
writeln('1 - vvod zapisei ');
writeln('2 - zapis danix v  fail');
writeln('3 - schitivanie iz faila');
writeln('4- vixod');
readln(ch);
if ch=1 then
  begin
  sozd_zapysi;
  for i:=1 to n do  vivod;
  end;
 if ch=2 then zapis;
if ch=3 then schitivanie;
until ch=4;  end.
тут я просто описал переменные
0
ЧакЭ одобряЭ
285 / 284 / 86
Регистрация: 27.12.2009
Сообщений: 1,767
10.06.2010, 01:23 12
Цитата Сообщение от cuhdpom Посмотреть сообщение
выводит удельный вес и полупроводники
вот ещё что надо.
0
8 / 7 / 9
Регистрация: 17.10.2009
Сообщений: 105
10.06.2010, 01:47 13
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

эээ ну он же в записи прописывает тип вещества и в итоге он на экраэн выдает и тип и вещество и его удельную массу.
или надо написать фильтр чтоб он фильтровал только полупроводники?

Добавлено через 16 минут
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

uses crt;
  type tbaz=record
         veshectvo:string;
         massa:integer;
          provodimost:string;
          end;
var zap:array [1..100] of tbaz; n,i:integer; f:file of tbaz; im:string;ch:byte;
procedure sozd_zapysi;
begin
     writeln('vvedite  kol-vo  zapisei:');
     readln(n);
       for i:=1 to n do
          begin
              with zap[i] do
                begin
                 writeln('zapis',i);
                    Writeln('vvedite veshestvo');
                     readln(veshectvo);
                       Writeln('vvedite ydelnuy massu');
                      readln(massa);
                     Writeln('vvedite provodimost');
                     readln(provodimost);
end;
end;
end;
procedure vivod;
begin
              with zap[i] do
                begin
                 write('____________________________________________________________________________');
                 writeln;
                 write(veshectvo);
                    writeln;
                   write(massa);
                  writeln;
                   write(provodimost);
                   writeln;
                   write('____________________________________________________________________________');
end;
end;
procedure zapis;
begin
 writeln('vvedite imya faila');
 readln(im);
            assign(f,im);
            rewrite(f);
            i:=1;
         while i<=n do begin
            write(f,zap[i]);
            i:=i+1;
            end;
         close(f);
end;
procedure schitivanie;
  begin
 n:=0;
 i:=1;
  writeln('vvedite imya faila');
 readln(im);
 assign(f,im);
 reset(f);
  while not eof(f) do begin
            read(f,zap[i]);
             with zap[i] do
             vivod;
            i:=i+1;
            n:=n+1;
            end;
         close(f);
 end;
 
procedure filtr;
 begin
 for i:=1 to n do
    if zap[i].provodimost = 'polyprovodnic' then
      begin
       vivod;
       i:=i+1;
       end;
 end;
begin
clrscr;
repeat
writeln('viberte deistvie: ');
writeln('1 - vvod zapisei ');
writeln('2 - zapis danix v  fail');
writeln('3 - schitivanie iz faila');
writeln('4- filtr');
writeln('5- vixod');
readln(ch);
if ch=1 then
  begin
  sozd_zapysi;
  for i:=1 to n do  vivod;
  end;
 if ch=2 then zapis;
if ch=3 then schitivanie;
if ch=3 then filtr;
until ch=5;  end.
добавил фильтр чтоб из всех записей выводил только полупроводники
0
10.06.2010, 01:47
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 10.06.2010, 01:47
Помогаю со студенческими работами здесь

Записи. Даны сведения о веществах. Найти удельные веса и названия всех полупроводников
Помогите с задачкой) Даны сведения о веществах: указывается название вещества, его удельный вес...

Найти удельные веса и название всех полупроводников
Дан файл g, содержащий сведения о веществах: название вещества, его удельный вес и проводимость...

Найти удельные веса и названия всех проводников
Дан файл,содержащий сведения о веществах: указывается название вещества,удельный вес,...

Найти удельные веса и названия всех полупроводников
Прошу помощи, нужен код на языке С к данной задаче: Дан файл f, содержащий сведения о веществах:...


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

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

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