Выберите правильное утверждение: a) алгоритм – это последовательность действий, необходимых для решения задачи; b) ориентированный граф, указывающий порядок выполнения некоторого набора команд; c) набор команд для компьютера; d) действия, строгое исполнение которых приводит к решению поставленной задачи за конечное число шагов. 2) Укажите описания алгоритмов: a) словесно-формульный, математический, логический; b) графический, на языке программирования, словесно-формульный; c) в виде графов, словесно, при псевдокодов; d) табличный, текстовый 3) Установите этапы решения задач на компьютере в порядке их выполнения: a) информационное или математическое моделирование; b) постановка задачи; c) разработка алгоритма; d) тестирование и отладка;
Ответы
Const
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.
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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
По логической схеме составить логическую функциюРебят
Автор: Наталья_Васищев
Дано трёхзначное число n определить является ли сумма первой и последней четным?
Автор: semenov-1970
Маратқа параллепипед құруға көмекиесіңіз
Автор: sahar81305
решить задачу на языке СИ! Составьте программу вычисления суммы элементов по строкам матрицы A (N, N)
Автор: olgaprevisokova302
Дан ряд от1 до 64. какое количество информации несет одно число из этого ряда?
Автор: cheremetdiana
Найдите количество двузначных чисел, которые делятся на сумму своих цифр.
Автор: marketing601
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
nmb:=0; s:=0;
k:=n; l:=1;
while k>0 do
begin
s:=k mod 10;
k:=k div 10;
nmb:=nmb+l*s;
l:=l*osn;
end;
Result:=nmb;
end;
{ конец функции}
begin
write('число: ');
readln(n);
write('квадрат какого числа: ');
readln(m);
osn:=10;
while osn>=2 do
begin
osn:=osn-1;
if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
begin
writeln('основание системы = ',osn);
break;
end;
end;
end.