106 lines
1.7 KiB
Plaintext
106 lines
1.7 KiB
Plaintext
Topic1=Программирование, 1 ступень. Классная работа
|
|
Topic2=Занятие 4. Оператор присваивания
|
|
Author=Воскресная компьютерная школа мехмата ЮФУ (sunschool.mmcs.sfedu.ru), 2016
|
|
[=PascalABC]
|
|
[1]
|
|
// Опишите все необходимые переменные в разделе описаний
|
|
// до строки begin.
|
|
|
|
|
|
begin
|
|
read(a,b);
|
|
radd := a + b;
|
|
rmult := a * b;
|
|
Print(radd,rmult);
|
|
end.
|
|
[2]
|
|
// Опишите все необходимые переменные в тексте основной программы,
|
|
// поставив слово var перед первым использованием переменной.
|
|
|
|
begin
|
|
a := ReadReal;
|
|
b := ReadReal;
|
|
radd := a + b;
|
|
rmult := a * b;
|
|
Print(radd,rmult);
|
|
end.
|
|
[3]
|
|
// Исправьте названия функций на правильные.
|
|
|
|
begin
|
|
var a := 2;
|
|
var b := sgrt(a);
|
|
Prnt(b);
|
|
a := -3;
|
|
b := ads(a);
|
|
Prnt(b);
|
|
end.
|
|
[4]
|
|
// Допишите программу.
|
|
// Увеличивайте a на 1 и выводите чтобы получить последовательность
|
|
// 1 2 3 4 5 6 7 8 9
|
|
|
|
begin
|
|
var a := 1;
|
|
Print(a);
|
|
a := a + 1;
|
|
Print(a);
|
|
|
|
end.
|
|
[5]
|
|
// Допишите программу.
|
|
// Увеличивайте a на 2 чтобы вывести последовательность нечетных чисел
|
|
// 1 3 5 7 9 11 13 15 17 19
|
|
|
|
begin
|
|
var a := 1;
|
|
Print(a);
|
|
a := a + 2;
|
|
Print(a);
|
|
|
|
end.
|
|
[6]
|
|
// Допишите программу.
|
|
// Увеличивайте a в 2 раза и выводите чтобы получить последовательность
|
|
// 2 4 8 16 32 64 128 256 512 1024
|
|
|
|
begin
|
|
var a := 2;
|
|
Print(a);
|
|
a := a * 2;
|
|
Print(a);
|
|
|
|
end.
|
|
[7]
|
|
// Поменяйте местами значения переменных b и c между вызовами Println.
|
|
// Используйте вспомогательную переменную v.
|
|
|
|
begin
|
|
var a := 2;
|
|
var b := 5;
|
|
var c := 3;
|
|
Println(a,b,c);
|
|
|
|
|
|
|
|
Println(a,b,c);
|
|
end.
|
|
[8]
|
|
// Между вызовами Print
|
|
// поменяйте местами значения переменных a и b,
|
|
// затем значения переменных c и d,
|
|
// дважды используя стандартную процедуру Swap.
|
|
|
|
begin
|
|
var a := 3;
|
|
var b := 1;
|
|
var c := 7;
|
|
var d := 5;
|
|
Println(a,b,c,d);
|
|
|
|
|
|
|
|
Println(a,b,c,d);
|
|
end.
|
|
|