очень надово В данном фрагменте программы:program zadacha_2;beginwriteln (`ошибок нет`);writeln (5*5=, 25);end.ошибкой считают: некорректное имя программы; отсутствие переменной; не определенное имя переменной; ошибка в записи комментария при выводеВо Записать на языке Паскаль следующее выражение:у = 2х3 - 10х + 2 y:=2*x*x*х-10x+2 y:=2*x*x*х-10*x+2 y:=2x*х*x-10*x+2Во Укажите условие выбора чисел, кратных 3 или не кратных 4 (x mod 3 = 0) (x mod 3 = 0) or (x mod 4 <>0) (x mod 3 = 0) and (x mod 4 <>0)Во Какое значение примет переменная С в результате выполнения программы:var A, B, C: integer;beginA:=4; B:=A*4-6;if B<2*A then A:=2;if B>2*A then A:=5;C:=A*B+A;write(`C=`, C);end. 14 22 55 28Во Какой оператор позволяет вычислить квадрат числа? SQRT ABS SQRВо Как записать оператор вывода? writeln() readkey() readln()Во Значения переменных А и В перед выполнением фрагмента программы: А:=1; В:=10;Фрагмент:А:=А+В; В:=А-В; А:=А-В;После выполнения фрагмента значения А и В: останутся прежними поменяются местами станут равными соответственно сумме и разности прежних своих значенийВо Как записывается оператор ввода? writeln() readkey() readl()Во Операторы для организации диалога с пользователем в языке программирования - это... оператор ввода и оператор вывода условный оператор оператор циклаВо Назначение циклической структуры: повторение идущих подряд одинаковых команд некоторое число раз повторение одной команды не более 10 раз проверка условия в текстеВо Что называется массивом? совокупность конечного числа данных различных типов совокупность конечного числа данных одного типа совокупность бесконечного числа данных одного типаВо Как записывается оператор присваивания? а=:1 а=1 а:=1Во Укажите правильное описание массива:А. Var a: array[1..1000] of integer;Б. Var A, B, C: array[1...50, 1...50] of real;B. Var a: array[1..50] of integer;
Ответы
Uses GraphABC;
var a,b,c:array[10..99] of integer;
ast,bst,cst:string;
i:integer;
begin
ast:='A:';
bst:='Б:';
cst:='В:';
for i:=10 to 99 do
begin
c[i]:=i;
a[i]:=c[i]-i+random(50);
b[i]:=c[i]-a[i];
ast:=ast+' '+inttostr(a[i]);
bst:=bst+' '+inttostr(b[i]);
cst:=cst+' '+inttostr(c[i]);
end;
setpencolor(clRed);
line(0,0,150,0);
line(150,0,75,50);
line(75,50,0,0);
rectangle(0,50,150,300);
DrawTextCentered(0,50,150,300,ast);
setpencolor(clYellow);
line(150,0,300,0);
line(300,0,225,50);
line(225,50,150,0);
rectangle(150,50,300,300);
DrawTextCentered(150,50,300,300,bst);
setpencolor(clGreen);
line(300,0,450,0);
line(450,0,375,50);
line(375,50,300,0);
rectangle(300,50,450,300);
DrawTextCentered(300,50,450,300,cst);
end.
var a,b,c:array[10..99] of integer;
ast,bst,cst:string;
i:integer;
begin
ast:='A:';
bst:='Б:';
cst:='В:';
for i:=10 to 99 do
begin
c[i]:=i;
a[i]:=c[i]-i+random(50);
b[i]:=c[i]-a[i];
ast:=ast+' '+inttostr(a[i]);
bst:=bst+' '+inttostr(b[i]);
cst:=cst+' '+inttostr(c[i]);
end;
setpencolor(clRed);
line(0,0,150,0);
line(150,0,75,50);
line(75,50,0,0);
rectangle(0,50,150,300);
DrawTextCentered(0,50,150,300,ast);
setpencolor(clYellow);
line(150,0,300,0);
line(300,0,225,50);
line(225,50,150,0);
rectangle(150,50,300,300);
DrawTextCentered(150,50,300,300,bst);
setpencolor(clGreen);
line(300,0,450,0);
line(450,0,375,50);
line(375,50,300,0);
rectangle(300,50,450,300);
DrawTextCentered(300,50,450,300,cst);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Число 1110=1011 в шестнадцати разрядах будет записано следующим образом:&
Автор: AlekseiMardanova
Сұрақтарға жауап ! Зарание спс
Автор: mos-5nica
Интернетке тәуелділіктен қалай аулақ болуға болады? помагите мне
Автор: samsakovs7757
ответить на во по информатике
Автор: mmctriitsk
type
Point=record
x,y:real
end;
function GetPoint(c:char):Point;
begin
Writeln('Введите координаты точки ',c,':');
Read(Result.x,Result.y)
end;
function Line(A,B:Point):real;
begin
Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;
function SqTriangle(pA,pB,pC:Point):real;
begin
var a:=Line(pB,pC);
var b:=Line(pA,pC);
var c:=Line(pA,pB);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
var p:=(a+b+c)/2;
Result:=sqrt(p*(p-a)*(p-b)*(p-c))
end
else Result:=0
end;
begin
var A:=GetPoint('A');
var B:=GetPoint('B');
var C:=GetPoint('C');
Writeln('Площадь треугольника равна ',SqTriangle(A,B,C))
end.
Тестовое решение:
Введите координаты точки A:
-5 3.18
Введите координаты точки B:
1.45 6.2
Введите координаты точки C:
6 -5.93
Площадь треугольника равна 45.98975