В данном уроке мы рассмотрим операции умножения и сложения в Pascal. Умножение в Pascal обозначается знаком «*», а сложение - знаком «+».
Строка №3. В раздел описания переменных Var записываем 3 переменные «A,B,C» и в дальнейшем мы будем использовать только эти три переменные. После записи переменных через двоеточие указывается тип данных INTEGER (целый). Это означает, что наши переменные «A,B и C» могут быть только целыми числами.
В строке №6 мы присваиваем переменной «A» значение равное 5. Сначала записывается сама переменная, затем ставится знак присваивания (:=), а затем пишем число, которое нужно присвоить. Таким образом, на данном этапе в переменную «A» записывается значение равное 5.
В строке №7 записываем оператор Writeln. Этот оператор выводит сообщение, указанное в скобках на экран. Обратите внимание, что переменная «A», записанная в скобках после оператора Writeln стоит без апострофов ‘ ‘, поэтому на экран выведется не сама буква «A», а то значение, которое мы ей присвоили выше, т.е. число 5.
Строка №8. Здесь буква «A» стоит уже в апострофах, поэтому она сама и выведется на экран.
В строке №9 нашей переменной «A» мы присвоили значение «A+1», т.е. то значение, которое раньше было у «A» (это число 5), мы увеличили на 1 (теперь «A» равна 6). Здесь следует сказать, что при присвоении переменной нового значения, старое значение стирается. Т.е. если раньше в переменной «A» содержалось значение 5, то после выполнения строки №9 число 5 удалится и в переменной будет содержаться новое значение 6.
В строке №10 выводим на экран сообщение «Теперь A=». Это сообщение берется в апострофы, а далее через запятую записываем переменную «A». Т.е. на экран у нас выведется сообщение «Теперь A=» и значение переменной «A» (т.е. число 6).
В строке №11 второй переменной «B» мы присвоили значение 7.
В строке №12 третей переменной «C» мы присвоили значение «A» умноженное на «B». Знак * означает в паскале операцию умножения. Таким образом «C» теперь равно 6*7=42.
Строка №13.На экран будет выведено сообщение «Произведение=», а затем на этой же строчке будет выведено значение, которое мы присвоили переменной C.
Теперь наберем эту программу в Паскале и запустим ее.


Комментарии
program number6;
uses crt;
var A, B, C: integer;
begin
clrscr;
A:=5;
writeln (A);
writeln ('A составляет=', A');
A:=A+1;
writeln ('Прибавим к A единицу');
Writeln ('Теперь A=',A);
B:=7;
C:=A*B;
writeln ('Найдём C путём умножения A на B, B=',B);
writeln ('С=', C);
Readln
end.
Или я не прав?
Составить программы:
1. Нахождение произведения двух наименьших из трех различных чисел (например, для чисел 2, 3 ,5 произведение равно 6)
2. Определение времени года в зависимости от введённого месяца (например, январь - зима)
uses crt;
var Первое_число, Второе_число, Ответ: integer;
begin
clrscr;
Первое_число:=96;
writeln ('Решение...');
Writeln (' первое число=',Первое_ число);
Второе_число:=90;
Writeln (' а второе=',Второе _число);
Ответ :=Первое_число-Второе_число;
writeln ('Ответ=', Ответ);
Readln
end.
я так сделал
Второе_число:=90
Пишем любую величину
А там где Ответ :=Первое_число-Второе_число;
Мелто - любой знак
Помогите!!!
uses crt;
var A, B, C: integer;
begin
clrscr;
A:=5;
write (A);
A:=A+1;
Write ('*');
Writeln (A);
B:=7;
C:=A*B;
writeln ('Произведение= ', C);
Readln
end.
and warmth. Let the tender harmonies embrace
you like a gentle hug, perfect for quiet nights, heartfelt memories,
or moments shared with someone special.
Look into my webpage - lifeearth17: http://dinamicamail.com/__media__/js/netsoltrademark.php?d=Beautybrands.my.id%2F2025%2F04%2F03%2Flagu-indonesia-yang-mengena-di-hati-melodi-yang-menyentuh-jiwa%2F
to a few buddies ans also sharing in delicious. And of course, thanks on your sweat!
Here is my web site - jualfoodtruck: https://yachtschool17.bravejournal.net/warung-kaos-kuliner-mewujudkan-cita-cita-dengan-desain-food-truck
Изучите надежные источники для получения качественного контента.
Feel free to surf to my web page - mom hd com: https://Kolab.network/pricing/
You definitely know what youre talking about, why throw away
your intelligence on just posting videos
to your weblog when you could be giving us something informative to read?
Look into my page :: khủng bố giết người: https://www-ga888.com/
Keep up the terrific works guys I've incorporated you guys to my personal blogroll.
My page; Digital Signage: https://Datavis.co.id/
My last blog (wordpress) was hacked and I ended up losing several weeks of hard work due to no back up.
Do you have any solutions to prevent hackers?
My blog Live Draw Sgp: http://128.199.234.73/