Работа с файлами: табулирование значений функции

@bogdan 12 · Регистрация: 23.05.2017

Author24 — интернет-сервис помощи студентам

Построить таблицу значений функции y=lg[x^2-2x+3] на отрезке [a,b] з шагом h,найти наименьшее и наибольшее значение функции на заданом промежутке. Все данные вводятся с файла input.txt, и виводятся в файл output.txt. []-модуль. Написать програму паскаль -файлы. Помогите пожалуйста.

@AlexDeSex · 11.06.2017, 12:03

Сообщение от bogdan 12

[]-модуль

Это что?

@Ivandur · 11.06.2017, 16:00

Pascal

assignfile(f,'input.txt');
reset(f);
assignfile(g,'output.txt');
rewrite(g);
read(f,a,b,h);
ln10=ln(10);
while x<=b do
begin
y:=ln(abs(x*x-2x-3))/ln10;
writeln(g,x,' ',y);
end;
close(f);close(g);

примерно так...

@bogdan 12 · 11.06.2017, 19:52 **[ТС]**

не работает

Добавлено через 7 минут
Строка(1) : Встречено 'assignfile', а ожидался раздел описаний или begin

@Zwelenewskiy · 11.06.2017, 20:20

Так работает

Pascal

begin
  
  var a := ReadReal('Введите А: ');
  var b := ReadReal('Введите B: ');  
  var h := ReadReal('Введите шаг: ');  
  
  writeln;
  var y := 0.0;
  while a <= b do
  begin
    y := log10(abs(a * a - 2 * a - 3));
    writeln('A = ', a, '; Y = ', y:0:4);
    a += h;
  end;
  
end.

Добавлено через 23 секунды
Правда, это вариант без файла

Добавлено через 9 минут
С файлами. Полностью рабочий вариант

Кликните здесь для просмотра всего текста

Pascal

var
  f, g: text;
 
begin
  
  assignfile(f, 'input.txt');
  reset(f);
  assignfile(g, 'output.txt');
  rewrite(g);
  
  var a := 0.0; 
  var b := 0.0;
  var h := 0.0; 
  read(f, a, b, h);
  
  writeln;
  var y := 0.0;
  while a <= b do
  begin
    y := log10(abs(a * a - 2 * a - 3));
    writeln('A = ', a, '; Y = ', y:0:4);
    writeln(g, 'A = ', a, '; Y = ', y:0:4);
    a += h;
  end;
  
  close(g);
  
end.

Добавлено через 4 минуты
Чуть-чуть усовершенствованный вариант =)

Кликните здесь для просмотра всего текста

Pascal

var
  f, g: text;
 
begin
  
  if FileExists('input.txt')
    then
    assignfile(f, 'input.txt')
  else begin
    writeln('Входной файл не существует');
    exit;
  end;
  reset(f);
  assignfile(g, 'output.txt');
  rewrite(g);
  
  var a := 0.0; 
  var b := 0.0;
  var h := 0.0; 
  read(f, a, b, h);
  
  writeln;
  var y := 0.0;
  while a <= b do
  begin
    y := log10(abs(a * a - 2 * a - 3));
    writeln('A = ', a, '; Y = ', y:0:4);
    writeln(g, 'A = ', a, '; Y = ', y:0:4);
    a += h;
  end;
  
  close(g);
  
end.

@bogdan 12 · 11.06.2017, 20:22 **[ТС]**

(8 cтрока) : Ошибка времени выполнения: Файл 'C:\PABCWork.NET\input.txt' не найден. - reset f

@Hitoku · 11.06.2017, 20:23

bogdan 12, потому что файл нужно сначала создать

@Zwelenewskiy · 11.06.2017, 20:26

bogdan 12, если бы Вы скомпилировали мой последний вариант,то такой ошибки бы не было))) Да,файл создать нужно

Добавлено через 21 секунду
Значения записывать через пробел в одной строке

@bogdan 12 · 11.06.2017, 20:28 **[ТС]**

что ето значит и как ето сделать?

@Zwelenewskiy · 11.06.2017, 20:29

Сообщение от bogdan 12

что ето значит

Что именно?

@bogdan 12 · 11.06.2017, 20:32 **[ТС]**

скомпилировать код

@volvo · 11.06.2017, 20:33

Pascal

begin
  var arr := ReadAllText('infile.txt').ToReals;
  WriteAllLines('outfile.txt', arr[0].Step(arr[2]).
    TakeWhile(x -> x <= arr[1] + arr[2] / 2).Tabulate(x -> Log10(Abs(Sqr(x) - 2*x + 3))).
    Select(v -> Format('X = {0:N3}; Y = {1:N5}', v[0], v[1])).Println(NewLine).ToArray);
end.

Файл infile.txt, скажем, такой:

Код

1
5
0.2

Или такой:

Код

1 5 0.2

Или такой:

Код

1, 5, 0.2

@Zwelenewskiy · 11.06.2017, 20:35

volvo, как я понял, тут у ТС даже с файлом вопрос. Тогда какая речь о дополнительных расширениях? =))...

@volvo · 11.06.2017, 20:41

Сообщение от Zwelenewskiy

тут у ТС даже с файлом вопрос. Тогда какая речь о дополнительных расширениях?

Мне все равно, с чем у ТС-а затруднения. Еще раз: программы пишутся не для тех, кому надо сдать и забыть. Такие не поймут, да и не и не захотят понимать ничего, хоть им разжуй и в рот положи, и прокомментируй каждую строку кода десятком строк текста. И давайте больше не поднимать эти обсуждения.

