Рассчитать значение функции y=5x^2+x^2-7x-30 для значений аргумента 0; 1; 1,5; 6; -4
program функция;
var a, b, c, d, e, x1, y1: real;
procedure fun (var x, y: real) ;
begin
y1 : =5*x*sqr(x)+sqr(x) - 7*x-30;
end;
begin
read (a, b, c, d, e);
fun (a, y1) ;
write (y1) ;
fun (b, y1) ;
write (y1) ;
fun (c, y1) ;
write (y1) ;
fun (d; y1) ;
write (y1) ;
fun (e, y1) ;
write (y1) ;
end.
заранее !
1. Свинину моем, режем на небольшие кусочки.
2. Рис моем, заливаем водой.
3. Лук чистим, режем полукольцами.
4 Морковь чистим, режем соломкой.
5. В казане разогреваем растительное масло,
6 поджариваем лук.
7 добавляем мясо
8 обжариваем на сильном огне со всех сторон.
9 добавляем морковь.
10 Жарим еще 10 минут
11. Солим,
12перчим,
13заливаем кипятком, чтобы покрыло сверху,
14тушим 20 минут на небольшом огне под крышкой.
15. Зубчики чеснока равномерно раскладываем на мясо.
16. Сливаем с риса воду и засыпаем его сверху на мясо.
17Доливаем кипятка столько, чтобы покрыло рис.
18Тушим на медленном огне под крышкой до готовности риса (около часа). При необходимости можно долить немного кипятка.
матрица заполняется случайно
программа на pascalabc
Var
max,min,mina,minb,maxa,maxb,a,b,c: integer;
mas: array[1..3,1..3] Of integer;
Begin
writeln('до :');
For a:=1 To 3 Do
For b:=1 To 3 Do
Begin
mas[a,b] := random(100);
If mas[a,b]>max Then
Begin
max := mas[a,b];
maxa := a;
maxb := b;
End;
If (min=0)Or(mas[a,b]<min) Then
Begin
min := mas[a,b];
mina := a;
minb := b;
End;
write(mas[a,b],' ');
End;
c := mas[maxa,maxb];
mas[maxa,maxb] := mas[mina,minb];
mas[mina,minb] := c;
writeln;
writeln('после :');
For a:=1 To 3 Do
For b:=1 To 3 Do
write(mas[a,b],' ');