Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 1
Регистрация: 25.04.2013
Сообщений: 17
1

Выбрать данные о проводниках и упорядочить их по убыванию удельного веса

31.05.2013, 20:42. Просмотров 1978. Ответов 1
Метки нет (Все метки)

Создать файл f. содержащий сведения о веществах: название вещества, его удельный вес, проводимость (проводник, полупроводник, изолятор). выбрать данные о проводниках и упорядочить их по убыванию удельных весов
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.05.2013, 20:42
Ответы с готовыми решениями:

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

Типизированные файлы. Выбрать данные о проводниках и упорядочить их по убыванию удельных весов
Дан файл F, содержащий сведения о веществах указывается название вещества, его удельный вес и...

Выбрать данные о проводниках с заданным удельным весом
Помогите пожалуйста Дан файл f, содержащий сведения о веществах: 1) название 2) удельный вес...

Дан файл f, содержащий сведения о веществах. Выбрать данные о проводниках с заданным удельным весом
Дан файл f, содержащий сведения о веществах: 1) название 2) удельный вес 3) проводимость...

1
219 / 217 / 218
Регистрация: 03.07.2012
Сообщений: 458
01.06.2013, 12:44 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
program recfile;
{Создать файл f. содержащий сведения о веществах: название вещества, его удельный вес, проводимость 
(проводник, полупроводник, изолятор). 
выбрать данные о проводниках и упорядочить их по убыванию удельных весов}
uses
  crt;
type
  InfSub = record
  NameS : string[20];
  SpGr : real;
  conduct : (provodnik, poluprovodnik, izolyator);
  end;
var
  f : file of InfSub;
  a, b : InfSub;
  s : string[1];
  i,j : word;  
begin
  clrscr;
  assign(f,'FileRec.dat');
  rewrite(f);
  repeat
   write('Название вещества : ');
   readln(a.NameS);
   write('Удельный вес : ');
   readln(a.SpGr);
   write('Проводимость (provodnik, poluprovodnik, izolyator) : ');
   readln(a.conduct);
   write(f,a);
   write('Продолжить : y/n '); readln(s);
  until s='n';
  reset(f);
  writeln('Название вещества':18,'  Удельный вес':14,'  Проводимость':15);
  while not eof(f) do begin
    read(f,a);
    writeln(a.NameS:18,a.SpGr:14:3,'   ',a.conduct:15); 
    end;
  writeln;  
  for i := 1 to filesize(f)-1 do
    for j := 1 to filesize(f)-i do begin
    seek(f,j-1); read(f,a,b);
      if a.SpGr<b.SpGr then
       begin
        seek(f,j-1);
        write(f,b,a);
       end;
       end;
  writeln('Данные о проводниках, упорядоченных по убыванию удельных весов :');       
  reset(f);
  writeln('Название вещества':18,'  Удельный вес':14,'  Проводимость':15);
  for i := 1 to filesize(f) do begin
    read(f,a);
    if a.conduct=provodnik then writeln(a.NameS:18,a.SpGr:14:3,'   ',a.conduct:15); 
    end;
  close(f);
  readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2013, 12:44

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Структуры: упорядочить список пассажиров по убыванию веса багажа, вывести в табличной форме
Данные о пассажирах включают фамилию пассажира номер места и общий вес багажа. Упорядочить список...

Выбрать элементы большие среднего арифметического и упорядочить получившийся массив по убыванию
Как можно заменить строчки с 8 по 12? Дан массив x1, x2,..., x20. Выбрать элементы большие...

Выбрать элементы массива, большие среднего арифметического, и упорядочить получившийся массив по убыванию
Дан массив x1, x2,..., x20. Выбрать элементы большие среднего арифметического и упорядочить...

Выбрать элементы массива, большие среднего арифметического, и упорядочить получившийся массив по убыванию
Дан массив x1, x2,..., x20. Выбрать элементы большие среднего арифметического и упорядочить...


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

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

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