Экономика
Написать программу построения графика функции у= sqrt 3*x.(PascalABC)(программа не работает)
uses graphabc;
var i: integer;
x, y: real;
function f (x:real):real;
begin f:=sqrt (3*x);
end;
Begin line (0, 240, 620, 240);
line (300, 0, 300, 900);
for i:= -450 to 45 do
begin x:= 0.03*i;
y:=f(x);
setpixel (round (300+10*x), round (240-10*y), clgreen);
end;
textout (300,10, 'y=sqrt(3x)');
End.
Составление циклических алгоритмов. Использование оператора цикла с постусловием repeat…until.
Найти наименьшее натуральное число, дающее при делении на 2, 3, 4, 5, 6 соответственно остатки 1, 2, 3, 4, 5. ( берется наименьшее натуральное число - единица и находятся остатки от деления его на 2, 3, 4, 5 и 6; если остатки будут равны 1, 2, 3, 4 и 5, тогда это число является искомым, его надо выдать на экран и закончить программу, в противном случае, надо брать следующее натуральное число - 2 и проверять его, и так далее.)
