Вычислить значение функции и записать результат в файл

@Poldn · Регистрация: 21.02.2013

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

Вот задание

Ввести N различных значений аргумента X, вычислить для каждого из них
значение выражения f (х) = X² +1 и записать их в текстовый файл.

Комментарий модератора

Poldn, обращаю Ваше внимание на правила форума:
1. Текстовые задания набирайте вручную.
2. Избегайте кричащего выделения текста.
3. Читайте правила форума

@Joker_vad · 02.07.2013, 11:59

Pascal

Program primer;
uses crt;
Var f1:text;
    I,n: integer;
    y,x: integer;
Begin
    Assign(f1, 'file1.txt'); 
    Rewrite(f1);  
  write('Введите количество значений:'); Readln(n); 
    for i:=1 to n do
    begin
        readln(x); 
        y:=sqr(x)+1;
        writeln(f1,y); 
    end;
    close(f1);
    readln;
    end.

	02.07.2013, 11:59

Вычислить значение функции и записать результат в файл

Решение