Автор: Воскресная компьютерная школа мехмата ЮФУ (sunschool.mmcs.sfedu.ru), 2016
CWA4Assign1.
// Опишите все необходимые переменные в разделе описаний
// до строки begin.
begin
read(a,b);
radd := a + b;
rmult := a * b;
Print(radd,rmult);
end.
CWA4Assign2.
// Опишите все необходимые переменные в тексте основной программы,
// поставив слово var перед первым использованием переменной.
begin
a := ReadReal;
b := ReadReal;
radd := a + b;
rmult := a * b;
Print(radd,rmult);
end.
CWA4Assign3.
// Исправьте названия функций на правильные.
begin
var a := 2;
var b := sgrt(a);
Prnt(b);
a := -3;
b := ads(a);
Prnt(b);
end.
CWA4Assign4.
// Допишите программу.
// Увеличивайте a на 1 и выводите чтобы получить последовательность
// 1 2 3 4 5 6 7 8 9
begin
var a := 1;
Print(a);
a := a + 1;
Print(a);
end.
CWA4Assign5.
// Допишите программу.
// Увеличивайте a на 2 чтобы вывести последовательность нечетных чисел
// 1 3 5 7 9 11 13 15 17 19
begin
var a := 1;
Print(a);
a := a + 2;
Print(a);
end.
CWA4Assign6.
// Допишите программу.
// Увеличивайте a в 2 раза и выводите чтобы получить последовательность
// 2 4 8 16 32 64 128 256 512 1024
begin
var a := 2;
Print(a);
a := a * 2;
Print(a);
end.
CWA4Assign7.
// Поменяйте местами значения переменных b и c между вызовами Println.
// Используйте вспомогательную переменную v.
begin
var a := 2;
var b := 5;
var c := 3;
Println(a,b,c);
...
...
...
Println(a,b,c);
end.
CWA4Assign8.
// Между вызовами 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.