До ть з інформатикою, задали це на дистан. навчанні Завдання для індивідуального відпрацювання. 1. З метою кращого засвоєння матеріалу рекомендується спочатку самостійно виконати розгля-нуті вище приклади 1 і 2 і порівняти результати із наведеними у методичних вказівках. 2. За до засобу Подбор параметра знайти задане значення функції f(x) =ax3 + bx2 +cx+d на відрізку[x1 , x2 ]. 3. За до надбудови Поиск решения… знайти найбільше та найменше значення функції на цьому відрізку. 4. Побудувати таблицю значень функції на даному інтервалі та її графік. Значення параметрів a, b, c,d, x1, x2, h і шукане значення наведені у таблиці 1. 5. Порівняти знайдені у пунктах 2 і 3 результати з табличними та графічними. 6. Зробити висновки. В мене нічого не виходить показує помилку коли я все роблю по цьому списку
Здесь смешанный язык - алгоритмический. Разберем по строкам 1. алг - говорит что будет цикл (в Паскале for) 2. нач - слишком очевидно, начало 3. цел i,n - значения переменных i и n целые 4. n:=0 - обнуляем n, мало ли в памяти есть какое-то значение для него 5. нц для i от 1 до 13 - начало цикла, который меняется на промежутке [1;13] 6. n:=(n+i)+3 - действие внутри цикла, в данном случае меняем значение n 7. кц 8. вывод n - выводим на экран последнее значение n 9. кон
Как это выглядит на Паскаль: Var i, n: integer; Begin n := 0; for i:= 1 to 13 do n:=n+i+3; write('n = ',n); end.
Эта программа выведет на экран 130 можно посчитать вручную i=1, n = n+i+3 = 0+1+3= 4 i=2, n = n+i+3 = 4+2+3= 9 и т.д. до i = 13.
var c, a: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 1 to 20 do begin a[i] := c[20 - i + 1]; write(a[i], ' '); end; end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var c: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 20 downto 1 do write(c[i], ' '); end.
Разберем по строкам
1. алг - говорит что будет цикл (в Паскале for)
2. нач - слишком очевидно, начало
3. цел i,n - значения переменных i и n целые
4. n:=0 - обнуляем n, мало ли в памяти есть какое-то значение для него
5. нц для i от 1 до 13 - начало цикла, который меняется на промежутке [1;13]
6. n:=(n+i)+3 - действие внутри цикла, в данном случае меняем значение n
7. кц
8. вывод n - выводим на экран последнее значение n
9. кон
Как это выглядит на Паскаль:
Var i, n: integer;
Begin
n := 0;
for i:= 1 to 13 do
n:=n+i+3;
write('n = ',n);
end.
Эта программа выведет на экран 130
можно посчитать вручную
i=1, n = n+i+3 = 0+1+3= 4
i=2, n = n+i+3 = 4+2+3= 9
и т.д. до i = 13.
var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do write(c[i], ' ');
end.
Обе программы работают!