Відповісти на запитання Будь-який оператор циклу складається з варіанти відповідей • заголовка • тіла • початку • закінчення • умови Запитання 2 Вкажіть повну форму опису циклу з передумовою варіанти відповідей • while <логічний вираз> do <команда>; • for i := to do <команда>; • while <логічний вираз> do begin <команда1>; <команда2>; … <команда n>; end; Запитання 3 Для того щоб описати повторення визначену кількість разів використовують оператор варіанти відповідей • циклу з передумовою • циклу з лічильником • циклу із післяумовою Запитання 4 Яким оператором описується цикл з лічильником? варіанти відповідей • while • for • if • var Запитання 5 Як описати цикл із лічильником в середовищі програмування? варіанти відповідей • for i := to do <команда>; • while <логічний вираз> do <команда>; • repeat <команди>; until <логічний вираз припинення циклу>; Запитання 6 Тип іnt на мові С++ варіанти відповідей • цілі числа, що використовуються для рахунка. • призначений для представлення окремих символів, наприклад букв або цифр або розділових знаків. • тип дійсних даних з плаваючою точкою Запитання 7 Формат запису операції введення має вигляд варіанти відповідей • сin [<< values] • сin [>> values] • сout [>> values] • сout [<< values] Запитання 8 Потокова операція виведення може мати вигляд варіанти відповідей • cin << data • cin >> data • cout >> data • cout << data
Ответы
Const n=10;
type ar=array[1..n] of integer;
procedure p1(var x:ar);
var i:integer;
begin
for i:=1 to n do x[i]:=random(51);
end;
procedure p2(h:char;var x:ar);
var i:integer;
begin
writeln('---',h,'---');
for i:=1 to n do write(x[i]:4);
writeln;
end;
procedure p3(var x:ar; var min,imin:integer);
var i:integer;
begin
min:=x[1]; imin:=1;
for i:=2 to n do
if x[i]<min then begin min:=x[i]; imin:=i; end;
end;
var a,b : ar;
m1,m2,im1,im2: integer;
begin
Randomize;
p1(a); p2('a',a);
p3(a,m1,im1);
writeln('m1=',m1,' im1=',im1);
p1(b); p2('b',b);
p3(b,m2,im2);
writeln('m2=',m2,' im2=',im2);
if im2<n
then begin b[im2+1]:=m1; p2('b',b); end
else writeln('Минимальный элемент последний');
end.
Пример:
---a---
13 11 4 48 36 25 9 47 40 8
m1=4 im1=3
---b---
45 13 48 18 41 17 5 43 9 21
m2=5 im2=7
---b---
45 13 48 18 41 17 5 4 9 21
type ar=array[1..n] of integer;
procedure p1(var x:ar);
var i:integer;
begin
for i:=1 to n do x[i]:=random(51);
end;
procedure p2(h:char;var x:ar);
var i:integer;
begin
writeln('---',h,'---');
for i:=1 to n do write(x[i]:4);
writeln;
end;
procedure p3(var x:ar; var min,imin:integer);
var i:integer;
begin
min:=x[1]; imin:=1;
for i:=2 to n do
if x[i]<min then begin min:=x[i]; imin:=i; end;
end;
var a,b : ar;
m1,m2,im1,im2: integer;
begin
Randomize;
p1(a); p2('a',a);
p3(a,m1,im1);
writeln('m1=',m1,' im1=',im1);
p1(b); p2('b',b);
p3(b,m2,im2);
writeln('m2=',m2,' im2=',im2);
if im2<n
then begin b[im2+1]:=m1; p2('b',b); end
else writeln('Минимальный элемент последний');
end.
Пример:
---a---
13 11 4 48 36 25 9 47 40 8
m1=4 im1=3
---b---
45 13 48 18 41 17 5 43 9 21
m2=5 im2=7
---b---
45 13 48 18 41 17 5 4 9 21
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Написать программу в бейсике
Автор: Роман
Подберите синоним к слову информация
Автор: andyrvo
Для чего нужно несколько моделей одного и того же объекта
Автор: zabrodin
Найти количество чётных чисел в отрезке от a доb паскаль
Автор: nadnuriewa8110
Блок схема змінення протягом чотирьох років
Автор: nchorich55
Построить график функции у = -2х2 -2х+5 для х в диапазоне [-6;3] с шагом 1 в excel
Автор: buleckovd8724
var
a,b:array [1..n] of integer;
i,min1,min2,k:integer;
begin
randomize;
For i:=1 to n do begin
a[i]:=random(10);
b[i]:=random(10);
end;
writeln (a);
writeln (b);
writeln;
min1:=1000;
min2:=1000;
For i:=1 to n do begin
if a[i]<min1 then min1:=a[i];
if b[i]<min2 then begin min2:=b[i]; k:=i end;
end;
if k<n
then begin
b[k+1]:=min1;
writeln (a);
writeln (b);
end
else writeln ('Минимальным является последний элемент');
end.
Примеры:
1)
[4,5,2,2,7,3,8,6,8,6]
[5,5,2,2,3,7,9,9,4,1]
Минимальным является последний элемент
2)
[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,7,2,1,4,0,9]
[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,0,2,1,4,0,9]
PS: Менять N можно в описании константы