Запишите какие бывают циклы 2. Соотнесите оператор и цикл, в котором он используется А) while 1) цикл предусловием Б) repeat 2) цикл с постусловием 3. Какой оператор цикла проверяет условие в конце цикла? 4. В каком цикле операторы выполняться обязательно хотя бы один раз? А) с постусловием Б) с предусловием 5. Соотнесите какое условие указывается у какого оператора А) while 1) условие выполнения цикла Б) repeat 2) условие окончания цикла 6. Выберите верный формат записи цикла с постусловием А) repeat операторы; until <условие> Б) while <условие> until операторы; В) while <условие> do операторы; Г) repeat операторы; do <условие> 7. Какой из приведенных операторов организует цикл со счетчиком А) while <условие> do операторы Б) For i:=1 to 10 do операторы В) For i:=10 to N do операторы Г) repeat операторы until <условие> 8. Под какими БУКВАМИ записано БЕЗ ОШИБОК А) For i:=1 to 10 do x:=x+1; y:=sqr(y); Б) For i:=1 to N do y:=y/2; В) For i:=10 to 1 do x:=x+y; Г) For i:=1 to 15 do begin x:=sqr(x); y:=sqr(y); end; 9. Под какими БУКВАМИ записано С ОШИБКАМИ А) while x:=(x*y)/2 do until (i<10) Б) while i<=10 do begin x:=2+y; i:=i+1; end; В) repeat until i>10 do y:=y+2; i:=i+1; Г) repeat begin i:=i+1; y:=y+2; end; until i>10 Д) repeat y:=x/2; i:=i+1; writeln (y) until i>20
Ответы
//Pascal ABC.NET 3.1 сборка 1219
Var
f:text;
ars:array of string;
s,s1:string;
min,n,i:integer;
begin
n:=1;
min:=integer.MaxValue;
assign(f,'text.txt');
reset(f);
while not(Eof(f)) do
begin
readln(f,s);
s1:=s;
s:=s.Trim;
i:=1;
while i<>length(s) do
if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1) else inc(i);
if ((s.split).length<=min) and ((s.split).length<>0) then
begin
if (s.split).length=min then
begin
inc(n);
setlength(ars,n);
ars[n-1]:=s1;
end
else
begin
n:=1;
setlength(ars,n);
ars[n-1]:=s1;
end;
min:=(s.split).length;
end;
end;
close(f);
assign(f,'text1.txt');
rewrite(f);
for i:=0 to n-1 do
writeln(f,ars[i]);
close(f);
end.
Содержимое файла text.txt:
Хей патимейкер
уличный
денсер
шейкер шейкер
Содержимое файла text1.txt:
уличный
денсер
Var
f:text;
ars:array of string;
s,s1:string;
min,n,i:integer;
begin
n:=1;
min:=integer.MaxValue;
assign(f,'text.txt');
reset(f);
while not(Eof(f)) do
begin
readln(f,s);
s1:=s;
s:=s.Trim;
i:=1;
while i<>length(s) do
if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1) else inc(i);
if ((s.split).length<=min) and ((s.split).length<>0) then
begin
if (s.split).length=min then
begin
inc(n);
setlength(ars,n);
ars[n-1]:=s1;
end
else
begin
n:=1;
setlength(ars,n);
ars[n-1]:=s1;
end;
min:=(s.split).length;
end;
end;
close(f);
assign(f,'text1.txt');
rewrite(f);
for i:=0 to n-1 do
writeln(f,ars[i]);
close(f);
end.
Содержимое файла text.txt:
Хей патимейкер
уличный
денсер
шейкер шейкер
Содержимое файла text1.txt:
уличный
денсер
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Управляти демонстрацією презентація можна за до нструментів вкладки
Автор: arteevdimon
Сколько кодов можно составить из 7 бит
Автор: kapral1812
Найдите сумму всех натуральных чисел меньше 7 pascal
Автор: Игоревна
5. Задана кодовая информация в виде ряда чисел. Декодируй эту информацию и запиши ответ МН
Автор: georgegradoff122
Вкакой системе счисления верны равенства 2*2*2=10 4*4=20 6*6=20
Автор: Чубкова1290
Язык программирования - паскаль
Автор: olyaartemenko
//а
#include <iostream>
using namespace std;
const int n=10;
int main(){
int ar[n];
int arsub[n];
int m=0;
cout<<"Enter m:";
cin>>m;
cout<<"Enter array:"<<endl;
for(int i=0;i<n;i++)
cin>>ar[i];
for(int i=0;i<m;i++)
arsub[i]=ar[i];
for(int i=0;i<n-m;i++)
ar[i]=ar[i+m];
for(int i=0;i<m;i++)
ar[i+(n-m)]=arsub[i];
cout<<"Final array"<<endl;
for(int i=0;i<n;i++)
cout<<ar[i]<<' ';
cin.get();
cin.get();
return 0;
}
//б
#include <iostream>
using namespace std;
const int n=10;
int main(){
int ar[n];
int arsub[n];
int k,k1=0;
cout<<"Enter k:";
cin>>k;
cout<<"Enter array:"<<endl;
for(int i=0;i<n;i++)
cin>>ar[i];
for(int i=n-k;i<n;i++){
arsub[k1]=ar[i];k1++;}
for(int i=n;i>=k;i--)
ar[i]=ar[i-k];
for(int i=0;i<k;i++)
ar[i]=arsub[i];
cout<<"Final array"<<endl;
for(int i=0;i<n;i++)
cout<<ar[i]<<' ';
cin.get();
cin.get();
return 0;
}