Датчик сөзінің мәнін, түс датчигінің түс, дыбыс, жарық-сәуле, температура, жылдамдықты өлшейтінін біледі; Датчиктердің қызметіне қарай 4 түрге бөлінетінін анықтайды.
Роботтың тірі организм принциптеріне негізделіп жасалатын автоматты құрылғы екенін біледі. .
Оқушылардың басым бөлігі: Түс датчигіндегі жарық деңгейін анықтайтын 8 түрлі түстің кодын біледі. Негізгі оқу-жаттығу роботының атын біледі;
Кейбір оқушылар: Түс датчигінің екі түрге электронды және механикалық болып бөлінетінін, оның үш режимін: Түс режимін, Шағылысқан жарық жарықтылығы, Сыртқы жарық жарықтылығы режимдерін біледі. LEGO MINDSTORMS EDUCATION EV3 программасын аша алады. Программа мәзірінен Нұсқаулықпен (Инструкция) танысып, роботтың құрастырылуын біледі.
writeln ('Введите число, которое будем возводить в степень');
readln (a);
writeln ('Введите число, обозначающее степень, в которую будем возводить');
readln (b);
Writeln (a,' в степени ',b,' = ',exp(b*ln(a)));
end.
Извиняюсь за неправильный ответ. Не увидел, что вам нужно с циклом. Тогда лучше так...
Program vozvedenie_v_stepen; var a,b,c,d:integer; begin writeln ( 'Введите число, которое будем возводить в степень' ); readln (a); c:=a; writeln ( 'Введите число, обозначающее степень, в которую будем возводить'); readln (b); for d:= 2 to b do a:=a*c; if b=0 then writeln(1) else writeln (c,' в степени ',b,' = ',a); end.
Датчик сөзінің мәнін, түс датчигінің түс, дыбыс, жарық-сәуле, температура, жылдамдықты өлшейтінін біледі; Датчиктердің қызметіне қарай 4 түрге бөлінетінін анықтайды.
Роботтың тірі организм принциптеріне негізделіп жасалатын автоматты құрылғы екенін біледі. .
Оқушылардың басым бөлігі: Түс датчигіндегі жарық деңгейін анықтайтын 8 түрлі түстің кодын біледі. Негізгі оқу-жаттығу роботының атын біледі;
Кейбір оқушылар: Түс датчигінің екі түрге электронды және механикалық болып бөлінетінін, оның үш режимін: Түс режимін, Шағылысқан жарық жарықтылығы, Сыртқы жарық жарықтылығы режимдерін біледі. LEGO MINDSTORMS EDUCATION EV3 программасын аша алады. Программа мәзірінен Нұсқаулықпен (Инструкция) танысып, роботтың құрастырылуын біледі.
Я бы написал по другому
Program vozvedenie_v_stepen;
var a,b:integer;
begin
writeln ('Введите число, которое будем возводить в степень');
readln (a);
writeln ('Введите число, обозначающее степень, в которую будем возводить');
readln (b);
Writeln (a,' в степени ',b,' = ',exp(b*ln(a)));
end.
Извиняюсь за неправильный ответ. Не увидел, что вам нужно с циклом. Тогда лучше так...
Program vozvedenie_v_stepen;
var a,b,c,d:integer;
begin
writeln ( 'Введите число, которое будем возводить в степень' );
readln (a);
c:=a;
writeln ( 'Введите число, обозначающее степень, в которую будем возводить');
readln (b);
for d:= 2 to b do
a:=a*c;
if b=0 then
writeln(1)
else
writeln (c,' в степени ',b,' = ',a);
end.