Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 24.05.2015
Сообщений: 31
1

Программа работает некорректно

05.12.2016, 23:37. Просмотров 336. Ответов 1
Метки нет (Все метки)

Здравствуйте!
Возникла проблема с программой, она работает не так как надо. Нужно из одного типизированного файла переписать в другой числа с точностью до сотых.
После выполнения программы у меня в файле output.txt ничего нет.
Кликните здесь для просмотра всего текста
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
USES
    crt;
VAR
    s: string;
function mantissa_file(str: string): boolean;
var
    file1, file2: file of real;
    r: real;
begin
    {$I-}
    assign(file1, str);
    reset(file1);
    {$I+}
    if ioresult <> 0 then
        mantissa_file := false
    else begin
        assign(file2, 'output.txt');
        rewrite(file2);
        fileMode := 2;
        while (not eof(file1)) do begin
            read(file1, r);
            r := trunc(r*100+0.5)/100;
            write(file2, r);
        end;
        close(file1); close(file2);
        mantissa_file := true;
    end;
end;
BEGIN
    clrscr;
    write('Vvedite polnoe imya faila: '); readln(s);
    while not mantissa_file(s) do begin
        clrscr;
        writeln('ERROR! Pleas repeat!');
        write('Vvedite polnoe imya faila: '); readln(s);
    end;
END.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2016, 23:37
Ответы с готовыми решениями:

Программа работает некорректно. Числа в порядке A>=B>=C
Здравствуйте! Возникла проблема с программой, сейчас предоставлю её код, но она работает немного...

Некорректно работает программа
При создании c1 все еще правильно. При выполнении операторов уже нет. Почему? #include &lt;iostream&gt;...

Программа работает некорректно
Программа находит наиболее часто повторяющийся элемент и выводит его с кол-вом повторений Но...

программа работает некорректно
помогите, пожалуйста. вот задание, а проблему опишу дальше: На железнодорожную сортировочную горку...

1
Модератор
60553 / 45553 / 31440
Регистрация: 18.05.2008
Сообщений: 109,487
06.12.2016, 10:25 2
Программа в принципе неверная.
1. нужно объявить тип типизированного файла
Pascal
1
type tfile=file of real;
2. создать файл программно, и никаких txt, все равно типизированный файл без программы не прочитаете.
3. читать файл и писать новый.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.12.2016, 10:25

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

Некорректно работает программа на С
Все примеры из учебника используют переменные типа int но мне приходится использовать переменные...

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

Некорректно работает программа
Программа вызывает права администратора повторяет цикл 5 раз нужно сделать если админ права...

Некорректно работает программа
Сам код: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes,...


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

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

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