В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Hi1666888888
Hi1666888888
25.05.2021 09:59 •  Информатика

8.Выясни, какие ошибки допущены в программе нахождения периметра прямоугольника. (2 ответа)
procedure TForm1.Button1Click(Sender:tobject);
var a,b,p integer;
begin
a=StrTolnt(Edit1.text) )
b= StrTolnt(Edity.text)
p=2*(a+b)
edit3.text=IntToStr(Р)
end
A
отсутствует символ разделитель
B
нет ошибок
C оператор присваивания
Д формула нахождения периметра не вверн


8.Выясни, какие ошибки допущены в программе нахождения периметра прямоугольника. (2 ответа)procedure

Показать ответ
Ответ:
Ficksik12345
Ficksik12345
04.04.2022 16:11
Попробуем сделать сортировку букв латинского алфавита.

const
  n = 20;
var
  a: array[1..n] of char;
  i, j: integer;
  t: char;
 
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Chr(random(26)+Ord('A'));
    Write(a[i],' ')
  end;
  Writeln;
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
  Writeln('Отсортированный по возрастанию массив');
  for i := 1 to n do Write(a[i],' ');
  Writeln
end.

Тестовое решение:
Исходный массив
G Z L H X A R E C F G X O T C L N U D L
Отсортированный по возрастанию массив
A C C D E F G G H L L L N O R T U X X Z
0,0(0 оценок)
Ответ:
123456531
123456531
15.04.2021 00:06
Var a,b,c,i,sum,cp:integer;
begin
sum:=0;
cp:=0;
Randomize;
writeln('Посчитайте сложение:');
while i<10 do
begin
a:=random(40)+10;
b:=random(60)+10;
sum:=a+b;
write('Сколько будет ',a,'+',b,'= ');
read(c);
if c=sum then begin
cp:=cp+1;
writeln('Молодец!');
end else writeln('Неправильно');
i:=i+1;
end;
writeln('Всего правильных ответов ',cp);
write('Оценка:');
if (cp<=4) then write('Очень плохо (2)') else
if (cp>=5) and (cp<=6) then write('Удовлетворительно (3)') else
if (cp>=7) and (cp<=8) then write('Хорошо (4)') else
if (cp>=9) then write('Отлично! (5)');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота