1. Що таке вкладені розгалуження? Чим вони відрізняються від послідовності розгалужень?
2. Що таке вкладені цикли?
3. Чим може бути корисним використання вкладених розгалужень чи циклів при
складанні програми?
4. Чи можна поєднати алгоритмічні структури повторення та розгалуження в одному
проекті Скретч? Поясни, навіщо це може бути потрібно.
float a, b, c;
cout<<"Введите a: ";
cin>>a;
cout<<"Введите b: ";
cin>>b;
cout<<"Введите c: ";
cin>>c;
float D=b*b-4*a*c;
cout<<"ответ: ";
if(D>0)
cout<<"x1 = "<<(-b+sqrt(D))/2*a<<", x2 = "<<(-b-sqrt(D))/2*a;
else if(D==0)
cout<<"x = "<<-b/2*a;
else
cout<<"корней нет";
cout<<endl
//2
float a, b, c;
cout<<"Введите a: ";
cin>>a;
cout<<"Введите b: ";
cin>>b;
cout<<"Введите c: ";
cin>>c;
cout<<"Наибольшее число: ";
if(a>c)
if(a>b)
cout<<"a ("<<a<<")";
else
cout<<"b ("<<b<<")";
else if(c>b)
cout<<"c ("<<c<<")";
program r;
var a:array[0..8] of integer=(-6,7,45,-12,2,7,-15,0,64); l,i,sum:integer;
begin;
for i:=0 to 8 do
if a[i]>0 then begin;
sum:=sum+a[i];
l:=l+1;
end;
for i:=0 to 8 do
writeln('A[',i,'] = ', a[i]);
write('Сумма положительных элементов равна ',sum,', а из количество ',l);
end.
Второе:
program t;
var d:array [0..40] of integer; l,x:integer;
begin;
for x:=0 to 40 do begin;
d[x]:=45*x+15;
if d[x] mod 2 = 1 then l:=l+1;
end;
write('Кол-во нечётных элементов ',l);
end.
Третье:
program y;
var p:array [0..25] of real; k:integer; avg:real;
begin;
for k:=0 to 25 do begin;
p[k]:=7*k+3*k/15;
avg:=avg+p[k];
end;
avg:=avg/26;
write('Среднее значение элементов массива ', avg);
end.