Автор: Воскресная компьютерная школа мехмата ЮФУ (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.