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

@cuhdpom · Регистрация: 09.06.2010

Студворк — интернет-сервис помощи студентам

вот, надо создать программу которая создает файл .dta где содержится список ингридиентов. Потом надо сооздать программу которая читает из этого файла..т.е. 2 проги. Вещества я впишу сам только скажите где...Буду весьма благодарен. Вот сама задача:

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

@Artishok · 10.06.2010, 00:23

ну там сообственно так вводится в файл(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;

@cuhdpom · 10.06.2010, 00:26 **[ТС]**

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

@fescar · 10.06.2010, 00:43

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;

@cuhdpom · 10.06.2010, 00:45 **[ТС]**

ага....спасибо....

@fescar · 10.06.2010, 00:47

могу написать пояснения ели что

@cuhdpom · 10.06.2010, 00:48 **[ТС]**

а программу которая читает из созданного файла данные и выводит удельный вес и полупроводники можете написать пожалуйста?

@Artishok · 10.06.2010, 01:05

Сообщение от cuhdpom

а программу которая читает из созданного файла данные и выводит удельный вес и полупроводники можете написать пожалуйста?

Не по теме:

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

@fescar · 10.06.2010, 01:06

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.

@Artishok · 10.06.2010, 01:13

fescar, еще добавьте вывод полупроводников

@fescar · 10.06.2010, 01:19

всмысле добавить вывод полупроводников?

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.

тут я просто описал переменные

@Artishok · 10.06.2010, 01:23

Сообщение от cuhdpom

выводит удельный вес и полупроводники

вот ещё что надо.

@fescar · 10.06.2010, 01:47

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

Добавлено через 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.

добавил фильтр чтоб из всех записей выводил только полупроводники

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

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

Решение

Решение

@cuhdpom 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 12

	Найти удельные веса и названия всех полупроводников 10.06.2010, 00:10. Показов 1609. Ответов 12 Метки нет (Все метки) вот, надо создать программу которая создает файл .dta где содержится список ингридиентов. Потом надо сооздать программу которая читает из этого файла..т.е. 2 проги. Вещества я впишу сам только скажите где...Буду весьма благодарен. Вот сама задача: Дан фаил F, содержащий сведения о веществах, указывается название вещества, его удельный вес и проводимость(проводник, полупроводник, изолятор). Найти удельные веса и названия всех полупроводников. 0

@cuhdpom 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 12
	10.06.2010, 00:26 [ТС]
	а как написать программу которая будет создавать этот файл?? 0

@cuhdpom 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 12
	10.06.2010, 00:45 [ТС]
	ага....спасибо.... 0

@fescar 8 / 7 / 9 Регистрация: 17.10.2009 Сообщений: 105
	10.06.2010, 00:47
	могу написать пояснения ели что 0

@cuhdpom 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 12
	10.06.2010, 00:48 [ТС]
	а программу которая читает из созданного файла данные и выводит удельный вес и полупроводники можете написать пожалуйста? 0

@Artishok ЧакЭ одобряЭ 285 / 284 / 86 Регистрация: 27.12.2009 Сообщений: 1,767
	10.06.2010, 01:13
	fescar, еще добавьте вывод полупроводников 0