Обрезанная информация

[guroDragon]

Всем привет.
Вот такая вот проблема, задача стоит - вывести на экран значение функции в виде таблицы, там 20 значений. Например есть функция, несколько переменных вводит пользователь, а икс изменяется от 1 до 3 с шагом 0.1. Вот мне надо вывести. Получается 20 значений, но при выводе Паскаль обрезает их и получается не от 1.0 до 3.0, а от 1.9 до 3.0
Хотя иногда выводится и вся таблица. В чем проблема?
Спасибо.

[Vanta11a]

Приведите Ваш код, пожалуйста. И воспользуйтесь тегом code (вот такая картинка: )

[guroDragon]

program Lab5;
uses crt;
var
vuxod:integer;
x,a,b,c,res:real;
read:char;
function func1(x:real;a:real;b:real;c:real;res:real):real;
begin
        res:=0;
        res:=a*cos(x)-b+c;
        func1:=res;
end;
procedure timer;
begin
        writeln('Предупреждение:');
        writeln('Откройте окошко как можно больше, что бы не потерять значения в таблице');
        writeln;
        writeln('    4');
        delay(1000);
        clrscr;
        writeln('Предупреждение:');
        writeln('Откройте окошко как можно больше, что бы не потерять значения в таблице');
        writeln;
        writeln('    3 ');
        delay(1000);
        clrscr;
        writeln('Предупреждение:');
        writeln('Откройте окошко как можно больше, что бы не потерять значения в таблице');
        writeln;
        writeln('    2 ');
        delay(1000);
        clrscr;
        writeln('Предупреждение:');
        writeln('Откройте окошко как можно больше, что бы не потерять значения в таблице');
        writeln;
        writeln('    1 ');
        delay(1000);
        clrscr;
        end;
procedure info;
begin
        clrscr;
        writeln('Инфа о проге и студенте ');
        end;
begin
        repeat
        vuxod:=0;
        info;
        read:=readkey;
        clrscr;
        case read of
        #27:    break;
        #13:    begin
                while vuxod<>1 do begin
                {$I-}
                writeln('Введите значение переменных A, B, C');
                readln(a,b,c);
                clrscr;
                {$+}
                if IOResult=0 then vuxod:=1
                else begin
                        writeln('Неверная переменная');
                        vuxod:=0;
                        end;
                end;
                clrscr;
                timer;
                Writeln('------------------------------------------------');
                writeln('|Значение функции в интервале [1..3]. Шаг = 0.1|');
                Writeln('------------------------------------------------');
                Writeln('|       Argument        |       Function       |');
                writeln('------------------------------------------------');
                x:=1;
                while x<=3  do
                        begin
                        writeln('|          ',x:2:1,'          |',func1(x,a,b,c,res):22:2,'|');
                        writeln('------------------------------------------------');
                        x:=x+0.1;
                        end;
                writeln('                        Выйти из программы - Escape.');
                writeln('          Вернутся в начало - любая другая клавиша.');
                end
        else    begin
                writeln('Информация о программе: ');
                writeln('Данная программа вычисляет значения функции в интервале [1..3]');
                writeln('с шагом 0.1 и выводит результат в виде таблицы');
                writeln;
                writeln('                        Выйти из программы - Escape.');
                writeln('          Вернутся в начало - любая другая клавиша.');
                end;
        end;
        until readkey=#27;
end.

Прошу.

[guroDragon]

Я тут заметил, если сначала открывать файл .pas и окошко открывать не на весь размер, а сделать обрезным, то когда запускается програ, то таблица не режется, то бишь скролить вверх, вниз можно, а если паскаль открыть на весь экран и запустить прогу, то скролить нельзя, просто таблица обрежется. Ну а если открыть сразу екзешник, то таблица будет срезана.

[Vanta11a]

Криминала в коде вывода таблицы не вижу.
Попробуйте ради интереса уменьшить число выводимых значений до 10, потом постепенно увеличивать. Если в какой-то момент таблица начнет "обрезаться" - значит особенности вывода паскаля. Как вариант - попробовать сменить его на Pacal ABC.Net и посмотреть, что получится.

[Arigato]

function func1(x:real;a:real;b:real;c:real;res:real):real;
begin
        res:=0;
        res:=a*cos(x)-b+c;
        func1:=res;
end;

О локальных переменных не слышали? Да и что это за игры с переменной res?

[Serge_Bliznykov]

guroDragon, либо уходите от TurboPascal (в сторону Delphi или FPC, например)
либо изменяйте процедуру вывода (уберите разделение строк в таблице, выводите в несколько столбцов или после вывода очередной порции (заполнения экрана, просите для продолжнения "press any key"... )



p.s. кроме того, я не смог понять назначение этого куска кода:

while vuxod<>1 do begin
                {$I-}
                writeln('Введите значение переменных A, B, C');
                readln(a,b,c);
                clrscr;
                {$I+}
                if IOResult=0 then vuxod:=1
                else begin
                        writeln('Неверная переменная');
                        vuxod:=0;
                        end;
                end;