Во Какие операторы не могут быть выполнены в теле цикла с указанным заголовком?
for i:=1 to n do
Варианты ответов
i:=i-1;
t:=i+2;
n:=n-1;
t:=n-i;
Во Какой оператор в языке Паскаль предназначен для реализации цикла с заданным числом повторений?
Варианты ответов
if
for
while
repeat
Во Какие из приведённых циклов предназначены для возведения числа k в степень n?
Варианты ответов
for i:=1 to n do k:=k*k;
r:=1; for i:=1 to n do r:=r*k;
for i:=n downto 1 do k:=k*k;
r:=1; for i:=n downto 1 do r:=r*k;
Во Чему будет равно значение переменной t после выполнения данной последовательности команд?
t:=0;
for i:=1 to 20 do
for j:=1 to 30 do
t:=t+1;
Во Какая из приведённых блок-схем описывает цикл с заданным числом повторений?
Варианты ответов
Во Частным случаем какого цикла является цикл с заданным числом повторений?
Варианты ответов
Цикла с параметром
Цикла с постусловием
Цикла с предусловием
Никакого из перечисленных
Во Сколько раз будет выполнен заданный цикл?
for i:=20 downto 1 do
t:=random (100);
Варианты ответов
1
19
20
21
Во Сколько раз будет выполнен заданный цикл?
for i:=1 to 15 do
t:=random (100);
Варианты ответов
15
1
0
14
Во Как называется цикл, число повторений которого неизвестно до начала его работы?
Варианты ответов
Итерационный цикл
Цикл с предусловием
Цикл с постусловием
Безитерационный цикл
Во Сколько раз будет выполнен описанный цикл?
for i:=2 to 1 do
t:=random (100);
Варианты ответов
1
2
0
3
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Итак, целевой язык - C++. Это значит мы - радостные обладатели технологии потоков, с коей мы будем производить весь ввод/вывод как при работе с файлами, так и при работе со стандартным вводом/выводом (консолью).
Ну а раз уж мы работаем с потоками, то будем делать это красивенько: создадим класс-обёртку для потока ввода, цель которого - поиск в этом потоке цитат и отправка их на поток вывода (который мы передаём).
[!] Стоит отметить, что по заданию не сказано, что есть разница между ' и ". Поэтому будем считать их одинаковыми.
[!] Внимание! Рядом с исполняемым файлом надо создать текстовый файл data.txt c текстом и цитатами.
КодС++11
#include <iostream>#include <fstream>using std::cout;class QuotesFinder { std::istream &in_stream; bool is_it_in_quote = false;public: QuotesFinder() = delete; QuotesFinder(QuotesFinder&&) = default; QuotesFinder(QuotesFinder const&) = default; explicit QuotesFinder(std::istream &is) : in_stream(is) {} [[nodiscard]] bool eof() const { return in_stream.eof(); } // Вот тут происходит вся магия QuotesFinder& operator >> (std::ostream& out_stream) { char buffer; in_stream.get(buffer); //Получаем очередной символ из потока if (buffer == '\"' || buffer == '\'') { if (is_it_in_quote) { is_it_in_quote = false; out_stream << buffer; out_stream << "\n"; return *this; } is_it_in_quote = true; } if (is_it_in_quote) { out_stream << buffer; } return *this; }};int main() { std::ifstream file("data.txt"); // Открываем файл if (!file.is_open()) { cout << "File is not exits!"; return 1; } QuotesFinder finder(file); // Создаём обёртку из файлового потока while (!finder.eof()) // Пока не достигли конца потока finder >> cout; // переправляем очередной кусок информации в поток вывода}