В данном уроке мы рассмотрим операции умножения и сложения в 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