Работа с файлами на Паскаль

@rojroyy · Регистрация: 19.10.2016

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

Всем привет, не получается с программой, нужно "Сформировать файл последовательности 15 чисел, в которой каждый i -й компонент определяется по формуле(дана формула)." Но программа создаёт текстовый файл, а в нём вместо цифр всякие каракули. Что делать?

Pascal

uses crt;
var
     f : file of real;
     pi,y,p : real;
     i,x,k : integer;
     a : array[1..100] of real;
Begin
clrscr;
      pi:= 3.14;
      k:=0;
      assign(f , 'kirill.txt');
      rewrite(f);
        for x:=1 to 15 do
             Begin
               write('Введите целое число i = ');
               readln(i);
               if (i<=8) then y:= sin(i*pi/8) else y:= 4*cos(i*(pi+1)/5);
               write(f, y);
               if (y>0) then k:=k+1;
               end;
      close(f);
      writeln('Количество положительных значений: ', k);
end.

@ZX Spectrum-128 · 22.01.2017, 19:13

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

программа создаёт текстовый файл

Не текстовый, а файл вещественных чисел, который текстовым редактором не просматривается. Если писать нужно именно в текстовый, то и создавайте текстовый файл.
Кстати, вопрос: на кой ляд вы каждый раз i вводите?
Условие задания озвучьте корректное.

Добавлено через 3 минуты
Если я правильно понял задание:

Pascal

var
  f: text;
  y: real;
  i, k: integer;
  a: array[1..100] of real;
 
begin
  k := 0;
  assign(f, 'kirill.txt');
  rewrite(f);
  for i := 1 to 15 do
  begin
    if (i <= 8) then 
      y := sin(i * pi / 8) 
    else 
      y := 4 * cos(i * (pi + 1) / 5);
    write(f, y, ' ');
    write(y, ' ');
    if (y > 0) then 
      k := k + 1;
  end;
  close(f);
  writeln;
  writeln('Количество положительных значений: ', k);
end.

	22.01.2017, 19:13