Пишется так:
while условие do
begin
Тело цикла
end;
Выполняет тело цикла (команды между begin и end;) пока соблюдено условие в заголовке цикла.
Пример:
while x<100 do
begin
x:= x+1;
end;
Прибавляет к переменной x единицу пока x меньше ста. Если x больше ста, то цикл заканчивается.
Числа ФибоначчиПоследовательность начинается с 0 1
Каждое следующее число равно сумме двух предыдущих
0 1 1 (0+1=1)
0 1 1 2 (1+1=2)
0 1 1 2 3 (1+2=3)
0 1 1 2 3 5 (2+3=5)
и т.д.
Одномерные массивыМассив можно представить как ряд из ящиков
каждый ящик имеет свой номер (индекс)
в ящике лежит значение (цифры или символы)
Объявляются как переменные в начале программы:
program raf105
var название:array[количество элементов] of тип;
количество элементов пишется как диапазон от минимального значения индекса (Индекс это число в квадратных скобках) до максимального между ними ставятся две точки
Пример:
program raf105
var X:array[1..10] of integer;
Это массив под названием X с 10-ю элементами типа integer
Обращение к массиву
Название[индекс]
Пример:
x[8]:= 101;
Мы присвоили восьмому элементу массива под названием x значение 101
1)
using System;
class Program {
static void Main() {
int num = 16;
bool isPow2 = true;
while (num > 1){
if (num % 2 == 0){
num /= 2;
} else {
isPow2 = false;
break;
}
}
if (isPow2)
Console.WriteLine("Является");
else
Console.WriteLine("Не является");
}
}
2)
using System;
class Program {
static Random rnd = new Random();
static void Main() {
int min = 1;
int max = 100;
int numOfAttempts = 8;
int x = rnd.Next(min, max);
bool isWin = false;
Console.WriteLine("Игра \"Больше-Меньше\"");
Console.Write("Задайте число попыток: ");
numOfAttempts = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Отгадайте число от {0} до {1}", min, max);
Console.WriteLine("Попытки: {0}\n", numOfAttempts);
int input;
do {
Console.Write("Введите число: ");
input = Convert.ToInt32(Console.ReadLine());
numOfAttempts--;
if (input > x)
Console.WriteLine("x < {0} [попытки: {1}]", input, numOfAttempts);
if (input < x)
Console.WriteLine("x > {0} [попытки: {1}]", input, numOfAttempts);
if (input == x){
isWin = true;
break;
}
} while (numOfAttempts > 0);
if (isWin){
Console.WriteLine("\nПобеда!");
} else {
Console.WriteLine("\nПроигрыш! Загаданное число: {0}", x);
}
}
}
program raf105;
var iq,n,x,i,choco,choco_counter,kid_counter: integer;
begin
write('Введите количество детей в детском саду: ');
readln(n);
write('Введите желаемый IQ: ');
readln(x);
writeln('Вводите IQ ',n,' детей по очереди.');
for i:=1 to n do
begin
readln(iq);
if iq >= x
then begin
if choco div 228 < 1
then begin
choco_counter+= 1;
choco+= 1337;
end;
choco-= 228;
kid_counter+= 1;
end;
end;
writeln('Награду получат ',kid_counter,' дет.');
writeln('Шоколада потребуется приобрести: ',choco_counter,' плит.');
end.
PascalABC 3.4.2