Question

6 класс Информатика Помогите пожалуйста срочно, даю 30!!! Составить программы, проверить работу в Паскаль, записать в тетрадь. 1. Вычислить значение у=7х2 -3х +6 при любом вводимом значении х. 2. Дана длина ребра куба. Найти объем куба и площадь боковой поверхности. 3. Дано число К. Определить, является ли оно четным. 4. Определить, является ли число А делителем числа В. 5. Уменьшить первое введенное число в 2 раза, если оно больше второго введенного. Наличие комментариев в программах обязательно.

Answer 1

Задача 1

var

 y, x: integer;// Объявляем переменные типа Integer

begin// Начало блока

 writeln('Введите X: '); //Выводим текст на экран

 read(x); //Читаем значение введеное с кливиатуры и записываем его в переменную

 y := 7 * x * 2 - 3 * x + 6; //Выолняем выражение

 writeln('Результат: ', y);// Выводим результат

end. // конец блока

Задача 2:

var

 a, b, c: integer;//Объявление переменных

begin

 write('Введите длину ребра куба '); //Вывод текста на экран

 read(a); //Читаем значение введеное с клавиатуры

 b := a * a * a; //Вычисляем объем куба

 c := 6 * sqr(a); //Sqr - квадрат числа

 {Далее опять же вывод результата}

 writeln('Объём куба равен ', b);

 writeln('Площадь боковой поверхности куба равна ', c);

end.

Задача 3

var

 k: integer;//Объявление переменных

begin

 write('Введите число: '); //Вывод текста на экран

 read(k); //Читаем значение введное с клавиатуры

 if Odd(k) then //Odd - возвращает True - если значение нечетно и False если четно

   writeln('Нечетное')

 else

   writeln('Четное');

end.

Задача 4:

var

 a, b: integer;

begin

 writeln('Введите a и b через пробел:');

 readln(a, b);

 if (b mod a = 0) then writeln('Число ', a, ' является делителем числа ', b)  

 else writeln('Число ', a, ' НЕ является делителем числа ', b);

end.

Задача 5:

var

 a, b: real;

begin

 writeln('Через пробел введите 2 числа: ');

 read(a, b);

 if a > b then //Условие если А больше Б

 begin

   a := a / 2; //Делим число А на 2 и выводим результат

   writeln('A:= ', a, ' B:= ', b);

 end

 else //Иначе оставляем все как и было

   writeln('A:= ', a, ' B:= ', b);

end.

Answer 2

Добро пожаловать в мир программирования! Ниже представлены программы на языке Pascal для решения каждой из ваших задач. Комментарии включены для лучшего понимания кода.

1. Вычислить значение у=7х2 - 3х + 6 при любом вводимом значении х.

pascalCopy code
program Task1;
var
  x, y: integer;
begin
  // Вводим значение x
  writeln('Введите значение x:');
  readln(x);
  
  // Вычисляем значение у
  y := 7 * x * x - 3 * x + 6;
  
  // Выводим результат
  writeln('Значение у равно: ', y);
end.

2. Дана длина ребра куба. Найти объем куба и площадь боковой поверхности.

pascalCopy code
program Task2;
var
  edgeLength, volume, surfaceArea: integer;
begin
  // Вводим длину ребра куба
  writeln('Введите длину ребра куба:');
  readln(edgeLength);
  
  // Вычисляем объем куба
  volume := edgeLength * edgeLength * edgeLength;
  
  // Вычисляем площадь боковой поверхности куба
  surfaceArea := 6 * edgeLength * edgeLength;
  
  // Выводим результат
  writeln('Объем куба равен: ', volume);
  writeln('Площадь боковой поверхности куба равна: ', surfaceArea);
end.

3. Дано число К. Определить, является ли оно четным.

pascalCopy code
program Task3;
var
  K: integer;
begin
  // Вводим число K
  writeln('Введите число K:');
  readln(K);
  
  // Проверяем, является ли число K четным
  if K mod 2 = 0 then
    writeln('Число K является четным.')
  else
    writeln('Число K является нечетным.');
end.

4. Определить, является ли число А делителем числа В.

pascalCopy code
program Task4;
var
  A, B: integer;
begin
  // Вводим числа A и B
  writeln('Введите число A:');
  readln(A);
  writeln('Введите число B:');
  readln(B);
  
  // Проверяем, является ли число A делителем числа B
  if B mod A = 0 then
    writeln('Число A является делителем числа B.')
  else
    writeln('Число A не является делителем числа B.');
end.

5. Уменьшить первое введенное число в 2 раза, если оно больше второго введенного.

pascalCopy code
program Task5;
var
  num1, num2: integer;
begin
  // Вводим первое и второе числа
  writeln('Введите первое число:');
  readln(num1);
  writeln('Введите второе число:');
  readln(num2);
  
  // Уменьшаем первое число в 2 раза, если оно больше второго
  if num1 > num2 then
    num1 := num1 div 2;
  
  // Выводим результат
  writeln('Первое число после проверки: ', num1);
end.

Надеюсь, эти программы помогут вам с вашими задачами по информатике! Удачи!