8. ЛАБОРАТОРНАЯ РАБОТА №6 «ТАБУЛИРОВАНИЕ ФУНКЦИЙ»

Цель работы: Сформировать навыки по табулированию функций и формированию из этих данных таблиц, оформленных средствами псевдографики.

13.1 Пример решения задачи на табулирование функции

8.1.1Организация перенаправления ввода-вывода средствами Delphi

Пример 8.1 Составить программу для вычисления значений функции

f (x) = 5 x2 + x −3 на отрезке [а, b] с шагом h. По результатам вычислений по-

строить таблицу и вывести ее в текстовый файл.

Составим систему тестов для a = 1, b = 4, h = 1 (таблица 8.1). Результатом работы нашей программы станет файл, содержащий таблицу рис. 8.1. Исполнение алгоритма показано в таблице 8.2.

Также на данном примере продемонстрирована возможность перенаправления ввода-вывода из стандартных файлов Output и Input, связанных соответственно с монитором и клавиатурой, в другие файлы.

Для справки в таблице 8.3 приведен расширенный ASCII CP-866(DOS).

//Проверка того, что шаг не равен нулю

if h<>0 then break else writeln('Error: h=0') until false;

73

//Перенаправление вывода в файл 'c:\temp\out_table.txt' assign(output,'c:\temp\out_table.txt'); rewrite(output); //Создание нового файла

x:=a;

//Следующие 9 строк нужны для построения шапки таблицы write(chr(201));

for i:=1 to 20 do

if i<>10 then write(chr(205)) else write(chr(203)); writeln(chr(187));

writeln(chr(186),' x ',chr(186),' f(x) ',chr(186)); write(chr(204));

for i:=1 to 20 do

if i<>10 then write(chr(205)) else write(chr(206)); writeln(chr(185));

//Расчет и вывод непосредственно таблицы значений while x<=b do

begin f:=5*x*x+x-3;

writeln(chr(186),x:9:2,chr(186),f:10:2,chr(186));

x:=x+h;

end;

//Следующие 4 строки нужны для завершения таблицы write(chr(200));

for i:=1 to 20 do

if i<>10 then write(chr(205)) else write(chr(202)); writeln(chr(188));

close(output);

end.

Таблица 8.3 ASCII DOS 866

74

Продолжение таблицы 8.3

8.1.2 Организация перенаправления ввода-вывода средствами C#

Пример 8.2 Составить программу для многократного (пока пользователь не нажмет клавишу N или n) формирования текстовых файлов, с возможностью выбора каталога для записи и кодовой страницы. Во все файлы записать таблицу (см. пример).

Данный пример можно дополнить формированием таблицы из примера 8.1, в этом случае вы получите возможность произвести тестирование на множестве примеров без перезапуска программы, по результатам каждого теста будет создан новый текстовый файл типа:

static void table(int number)

{

string filename = dirpath + "\\table_" + number + ".txt";

Console.OpenStandardOutput(), Encoding.GetEncoding(866));

standardOutput.AutoFlush = true;

Console.SetOut(standardOutput);

75

файлов:\n(по умолчанию: {0} нажмите Enter) ", dirpath); s = Console.ReadLine();

if (s.Length > 0)

{

DirectoryInfo DI = new DirectoryInfo(s);

if (DI.Exists) dirpath = s; //Если каталог s

существует, то сохраняем файлы туда

}

Console.Write(@"В какой кодовой странице создать файл? 1-Unicode, 2-ASCII(1251),по умолчанию ASCII(866)

Введите 1 или 2, или нажмите Enter: "); int q = 0;

try

{

q = int.Parse(Console.ReadLine());

}

catch { } switch (q)

{

case 1:

enc = Encoding.Unicode;

s = "Ваш файл будет сохранен в кодовой странице

Unicode";

break; case 2:

enc = Encoding.GetEncoding(1251);

s = "Ваш файл будет сохранен в кодовой странице

Win-1251";

break; default:

enc = Encoding.GetEncoding(866);

s = "Ваш файл будет сохранен в кодовой странице

DOS-866";

76