Множество компьютеров ,соедененых линиями передачи информации,-это:

Question

Информатика: Множество компьютеров ,соедененых линиями передачи информации,-это:

КирилБадабумшик · Accepted Answer

Давайте сделаем так:
Опишем 4 функции в программе. Когда надо - вытащим нужную... ОК?

uses Crt;
var x1, x2 , dx, y: real;
    i: integer;
function f1 (x:real):real;
begin
   f1:=2*x;
end;

function f2 (x: real):real;
begin
   f2:=x/3+9;
end;

function f3 (x:real):real;
begin
f3:=x-4;
end;

function f4 (x: real):real;
begin
f4:=x/8-6;
end;

begin
ClrScr;
Write(' x1 = '); ReadLn(x1);
Write(' x2 = '); ReadLn(x2);
Write (' dx = '); ReadLn(dx);
i:=1;
repeat
   WriteLn(f1(i):6:3);
   i:=i+1;
until i>x2;
ReadLn;
end.

Например, задавая х1= -10
   х2= 10
   dx = 1 получаем значения для первой функции

Записав WriteLn (f3(i):6:3); - получаем значения для третьей функции и так далее

MOGZ ответил