Программы выкладываются для тех, кто хочет научиться писать программы. Вот эти, даже если сейчас ничего про расширения не знают - откроют справку и найдут все, что нужно. А вы продолжайте дальше отвечать стандартными кодами на одни и те же вопросы. Это, конечно, поможет многим, особенно вам, продвинуться дальше в программировании. Или всю жизнь будем сидеть на форуме в разделах "Для начинающих" и отвечать на стандартные шаблонные вопросы стандартным же кодом в стиле "Вот так писали наши деды в 1988 на старом и добром Турбо-Паскале"?

@bogdan 12 · 11.06.2017, 20:47 **[ТС]**

та я чтото вобще не могу понять етот паскаль

@Zwelenewskiy · 11.06.2017, 20:48

Я сижу здесь по простой причине: да, я еще новичок, но не против помочь таким же... Я не против расширений - почему? Зная,что у нас многие в школе "изучают" Pascal ABC.Net как простой Паскаль(т.е.,например, даже речи не идет о функции ReadInteger), то в этом разделе пишу без расширений... Вот такая у нас дурь...

@bogdan 12 · 12.06.2017, 17:55 **[ТС]**

или он такой сложный или я 'тупой' или еще чтото

Добавлено через 21 час 5 минут
В интернете ищу как создать файл все равно ничего не получается

Добавлено через 18 секунд
В интернете ищу как создать файл все равно ничего не получается

@ZX Spectrum-128 · 12.06.2017, 18:11

bogdan 12, вы в блокноте наберите данные и файл назовите infile.txt. Скопируйте его в папку c:\PABCWork.NET\

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	11.06.2017, 20:35	13
	volvo, как я понял, тут у ТС даже с файлом вопрос. Тогда какая речь о дополнительных расширениях? =))... 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	11.06.2017, 20:41	14
	Сообщение от Zwelenewskiy тут у ТС даже с файлом вопрос. Тогда какая речь о дополнительных расширениях? Мне все равно, с чем у ТС-а затруднения. Еще раз: программы пишутся не для тех, кому надо сдать и забыть. Такие не поймут, да и не и не захотят понимать ничего, хоть им разжуй и в рот положи, и прокомментируй каждую строку кода десятком строк текста. И давайте больше не поднимать эти обсуждения. Программы выкладываются для тех, кто хочет научиться писать программы. Вот эти, даже если сейчас ничего про расширения не знают - откроют справку и найдут все, что нужно. А вы продолжайте дальше отвечать стандартными кодами на одни и те же вопросы. Это, конечно, поможет многим, особенно вам, продвинуться дальше в программировании. Или всю жизнь будем сидеть на форуме в разделах "Для начинающих" и отвечать на стандартные шаблонные вопросы стандартным же кодом в стиле "Вот так писали наши деды в 1988 на старом и добром Турбо-Паскале"? 0

@bogdan 12 0 / 0 / 0 Регистрация: 23.05.2017 Сообщений: 16
	11.06.2017, 20:47 [ТС]	15
	та я чтото вобще не могу понять етот паскаль 0

@AlexDeSex 199 / 24 / 12 Регистрация: 07.02.2014 Сообщений: 221
	11.06.2017, 12:03	2
	Сообщение от bogdan 12 []-модуль Это что? 0

@bogdan 12 0 / 0 / 0 Регистрация: 23.05.2017 Сообщений: 16
	11.06.2017, 19:52 [ТС]	4
	не работает Добавлено через 7 минут Строка(1) : Встречено 'assignfile', а ожидался раздел описаний или begin 0

@bogdan 12 0 / 0 / 0 Регистрация: 23.05.2017 Сообщений: 16
	11.06.2017, 20:22 [ТС]	6
	(8 cтрока) : Ошибка времени выполнения: Файл 'C:\PABCWork.NET\input.txt' не найден. - reset f 0

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	11.06.2017, 20:23	7
	bogdan 12, потому что файл нужно сначала создать 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	11.06.2017, 20:26	8
	bogdan 12, если бы Вы скомпилировали мой последний вариант,то такой ошибки бы не было))) Да,файл создать нужно Добавлено через 21 секунду Значения записывать через пробел в одной строке 0

@bogdan 12 0 / 0 / 0 Регистрация: 23.05.2017 Сообщений: 16
	11.06.2017, 20:28 [ТС]	9
	что ето значит и как ето сделать? 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	11.06.2017, 20:29	10
	Сообщение от bogdan 12 что ето значит Что именно? 0

@bogdan 12 0 / 0 / 0 Регистрация: 23.05.2017 Сообщений: 16
	11.06.2017, 20:32 [ТС]	11
	скомпилировать код 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	11.06.2017, 20:48	16
	Я сижу здесь по простой причине: да, я еще новичок, но не против помочь таким же... Я не против расширений - почему? Зная,что у нас многие в школе "изучают" Pascal ABC.Net как простой Паскаль(т.е.,например, даже речи не идет о функции ReadInteger), то в этом разделе пишу без расширений... Вот такая у нас дурь... 0

@bogdan 12 0 / 0 / 0 Регистрация: 23.05.2017 Сообщений: 16
	12.06.2017, 17:55 [ТС]	17
	или он такой сложный или я 'тупой' или еще чтото Добавлено через 21 час 5 минут В интернете ищу как создать файл все равно ничего не получается Добавлено через 18 секунд В интернете ищу как создать файл все равно ничего не получается 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	12.06.2017, 18:11	18
	bogdan 12, вы в блокноте наберите данные и файл назовите infile.txt. Скопируйте его в папку c:\PABCWork.NET\ 0