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

Работа с файлами. Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты

05.06.2012, 10:34. Показов 1020. Ответов 1
Метки нет (Все метки)

Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты.
Что здесь не правильно?
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
var
  f: file of real;
  i: integer;
  k, k1: real;
 
 
begin
  assign(f, 'Файл вещественных чисел.dat');
  rewrite(f);
  repeat
    readln(k);
    write(f, k);
  until k = 0; //0 будет в конец записываться
  close(f);
  reset(f);
  while not eof(f) do 
  begin
    read(f, k);
    write(k, ' ');
  end;
  close(f);
  reset(f);
  for i := 0 to filesize(f) - 1 do 
  begin
    seek(f, i);
    read(f, k);
    k1 := sqr(k);
    seek(f, i);
    write(f, k1);
  end;
  close(f);
  writeln;
  reset(f);
  while not eof(f) do 
  begin
    read(f, k);
    write(k, ' ');
  end;
  close(f);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2012, 10:34
Ответы с готовыми решениями:

Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты
Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты.

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

Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты
Задача 8. Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты.

Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты
3) Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты.

__________________
1
22 / 22 / 16
Регистрация: 30.05.2012
Сообщений: 41
06.06.2012, 13:55 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
var f,fh:file of real;
    a:real;
    k:char;
    
    begin
    Assign(f, 'c:\file.txt');rewrite(f);
    repeat
    WriteLn('Введите число для записи в файл:');
    ReadLn(a);
    Write(f,a);
    WriteLn('Ввести еще число?(y\n)');
    readLn(k);
    until(k='n');
    close(f);
    Assign(f, 'c:\file.txt');Reset(f);
    Assign(fh, 'c:\file1.txt');Rewrite(fh);
    While not eof(f) do begin
    Read(f,a);
    a:=sqr(a);
    Write(fh,a);
    end;
    Close(f);Close(fh);
    Assign(f, 'c:\file.txt');Reset(f);
    Assign(fh, 'c:\file1.txt');Reset(fh);
    WriteLn('Исходные числа:');
    While not eof(f) do begin
    Read(f,a);
    Write(a:10:3, ' ');
    end;
    WriteLn();
    WriteLn('Квадраты чисел:');
    While not eof(fh) do begin
    Read(fh,a);
    Write(a:10:3, ' ')
    end;
    Close(f);Close(fh);
    Erase(f);
    Rename(fh, 'c:\file.txt');
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2012, 13:55

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

Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты
Текст задачи:Дан файл вещественных чисел.Заменить в нем все элементы на их квадраты В чем ошибка...

Дан файл вещественных чисел, заменить в нем все элементы на их квадраты
Дан файл вещественных чисел.Заменить в нем все элементы на их квадраты.Заменить в нем все элементы...

Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты
Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты.

Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты
Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты. на Си. Спасибо)


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

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

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