Повторение программирования. 8 класс

<оператор 1>;
<оператор 2>;
…
<оператор n>;
end.

Операторы - языковые конструкции для записи действия, выполняемого над данными в процессе решения задачи.

,< выражение 2> , ...,< выражение N>);
Выражения - символьные, числовые, логические, в том числе переменные и константы

Пример:
s:=15; a:=0; b:=7;
write ('s=', s, s+10, a+b, ’ ‘ , ‘Введите любое число’);
На экране появится:
s=15257 Введите любое число_

Вывод с новой строки
writeln (<выражение 1> ,< выражение 2> , ...,< выражение N>) курсор перейдет на новую строчку

величиной.

write(s:x:y)
x - общее количество позиций, отводимых под число
(под точку тоже отводится место); y - количество позиций в дробной части числа.

a:=10; b:=3; writeln(a/b); 3,333333333333333333

);

Ввод в оперативную память значений переменных :

ReadLn читается "рид'лайн", переводится "читай строку". Он приказывает компьютеру остановиться и ждать, когда человек введет с клавиатуры определенную информацию, после чего продолжить работу.

список ввода

VAR a,b : Integer; BEGIN ReadLn (a,b); WriteLn (a+b); END.

ReadLn (a,b) будет ждать ввода двух целых чисел.

0 <= C <50
C:= random(15)-10; будет генерировать случайное число в диапазоне -10<= C <5
Для генерации вещественного случайного числа
C:= random; будет генерировать случайное число в диапазоне
0 <= C <1
C:= random +5; будет генерировать случайное число в диапазоне 5 <= C <6
C:= random *10 -5; будет генерировать случайные числа в диапазоне -5 <= C < 5

Случайные числа

них символьный тип данных char.

VAR a : char;
BEGIN
a:=‘О';
WriteLn(a);
END.

Символы – это все буквы и значки, которые есть на клавиатуре. Количество символов равно 256, каждому из которых соответствует числовой код согласно кодовой таблице.

заключенная в апострофы.

VAR a : String;
BEGIN
a:='Привет всем!';
WriteLn (a);
END.

VAR a : String;
BEGIN
WriteLn ('Введите какое-нибудь слово');
ReadLn (a);
WriteLn ('Вы ввели слово ' ,a)
END.

В тексте программы символ мы задаем, заключая его в апострофы,
когда вводим с клавиатуры - без

!

введенного с клавиатуры и составить новое число, поменяв старший и младший разряд в введенном числе.

оператора:
if <условие> then <оператор_1>
else <оператор_2>;

Неполная форма условного оператора:
if <условие> then <оператор>;

Операции
отношений

Логические
Операции(И, ИЛИ, НЕ)

Простые

Сложные

Условия - логические выражения

!

использовать только один оператор.

Если в условном операторе после then или после else
нужно выполнить несколько операторов, то
используют составной оператор – конструкцию вида:
begin
<последовательность операторов>
end

Написать программу нахождения
корней квадратного уравнения

x2:9:3)
end;

begin
x:=-b/2/a;
writeln ('Корень уравнения x=', x:9:3)
end;

program n_11;
var a, b, c: real;
d: real;
x, x1, x2: real;
begin
writeln ('Решение квадратного уравнения');
write ('Введите коэффициенты a, b, c >>');
readln (a, b, c);
d:=b*b-4*a*c;
if d<0 then writeln ('Корней нет');
if d=0 then

if d>0 then

end.

<условие1> then if <условие2>
then <оператор1>
else <оператор2>
else <оператор3>;

Написать программу развития событий у камня на дороге, по которой едет Илья Муромец

<оператор>;

Правила:
Так как условие проверяется в начале цикла, то цикл может не выполниться ни разу.
Для того, чтобы цикл не стал бесконечным, в теле цикла должны изменяться величины, входящие в логическое выражение.
Если в теле цикла несколько операторов, то ставятся begin … end;
while <условие> do
begin
<оператор 1>;
…
<оператор N>;
end;

Конструкция читается:
Пока условие верно, делай (выполняется тело цикла)

Конец счета

