Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.68/19: Рейтинг темы: голосов - 19, средняя оценка - 4.68
Rustambeg
0 / 0 / 0
Регистрация: 06.04.2015
Сообщений: 45
1

Определите, какое число будет напечатано в результате выполнения следующего алгоритма

06.04.2015, 11:45. Просмотров 3802. Ответов 1
Метки нет (Все метки)

Всем привет! Я, быть может, вовсе оглупел, но не могу решить две следующие задачи...

Первая задача:
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a,b,T,M,R: integer;
Function F(x:integer):integer;
begin
     F:=16*(x-6)*(x-6)
end;
begin
     a:=-10; b:=10;
     M:=a; R:=F(a);
     for t:=a to b do begin
         if (F(t)<R) then begin
            M:=t;
            R:=F(t)
     end;
end;
write(M);
end.
И вторая задача:
Значения элементов двух массивов F и B - с индексами от 1 до 500 задаются с помощью следующего фрагмента программы:
Pascal
1
2
3
4
for n:= 1 do 500 do
    A[n] := 100-n;
for n:= 1 do 500 do
    B[n] := 2*A[501-n];
Сколько элементов массива B будут иметь положительные значения после выполнения фрагмента программы.

Какова последовательность рассуждений при решении этих задач? Ничего не получается!

Всем спасибо заранее.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.04.2015, 11:45
Ответы с готовыми решениями:

Определите, какое число будет напечатано в результате выполнения следующего алгоритма
Определите, какое число будет напечатано в результате выполнения следующего алгоритма: var...

Что будет напечатано в результате выполнения следующего фрагмента программы?
Что будет напечатано в результате выполнения следующего фрагмента программы? x := 5; y := 4; z :=...

Что будет напечатано в результате выполнения следующего фрагмента программы?
Что будет напечатано в результате выполнения следующего фрагмента программы? x := 5; y := 4; z :=...

Что будет напечатано в результате выполнения следующего фрагмента программы?
Что будет напечатано в результате выполнения следующего фрагмента программы? x := 7.9; y :=...

Какое значение будет напечатано в результате выполнения программы?
Какое значение будет напечатано в результате выполнения программы? type mass=array of integer;...

1
coade781717
7 / 7 / 13
Регистрация: 01.04.2015
Сообщений: 31
06.04.2015, 17:37 2
первая задача выведет 6
рассуждения
ответом является число a когда f(a) это минимальное из всех возможных значений f(a)=0 так как а*0=0, -*-=+ и +*+=+
математическое решение
16*(a-6)*(a-6)=0
a-6=0
a=6
решение в программе (перебор)
a=-10; b=10;
m=-10; r=16*(-10-6)*(-10-6)=4096;
идём от -10 до 10
если 16*(-10-6)*(-10-6)<4096 что не является
если 16*(-9-6)*(-9-6)<4096 то
m=-9 и r=3600
если 16*(-8-6)*(-8-6)<3600 то
m=-8 и r=3136
... - пропустим некоторое количество действий
16*(6-6)*(6-6)=0 и это минимальное значение из всех возможных далее действия записывать не буду, потому что условия всегда будут ложными после этого
вторая задача 99
рассуждения
для начала в массиве a у нас 99 положительных значений, так как 100-99=1 и 100-100=0, а 99(n) переменная счётчик
далее 2 цикл это тоже самое что и
for n:=500 downto 1 do
b[501-n]:=2*a[n];
в массиве а у нас 99 положительных значений, так как +*+=+ и -*+=-, а значит у нас эти 99 положительных значений остаются.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.04.2015, 17:37

Определите что будет напечатано в результате работы следующей программы
Определите что будет напечатано в результате работы следующей программы: Vat n, s: integer; ...

Определить, что будет напечатано в результате выполнения программы
var s, k; integer; begin s:=40 for k:=1 to 7 do s:=s-3 write(s); end.

Составить блок – схему алгоритма и определить, что выводится в результате выполнения следующего алгоритма
Всем привет. Помогите плиз. Составить блок – схему алгоритма и определить, что выводится в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.