Опишете с едноредов коментар какво се случва на всеки ред от програмата. Напишете за какво служи тя:
Програма 1:
program project1; var a, b, c: integer; begin Write('Vavedete dve chisla:'); ReadLn(a, b); c:= a; a:= b; b:= c; WriteLn('Chislata sega sa ', a, ' i ', b); ReadLn; end.
Програма 2:
program project1; var a, b: integer; begin Write('Vavedete dve chisla: '); ReadLn(a, b); a:= a + b; b:= a - b; a:= a - b; WriteLn('Chislata sega sa: ', a, ' ', b); ReadLn; end.
Тук защо не си обяснила за редове от 7-ми до 12-ти? Подобно е, виж си в тетрадката…
Програма 1
program project1; //именуваме програмата project1
var //декларираме променливите
a, b, c: integer; //декларираме променливите a,b,c и отбелязваме, че са цели числа
begin //начало на програмата
Write(‘Vavedete dve chisla:’); //извежда се на екрана “Въведете две числа“
ReadLn(a, b); //въвеждаме от клавиатурата стойности за променливите a и b
c:= a; //променливата c присвоява стойността на променливата a
a:= b; //променливата a присвоява стойността на променливата b
b:= c; //променливата a присвоява стойността на c
WriteLn(‘Chislata sega sa ‘, a, ‘ i ‘, b); //извежда на екрана “Числата сега са“ и получените след присвояването стойности на променливите а и b
ReadLn; //не чете останалото до края на реда
end. //край на програмата
Програма 2
program project1; //начало на програмата, именувана project1
var //декларираме променливите
a, b: integer; // декларираме променливите a,b, които са цели числа
begin //начало на програмата
Write(‘Vavedete dve chisla: ‘); //извежда на екрана “Въведете две числа“
ReadLn(a, b); //въвеждат се от клавиатурата стойностите на променливите a,b
a:= a + b; //променливата а присвоява сборът на а и b
b:= a – b; //b присвоява разликата на а и b
a:= a – b; //а присвоява разликата на а и b
WriteLn(‘Chislata sega sa: ‘, a, ‘ ‘, b); //извежда на нов ред “Числата сега са“ и стойностите на а и b след присвояването
ReadLn; //не чете останалото до края на реда
end. //край на програмата