Скільки разів виконається цикл, якщо початкове значення Х=7? Repeat X := X+1 Untіl X>10;Позначте одну правильну відповідьКількість балів 1.00) А Жодного Б 6 В 4 Г 2 Скільки разів виконається цикл, якщо початкове значення Х=11? Repeat X := X+1 Untіl X>10;Позначте одну правильну відповідь.(Кількість балів 1.00) А Жодного Б 3 В 2 Г 1 Якого значення набуде змінна F після виконання циклу? і := 1; F := 2; Repeat і:=і +1; F := F*і Untіl і < 3;Позначте одну правильну відповідь.(Кількість балів 1.00) А 4 Б 3 В 2 Г 12Якими є ознаки циклу з післяумовою Repeat?Позначте всі правильні відповіді.(Кількість балів 1.50) А Оператори тіла циклу виконуються доти, доки умова хибна Б Оператори тіла циклу виконуються мінімум один раз. Умова починає перевірятися лише після першого проходження циклу В Якщо умова набуває значення True, керування переходить до оператора, що слідує безпосередньо за оператором Until <умова> Г Оператори тіла циклу виконуються доти, доки умова істиннаВизначте, які оператори реалізують дію:Збільшувати значення змінної А на 2 доти, доки А<20.Позначте всі правильні відповіді.(Кількість балів 1.50) А Repeat A := A+2 Untіl A >= 20; Б Repeat A := A+2 Untіl A<20; В If A < 20 Then A := A+2; Г Whіle A<20 do A := A+2;Встановіть відповідність між еквівалентними операторами 1–4 і А–Г.(Кількість балів 2.00)1 Repeat X := X+1 Untіl X>10;2 While N<1000 do begin N := N+1; S := S+1/N end;3 While N<1000 do begin N := N+1; S := S+N end;4 Repeat X := X+1; S := S+X Untіl X>10;А Whіle Х <= 10 do begin X := X+1; S := S+X end; Б Repeat N := N+1;S := S+NUntіl N >= 1000; В Whіle Х <= 10 do X := X+1;Г Repeat N := N+1;S := S+1/NUntіl N >= 1000; А Б В Г1 2 3 4 Встановіть відповідність між операторами (1–4) та їхніми блок-схемами (А–Г(Кількість балів 2.00)1 Repeat A := A+1 Untіl A >= 5; 2 Whіle A<5 do A := A+1; 3 If A < 5 Then A := A+1 Else A := A–1; 4 If A < 5 Then A := A+1; А Б В Г А Б В Г1 2 3 4 Яке значення S буде виведено в текстове поле? var N, d, S: Integer; begin N := 345; S := 0; Repeat d := N mod 10; S := S+d; N := N div 10; Until N=0; Edit2.Text := IntToStr(S); end; (Кількість балів 2.00)
Ответы
Процедуры Read и Readln в языках семейства Паскаль (Pascal) предназначены для организации ввода данных с клавиатуры или их чтения из файла. Процедура Read завершает чтение непосредственно после получения последнего символа исходных данных, ограниченного пробелом или признаком смены строки (который получается при нажатии клавиши Enter). Процедура Readln, кроме того, осуществляет принудительный переход к следующей строке, пропуская признак смены строки.
Пример. Пусть надо ввести значения для переменных a и b типа integer.
Read(a, b); выполнит такой ввод независимо от того, как разделять значания - одним или более пробелами, нажатием Enter или комбинацией этих действий.
Readln(a, b); поведет себя точно так же. Поэтому нет разницы, какую из двух процедур использовать (зато Read короче писать!) для ввода данных числового типа.
Но для ввода символов и символьных строк разница есть!
Пробел и признак смены строки - это тоже символы, поэтому тут нужно использовать только Readln, поскольку признаком разделения данных для строк является только смена строки. Строка также может быть и пустой, т.е. не содержать символов.
Поэтому правило такое: если нет ввода символьных данных - используем Read. Если вводятся символьные данные, используем Readln, причем, если перед вводом таких данных вводятся числовые данные, их также надо вводить посредством Readln. Почему? Чтобы после Read не остался ко вводу признак смены строки и не получить в качестве вводимой затем строки пустую.
Подробнее обо всем этом можно прочесть в литературе по языку Паскаль. Например, в книге "PascalABC.NET: Введение в современное программирование", стр 214. Она легко ищется в Интернет, расположена на официальном сайте PascalABC.NET и бесплатна для скачивания.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
що можна записати в формулі
Что такое наглядно-образное моделирование?
using namespace std;
int main() {
int a[50][2];
int n;
int k1=0;
int k2=0;
int k3=0;
int k4=0;
cin >> n;
for (int i = 0; i < n; i++) {
cin >> a[i][0] >> a[i][1];
}
for (int i = 0; i < n; i++) {
if (a[i][1]>0)
if (a[i][0]>0) k1++; else k2++;
else if (a[i][0]>0) k4++; else k3++;
}
if ((k2>=3)or(k2==2)and(k1>3)or(k3>5)or(k4>9))
cout << "Clock is broken" << "\n";
else cout << k2 << k1 << ":" << k3 << k4 << "\n";
return 0;
}
Пример:
10
-1 1
1 1
1 2
-1 -1
-1 -2
-1 -3
1 -1
1 -2
1 -3
1 -4
12:34