Question

Помогите пожалуйста! Все задачи нужно выполнить в Паскале. 1. Рассчитать значения y при каждом х. х= 3, 4, ..., 15: y = 7t3 - 6t +10, если t = x - 2. 2. Составить программу, которая запрашивает пароль (двузначное число + 4 символа) до тех пор, пока он не будет правильно введен. Верный пароль должен быть задан в виде константы. 3.Из натурального трехзначного числа удалить заданную цифру. Число и цифру вводить с клавиатуры. 4. Вводится четырёхзначное число (xysz). Вывести сумму xy + sz. Начальные данные необходимо ввести с клавиатуры. В отчет включить коды программ на Паскале и результаты работы в виде скриншотов окна программ. Все необходимые входные данные задать самостоятельно.

Answer 1

1 программа:

var x, y, t:integer;

begin

 for x:=3 to 15 do begin

   writeln('x = ', x);

   t := x - 2;

   y := 7*t*3-6*t+10;

   writeln('y = ', y);

   writeln('');

 end;

end.

_____________________________________________

2 программа:

const pass ='45xlua';

var x:string;

a:boolean;

begin

 a:= false;

 while a<>true do begin

    writeln('Введите пароль');

    readln(x);

    if x = pass then begin

      a:=true;

      writeln('Пароль верный');

      end

    else

      writeln('Пароль неверный, введите еще раз');

    writeln('');

 end;

end.

________________________________________________

4 программа:

var a, a1, a2, x, kol:integer;

begin

writeln('Введите четырёхзначное число');

readln(a);

x := a;

while x<>0 do begin

  x:= x div 10;

  kol:= kol + 1;

  end;

 if (kol = 4) then begin

   a1 := a div 100;

   a2:= a mod 100;

   writeln(a1+a2);

 end

  else

    writeln('Число не является четырёхзначным');

end.

Answer 2

Конечно, я помогу вам с этими задачами на языке программирования Паскаль. Вот решения для каждой из задач:

1. Рассчитать значения y при каждом x:

pascalCopy code
program Task1;
var
  x: integer;
  y: real;
begin
  for x := 3 to 15 do
  begin
    y := 7 * power(x - 2, 3) - 6 * (x - 2) + 10;
    writeln('x = ', x, ', y = ', y);
  end;
end.

2. Программа для ввода пароля:

pascalCopy code
program Task2;
const
  correctPassword = '12ab'; // Здесь задайте верный пароль

var
  password: string;
begin
  repeat
    write('Введите пароль (двузначное число + 4 символа): ');
    readln(password);
  until password = correctPassword;

  writeln('Пароль введен правильно.');
end.

3. Удаление заданной цифры из трехзначного числа:

pascalCopy code
program Task3;
var
  number, digit, result: integer;
begin
  write('Введите трехзначное число: ');
  readln(number);

  write('Введите цифру для удаления: ');
  readln(digit);

  if (number >= 100) and (number <= 999) then
  begin
    result := (number div 100) * 10 + (number mod 10); // Удаление цифры
    writeln('Число после удаления: ', result);
  end
  else
    writeln('Введите корректное трехзначное число.');
end.

4. Вычисление суммы xy + sz:

pascalCopy code
program Task4;
var
  x, y, s, z, sum: integer;
begin
  write('Введите четырёхзначное число xysz: ');
  readln(x);
  y := x div 1000;
  z := x mod 10;
  x := x div 10;
  s := x mod 10;
  x := x div 10;

  sum := y * 10 + x + s * 10 + z;
  writeln('Сумма xy + sz = ', sum);
end.

Пожалуйста, используйте эти программы в среде разработки Паскаль для решения соответствующих задач.