VAR f : Integer; BEGIN Write('Начало счета '); f:=3;
while f<=9 do begin Write(f,' '); f:=f+2; end;
write(‘Конец счета’); END.

Составной оператор(операторные скобки
begin..end)

5 . . . 99 100 98. . . 2 0
"Таблицы Брадиса"- вычислить и напечатать с 6 десятичными знаками квадраты чисел
0.000
0.001
0.002
0.003
. . . 
0.999
1.000.

переводится:
повторяй … до тех пор, пока условие неверно.
Правила:
Тело цикла всегда выполняется хотя бы один раз, так как условие стоит в конце цикла.
В этом операторе цикла можно написать много операторов в теле цикла

repeat
<оператор 1>;
<оператор 2>;
…
<оператор N>;
until <условие>;

Конец счета
VAR f : Integer; BEGIN Write('Начало счета '); f:=3; repeat
Write(f,' '); f:=f+2; until f>9;
Write(' Конец счета'); END.

печатать y=x/4 + 20 и z=2y+0.23 до тех пор, пока y*z не станет меньше 1/х.
Усложним уже сделанную задачу. Компьютер предлагает человеку ввести слово, после чего распечатывает это слово, снабдив его восклицательным знаком. Затем снова предлагает ввести слово и так до тех пор, пока человек не введет слово "Хватит". Распечатав его с восклицательным знаком, компьютер отвечает "Хватит так хватит" и заканчивает работу. Пусть компьютер перед распечаткой каждого слова ставит его порядковый номер.
Написать программу, которая при введении с клавиатуры чисел, если они не равны 0, суммирует их. Если введен 0, суммирование заканчивается, и на экране отображается результат.

i, изменяющегося от 1 до 200, делай оператор, стоящий после слова do.
переменная i называется параметром или счетчиком цикла.

Общий вид:
for i:= i1 to i2 do оператор;
(если i1или
for i:= i1 downto i2 do оператор;
(если i1>i2)

переменная.
Параметр цикла не может явным образом меняться в теле цикла.
for i:=1 to 10 do
begin
a:=a+2;
i:=i+1; {неверно}
end;
Шаг цикла может быть равен только +1 (цикл с to) или –1 (цикл с downto).
В соответствии с общим видом тело цикла должно состоять из одного оператора, если операторов несколько, используем составной оператор и операторные скобки begin..end;

to 200 do WriteLn('ФУТБОЛ'); END.

Пример 2: Пусть компьютер печатает такую информацию:
10 ФУТБОЛ 11 ФУТБОЛ 12 ФУТБОЛ . . . . . 200 ФУТБОЛ
VAR i : Integer; BEGIN for i:=10 to 200 do begin
Write(i); Write(' ФУТБОЛ '); end;
END.

-2 -1 0 1 2 3 4 5 Обратный счет: 5 4 3 2 1 0 -1 -2 -3 -4 -5
Во дворце 40 залов. Известны длина, ширина и высота каждого зала. Вычислить площадь пола и объем каждого зала.

WriteLn(’Введите число залов‘);
ReadLn (N); {N - число залов}
for i:=1 to N do
begin
WriteLn(’Введите длину, ширину и высоту зала‘);
ReadLn (dlina, shirina, visota);
S:=dlina*shirina;
V:=S*visota;
WriteLn(‘Площадь пола=’,S,’ Объем зала=‘,V)
end; END.

Теперь создадим более дружественный интерфейс, для чего, кроме всего прочего, дадим возможность пользователю самому задавать число залов во дворце:

i <= 9 do begin
P := P * (i div 3);
i := i + 1;
end;
2. Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 0;
s := 0;
while s <= 256 do begin
s := s + 25;
n := n + 1
end;
write(n)
end.

Задачи

k, s: integer;
begin
s:=0;
k:=0;
while k < 30 do begin
k:=k+3;
s:=s+k;
end;
write(s);
end.
4. Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=1;
k:=0;
while k < 13 do begin
s:=s+2*k;
k:=k+4;
end;
write(s+k);
end.

печатает сначала 3, а потом 7.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do
begin
L:= L + 1;
M:= M + x mod 10;
x:= x div 10;
end;
writeln(L); write(M);
end.