program expression;
var
x, y: real;
begin
read(x);
y := power(x, 4) - 3 * power(x, 3) + 5 * x - 6;
write(y);
end.
Объяснение:
program expression; // Название программы
var
x, y: real; // Две переменные являются вещественными (требуется для power)
begin // Начало программы
read(x); // Вводим число с клавиатуры
y := power(x, 4) - 3 * power(x, 3) + 5 * x - 6; // Само выражение
power(число, которое нужно возвести в степень | сама степень)
power(x, 4)
x - число
4 - степень
write(y); // Выводим ответ
end. // Начало программы
program abc;
uses crt,graphabc;
const
name: array [1..5] of string=('ñåìÿ','ïðîðîñòîê','çåëåíûé ïðîðîñòîê','ðàñòåíèå ñ öâåòêîì','ñ ïëîäîì');
var
k:array[1..5]of integer;
i:integer;
begin
setwindowsize(300,450);
setwindowcaption('æèçíåííûé öèêë ðàñòåíèÿ');
setfontcolor(clgreen) ;
setfontsize(16);
setfontstyle(fsbold);
hidecursor;
for i:=1 to 5 do
begin
k[i]:=loadpicture('D:\pic\plant'+inttostr(i)+'.jpg');
drawpicture (k[i],0,35);
textout(50,10,name[i]);
sleep(1500);
if i<=3 then clearwindow;
end;
end.
Объяснение:
к pascal abc
Объяснение:
Ну все что есть.думаю помагла)))))))))))))))))))))))