Question

Помогите с Паскалем пожалуйста) Паскаль АВС) 1)Написать программу, которая вычисляет сумму первых n членов ряда 1, 3, 5, 7,… Количество суммируемых членов ряда задается во время работы программы (используя цикл с параметром).2) Решить задачу 4 используя цикл с предусловием. 3)Решить задачу 4 используя цикл с постусловием.4 задача ниже- Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 руб. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). Вычисление стоимости покупки с учетом скидки.Введите сумму покупки и нажмите <Enter>=1200Вам предоставляется скидка 10%Сумма покупки с учетом скидки: 1080.00 руб.

Answer 1

Задача 1 Программа проверена для первых четырех элементов (=16)

Answer 2

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

1. Цикл с параметром

pascalCopy code
program SumOfOddNumbers;

var
  n, i, sum: integer;

begin
  write('Enter the number of terms to sum: ');
  readln(n);
  
  sum := 0;
  for i := 1 to n do
  begin
    sum := sum + (2*i-1);
  end;
  
  writeln('The sum of the first ', n, ' odd numbers is: ', sum);
  
  readln;
end.

2. Цикл с предусловием

pascalCopy code
program SumOfOddNumbers;

var
  n, i, sum: integer;

begin
  write('Enter the number of terms to sum: ');
  readln(n);
  
  sum := 0;
  i := 1;
  while i <= n do
  begin
    sum := sum + (2*i-1);
    i := i + 1;
  end;
  
  writeln('The sum of the first ', n, ' odd numbers is: ', sum);
  
  readln;
end.

3. Цикл с постусловием

pascalCopy code
program SumOfOddNumbers;

var
  n, i, sum: integer;

begin
  write('Enter the number of terms to sum: ');
  readln(n);
  
  sum := 0;
  i := 1;
  repeat
    sum := sum + (2*i-1);
    i := i + 1;
  until i > n;
  
  writeln('The sum of the first ', n, ' odd numbers is: ', sum);
  
  readln;
end.

4. Вычисление стоимости покупки с учетом скидки

pascalCopy code
program PurchaseDiscount;

var
  amount, discountedAmount: real;

begin
  write('Enter the purchase amount: ');
  readln(amount);
  
  if amount > 1000 then
  begin
    discountedAmount := amount * 0.9;
    writeln('You are eligible for a 10% discount');
    writeln('The discounted price is: ', discountedAmount:0:2, ' rubles');
  end
  else
  begin
    discountedAmount := amount;
    writeln('Sorry, the purchase amount is not enough to be eligible for a discount');
  end;
  
  readln;
end.

Я надеюсь, что эти решения помогут вам лучше понять, как использовать циклы и условные операторы в языке Pascal. Если у вас есть какие-либо вопросы, не стесняйтесь задавать их мне.