1) Робот- это машина, которая запрограммирована на определенные действия, которые облегчают жизнь человеку. На самом деле, мы используем в быту довольно много роботов: та же стиральная машина-робот; пылесос- робот; компьютер-робот; автомобиль- тоже робот. Как видно, они здорово нам в жизни.
2) к первым роботам можно отнести механическую утку, которую изобрел основоположник робототехники, физик Жак де Вокансон.
Также к числу первых робототехников можно отнести и великого русского механика и физика Чебышева, который изобрел различные механические машины.
Поделитесь своими знаниями, ответьте на вопрос:
Написать в паскале программу: тебе программа приводит уравнение, ты вводишь ответ. 10 вопросов на счёт. далее идет подсчет правильных и неправильных ответов. выводится на экран "отлично" если больше 8, "хорошо" если больше 5 и "плохо" если меньше 5 правильных ответов. (идет начисление на каждый правильный ответ)
problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
countOfAnswers, counter: integer;
userAnswer: String;
begin
countOfAnswers := 0;
for counter:=0 to 9 do
begin
write('Введите ответ уравнения ', problems[counter], ' : ');
readln(userAnswer);
if userAnswer = answers[counter] then Inc(countOfAnswers);
end;
if countOfAnswers > 8 then writeln('Отлично')
else if countOfAnswers > 5 then writeln('Хорошо')
else writeln('Плохо');
end.