Записать на языке Pascal следующее выражение: y=5x^2+10x+2;
Y:=5*x*x+10*x+2;
Y:=5*x*x+10x+2;
Y:=5x*x+10x+2.
Имеется условный оператор:
If D<>10 Then writeln (‘Ура’) Else writeln (‘Плохо…’);
Можно ли заменить его следующими операторами:
If D<>10 Then writeln (‘Плохо…’) Else writeln (‘Ура’);
If Not(D=10) Then writeln (‘Плохо…’) Else writeln (‘Ура’);
If Not(D<>10) Then writeln (‘Плохо…’) Else writeln (‘Ура’).
Как записывается в Паскале условие ≠:
≠;
<>;
:=.
Формат полного оператора ветвления следующий:
If <логическое выражение> else <оператор2>;
If <логическое выражение> then <оператор1> else <оператор2>;
If <логическое выражение> then <оператор1>.
Оператор цикла с предусловием в Паскале имеет следующий формат:
Write<выражение> do <оператор>;
Writeln <выражение> go <оператор>;
While <выражение> do <оператор>.
Какой оператор позволяет вычислить корень квадратный из числа?
SQR;
ABS;
SQRT.
Назначение циклической структуры:
Повторение идущих подряд одинаковых команд некоторое число раз;
Повторение одной команды не более 10 раз;
Проверка условия в тексте.
Какое значение примет переменная С в результате выполнения программы:
Var A, B, C: integer;
Begin
A:=4;
B:=A*3-6;
If B>2*A Then A:=2;
IF B<2*A Then A:=5;
If B=2*A Then A:=B-A;
C:=A*B+A-B;
Writeln (‘C=’, C);
End.
8;
22;
29.
Какая строка из перечисленных описывает символьную переменную на языке Паскаль:
Var x: integer;
Var x: char;
Var x: real.
Оператор для организации ветвления в языках программирования – это…
Оператор для организации диалога с пользователем;
Условный оператор, оператор выбора;
Оператор цикла.
Оператор для организации диалога с пользователем в языках программирования – это…
Оператор ввода и оператор вывода;
Условный оператор, оператор выбора;
Оператор цикла.
Значения переменных А и В после выполнения фрагмента программы А:=1; В:=10;
А:=А+В; В:=А-В; А:=А-В;
Останутся прежними;
Поменяются местами;
Станут равными соответственно сумме и разности прежних своих значений.
Какие значения примут переменные C и D в результате выполнения программы:
Program vvv1;
Var A, B, C, D: integer;
Begin
A:=6;
B:=2*A+8;
If B>A Then C:=B-A Else D:=A-B;
Writeln (‘C=’, C); Writeln (‘D=’, D);
End.
C=14, D=0;
C=38, D=14:
C=14, D=-14.
Какие значения примут переменные C и D в результате выполнения программы:
Program vvv2;
Var A, B, C, D: integer;
Begin
A:=7;
B:=2*A-3;
If B>A Then C:=B-A Else D:=A-B;
Дано:
В коробке меньше 9-ти, но больше 3-х шаров.
Согласно условию задачи, количество шаров — множество чисел от 3 (не включительно) до 9 (не включительно), следовательно ответом может быть любое число из этого промежутка. Подходит только вариант D) 5.
ответ: D) 5.
------------------------
Второй вариант решения
Начертим координатную прямую, укажем точки 3, 9 (выколотые, потому что неравенство строгое) и покажем графически, чему принадлежит x (за икс возьмём количество шаров в коробке).
x ∈ (3;9) или 3 < x < 9. Значит, ответ — D) 5 шаров.
ответ: D) 5
function
Conv(x:byte):string;{функция преобразования чисел в строку(маска вывода)}
var
s,t:string;
beginstr(x,t);{преобразуем число в строку}
if x=0 then s:='00'{если это ноль}else
if (x>0)and(x<=9) then s:='0'+t
{если однозначное число}
else s:=t;{двухзначное число}
Conv:=s;
end;
var ch1,mn1,sc1:byte;{начальное время}
chd,mnd,scd:byte;{добавленное время}
chr,mnr,scr:byte;{результат}
mn,ch:byte;{добавление 1 к минутам и часам, если секунд или минут >60}
begin
clrscr;
writeln('Vvedite nachalnoe vremya:');
write(' Chasy=');
readln(ch1);
write(' Minuty=');
readln(mn1);
write(' Secundy=');
readln(sc1);
writeln('Vvedite pribavlennoe vremya:');
write(' Chasy=');
readln(chd);
write(' Minuty=');
readln(mnd);
write(' Secundy=');
readln(scd);
scr:=(sc1+scd) mod 60;
mn:=(sc1+scd)div 60;
mnr:=(mn1+mnd+mn) mod 60;
ch:=(mn1+mnd+mn) div 60;
chr:=(ch1+chd+ch) mod 24;
clrscr;writeln('Nachalnoe vremya');
writeln(Conv(ch1),':',Conv(mn1),':',Conv(sc1));
writeln('vremy pribavlenia');
writeln(Conv(chd),':',Conv(mnd),':',Conv(scd));
writeln('konechnoe vremya');
writeln(Conv(chr),':',Conv(mnr),':',Conv(scr));
readkey;
end.