Информатика, 8 класс Дано: for i := 1 to 18 do
При первом выполнении тела цикла i= (ответ).
2.
Сколько раз будет выполнен цикл for n := 1 to 64 do?
ответ:
3.
нет
Параметр цикла
да
Тело цикла
Дальше идёт стрелочка вниз и следующие варианты:
1) цикл с параметром
2) цилиндрический цикл
3) цикл с неизвестной величиной
4) цикл с параметром по убывающим значениям параметра
4.
Запиши программу на языке Паскаль.
var
i,n:word;
begin
write('n=');
readln(n);
for i:=1 to n do begin write(i,' ');
end;
readln;
end.
На экране
n = 4
1) 0
2) 1234
3) 4
4) 16
5.
Заполни пропуски в программе.
Вывод на экран кубов чисел от 12 до 4.
var
(ответ):integer;
begin
for n:= (ответ) downto (ответ) do
writeln (n*n*n);
readln;
end.
6.
Дано: for i := 10 downto 5 do
i изменяется от (ответ) до (ответ) с шагом (ответ)
7.
Дана программа на языке Паскаль. Заполни пропуски.
Вывод на экран квадратов чисел от 1 до 29.
var
(ответ): integer;
begin
for i:=1 to (ответ) do
writeln(sqr( ответ ));
readln;
end.
8.
Запиши программу на языке Паскаль.
Вывести на экран числа от 2 до 16 в обратном порядке.
var
i: integer;
begin
for i:= (ответ) downto (ответ) do
writeln(ответ: 16, или "i", или i, или 2);
readln;
end.
using System;
namespace kp9p_pr_8_zad_1
{
class Program
{
enum Yay
{
min = 0,
krit = 72,
max = 100
}
static void Main(string[] args)
{
Yay t;
t = Yay.min;
Console.WriteLine("\nМнимальная температура: {0}", (int)t);
t = Yay.krit;
Console.WriteLine("\nКритическая температура: {0}", (int)t);
t = Yay.max;
Console.WriteLine("\nМаксимальная температура: {0}", (int)t);
}
}
}
Объяснение:
program graphic;
var
x, y: real;
underLine, underLog, inCircle: boolean;
begin
writeln('введите Х:');
readln(x);
writeln('введите У:');
readln(y);
//проверяем, что попали в первую четверть
if (x >= 0) and (y >= 0) then
begin
underLine := (y <= -x + 2);
underLog := (exp(y) <= x);
inCircle := (x*x + y*y <= 9);
if inCircle and (underLog xor underLine) then
writeln('внутри области')
else
writeln('вне области');
end
else
writeln('вне области');
end.
UPD
если нужно записать это одним оператором, то это будет выглядеть так
program graphic_v2;
var
x, y: real;
begin
writeln('введите Х:');
readln(x);
writeln('введите У:');
readln(y);
if (x >= 0) and (y >= 0) and (x*x + y*y <= 9) and ((y <= -x + 2) xor (exp(y) <= x)) then
writeln('внутри')
else
writeln('снаружи');
end.