Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
grizzly77
0 / 0 / 0
Регистрация: 14.03.2017
Сообщений: 8
1

Дан файл G, компонентами которого являются вещественные числа

09.05.2017, 10:07. Просмотров 767. Ответов 1
Метки нет (Все метки)

Дан файл G, компонентами которого являются вещественные числа. Найти сумму компонент, расположенных на нечетных позициях файла. Суммой заменить компоненты, лежащие в интервале [-3, 5]. Преобразованный файл распечатать.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2017, 10:07
Ответы с готовыми решениями:

Построить файл данных, компонентами которого являются вещественные числа. Вывести на экран все числа этого фай
Построить файл данных, компонентами которого являются вещественные числа....

Дан файл F, компонентами которого являются действительные числа
Дан файл F, компонентами которого являются действительные числа. Найти разность...

Сформировать файл, компонентами которого являются целые числа, определяемые по формуле
Дано натуральное n. Сформировать файл G, компонентами которого являются целые...

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

Дан файл, компонентами которого являются n-мерные векторы. Векторы с наибольшим модулем перенести в конец файла
Дан файл, компонентами которого являются n-мерные векторы. Векторы с наибольшим...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4207 / 3060 / 3784
Регистрация: 05.06.2014
Сообщений: 15,363
09.05.2017, 11:07 2
Лучший ответ Сообщение было отмечено grizzly77 как решение

Решение

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
const
  n = 10;
 
var
  sum, x: real;
  i: integer;
  g: file of real;
 
begin
  assign(g, 'f.dat');
  rewrite(g);
  for i := 1 to n do
  begin
    x := -n div 2 + random * n;
    write(g, x);
  end;
  reset(g);
  writeLn('Файл G до изменения:');
  while not EOF(g) do
  begin
    read(g, x);
    write(x:8:2);
  end;
  i := 0;
  writeln;
  for i := 0 to filesize(g) - 1 do
  begin
    seek(g, i);
    read(g, x);
    if (i + 1) mod 2 <> 0  then 
      sum := sum + x;
  end;
  writeln('Сумма на нечетных: ', sum:8:2);
  reset(g);
  for i := 0 to filesize(g) - 1 do
  begin
    seek(g, i);
    read(g, x);
    if (x >= -3) and (x <= 5) then
    begin
      seek(g, i);
      write(g, sum);
    end;
  end;
  reset(g);
  writeln('Измененный файл:');
  while not eof(g) do
  begin
    read(g, x);
    write(x:8:2);
  end;
  close(g);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.05.2017, 11:07

Создать файл f, компонентами которого являются символьные массивы
Создать файл f, компоненты которого являются символьные массивы s1...s15....

Задан файл F, компонентами которого являются численные массивы X [15]. Найти минимальные элементы каждого из массивов и вывести в выходной файл.
добрый день. нужен текст программы к задаче в Pascal. Задан файл F,...

Типизированный файл: Создать файл F1, компонентами которого являются "m" одинаковых чисел, а именно "min" элемент из файла F
Создать типизированный файл F, содержащий последовательность целых чисел....


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

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

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