02.03.2013, 21:30 | #1 (permalink) |
Member
Регистрация: 10.05.2012
Сообщений: 20
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ошибка в коде
Код:
program Project2; {$APPTYPE CONSOLE} uses SysUtils,windows; type tmas=array [0..1000] of Real; Procedure Read_file(Var file_name: string); //считывание информации Var i,n,j,Xx:Integer; f:Text; x,y:tmas; s:string; begin Assign(f,file_name); Reset(f); Read(f,n); writeln('Размерность таблицы: ',n); Writeln('Данные'); for i:=0 to n do begin read(f,x[i]); writeln (x[i]:3:2) end; Writeln('Вектор значений функции:'); for j:=0 to n do begin Read(f,y[j]); writeln(y[j]:3:2) end; Read(f,Xx); Writeln('Проверяемое значение аргумента:',Xx); Close(f) end; function proverka(x:Tmas;n:integer):Boolean; var i:Integer; t:Boolean; begin i:=0; t:=true ; while (i<n) and t do begin t:=(x[i]<x[i+1]); inc(i) end; proverka:=t; Writeln(t) end; function proverka1(x:tmas;Xx:real;n:integer):boolean; var t:Boolean; begin t:=((Xx>=X[0])and (Xx<=X[n])); proverka1:=t; Writeln(t); end; var file_name,s:string; F:Text; x:tmas; n:Integer; xx:Real; begin setconsoleoutputcp(1251); setconsolecp(1251); writeln('Введите имя файла'); readln(file_name); file_name:=file_name+'.txt'; Read_file(file_name); proverka(x,n); proverka1(x,xx,n); readln end. |
02.03.2013, 21:30 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пока вам отвечают в тему, советую ознакомиться с аналогичными топиками Помогите исправить ошибку в коде Подскажите, пожалуйста, как решить задачу на Turbo Pascal и что неверно в моем коде Помогите разобраться в исходном коде Ошибка DLL Помогите найти ошибку в коде Помогите, пожалуйста, исправить ошибку в коде |
02.03.2013, 22:14 | #3 (permalink) |
Member
Регистрация: 10.05.2012
Сообщений: 20
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
первая строка количество элементов в массиве.Элементы во второй строке должны быть расположены в порядке строгого возрастания.третья строка-значения функции.четвертая-проверяемое значение,оно должно принадлежать промежутку элементов второй строки
|
02.03.2013, 22:43 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Gabriela, даже и не знаю, чем помочь: у меня в DOS Free Pascal программа запускается и работает на ура. Единственная редактура: выкинуты модули, команды установки шрифтов, а также выводимые сообщения переделаны на английский (с кириллицей там совсем глухо). Результат:
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|