Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/2: Рейтинг темы: голосов - 2, средняя оценка - 4.50
0 / 0 / 2
Регистрация: 21.08.2010
Сообщений: 56
1

Типизированные файлы: поиск элементов с заданными свойствами

23.02.2012, 18:23. Просмотров 473. Ответов 1
Метки нет (Все метки)

А вот вторая с небольшой ошибкой, немогу исправить:
------------------------------------------------------------------------------------
Дан файл , компоненты которого являются дейст¬вительными числами. Найти:
а) наименьшее из значений компонент с четными но¬мерами;
б) сумму квадратов компонент файла f;
в) сумму наибольшего и наименьшего из значений ком¬понент;

------------------------------------------------------------------------------------
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
var
  f:file of real;
  x,minChet,min,max,s:real;
  i:integer;
begin
  assign(f,'1.real');
  reset(f);
  if fileExists('1.real') then
    begin
seek(f,filesize(f));
     end
     else rewrite(f);
 writeln('Содержимое ');
  for i:=1 to filesize(f) do
    begin
      read(f,x);
      write(x:5:1);
    end;
  {минимального компонента с четным номером}
   seek(f,1);
  read(f,x);
  minChet:=x;
  i:=3;
  while i<=filesize(f)-1 do
    begin
      seek(f,i);
      read(f,x);
      if x<minChet then
        minChet:=x;
      inc(i,2);
    end;
  {Поиск суммы квадратов}
  s:=0;
  seek(f,0);
  while not eof(f) do
    begin
      read(f,x);
      s:=s+sqr(x);
    end;
  {Поиск суммы мин и макс компонента}
  seek(f,0);
  read(f,x);
  min:=x;max:=x;
  while not eof(f) do
    begin
      read(f,x);
      if x>max then
        max:=x
      else if x<min then
        min:=x;
    end;
  close(f);
  {Результаты}
  writeln;
  writeln('Min komp s chet nomerom=',minChet:0:1);
  writeln('Summa kvadratov komp faila=',s:0:1);
  writeln('Summa min i max komp faila=',min+max:0:1);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.02.2012, 18:23
Ответы с готовыми решениями:

Поиск элементов последовательности с заданными свойствами, 5 задач
1.Определить порядковый номер элемента последовательности 2^1 , 2^2 , 2^3 ....2^n, значение...

Списки. массивы. Поиск элементов с заданными свойствами
Задан список 7 служащих, составленный по представленной ниже форме. Заполнить этим данным 4...

Массив и матрица: поиск элементов с заданными свойствами
Дана матрица 4на5 заполненная случайными числами из диапазона от -10 до 20 . 1) найти сумму...

Двумерные массивы. Поиск элементов с заданными свойствами
3. Дан двухмерный массив. Вывести на экран: а) все элементы второго столбца массива; б) все...

1
38 / 38 / 29
Регистрация: 18.10.2011
Сообщений: 91
23.02.2012, 21:39 2
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
Uses crt;
Var f:file of real;
    a,max,summ,min,min1:real;
    i,r:integer;
Begin
 assign(f,'c:\file_vech_chisla.dat');
 reset(f);
 r:=filesize(f);a:=0; Writeln('Ñîäåðæèìîå ôàéëà:');
 For i:=1 to r-1 do
 begin
  read(f,a);Write(a,' ');
  If i=1 then begin max:=a;min:=a;end;
  If a>=max then max:=a;
  If a<=min then min:=a;
  If (a<=min)and(i mod 2=0) then min1:=a;
  summ:=summ+sqr(a);
 end;
 a:=min+max;Writeln;
 Writeln('íàèìåíüøåå èç çíà÷åíèé êîìïîíåíò ñ ÷åòíûìè íîìåðàìè=',min1);
 Writeln('ñóììà êâàäðàòîâ êîìïîíåíò ôàéëà =',summ:0:4);
 Writeln('ñóììà íàèáîëüøåãî è íàèìåíüøåãî èç çíà÷åíèé êîìïîíåíò =',a);
 close(f);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.02.2012, 21:39

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

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

Двумерные массивы. Поиск и замена элементов с заданными свойствами
1) Дан двумерный массив А, размером 5 на 5. Массив заполнен нулями и единицами. Посчитать...

Поиск элементов с заданными свойствами, арифметические действия с элементами массива
Создать одномерный массив размерностью 10. Заполнить его генератором случайных чисел це- лыми...

Массив: поиск элементов с заданными свойствами, арифметические действия с элементами
Помогите пожалуйста, не где не могу найти программу целиком!!!)))Буду очень благодарна) В...


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

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

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