Изучение языка программирования
Турбо Паскаль (Turbo Pascal)

На этом сайте можно: скачать среду программирвания Турбо Паскаль, изучить язык программирования Турбо Паскаль, а так же скачать программы на языке Турбо Паскаль!
Решенные задачи на языке Паскаль



Условие задачи прислали на e-mail.

Даны действительные числа Х1...Хn в последовательности Х1...Xn. Все члены меньше двух заменить нулями и получить сумму, пренадлежащую отрезку [3,7] (решить через массив).

VAR
  a:array[1..99]of real;
  n,i:word;
  summa:real;

BEGIN
					{ 1). Количество элементов в массиве}
  write('Сколько чисел в массиве (больше 6): ');
  readln(n);
  if n<7 then halt;

					{ 2). Запись чисел в массив}
  for i:=1 to n do
    begin
    write('Введите значение ',i,'-го элемента массива: ');
    readln(a[i]);
    end;

					{ 3). Замена элементов меньших 2 на 0}
  writeln;
  writeln('Результат замены элементов меньших 2 на 0:');
  for i:=1 to n do
    begin
    if a[i]<2 then a[i]:=0;
    writeln('Значение ',i,'-го элемента : ',a[i]:2:2);
    end;

					{ 4). Получение суммы элементов от 3 до 7}
  writeln;
  summa:=0;
  for i:=3 to 7 do summa:=summa+a[i];
  writeln('Сумма элементов от 3 до 7 равна ',summa:2:2);
END.
* переменная a - исходный массив с максимальным числом элементов 99
* переменные n,i - переменные для количества элементов и для цикла
* переменная summa - для подсчета суммы элементов в интервале от 3 до 7.

Решение этой задачи я разбил на 4 части: количество элементов в массиве, запись чисел в массив, замена элементов меньших 2 на 0, получение суммы элементов от 3 до 7.

Количество элементов в массиве
Так как мы не знаем сколько элементов в цикле, то поэтому нужно запрашивать количество элементов от пользователя (ввод с клавиатуры). При этом надо учесть, что число элементов не может быть меньше 7 так как в задаче сказано "... получить сумму, пренадлежащую отрезку [3,7]". Поэтому ставим условие if n<7 then halt; - если введеное число меньше 7, то программа завершает работу.

Запись чисел в массив
После того как программа знает сколько будет элементов в массиве, нужно с помощью цикла присвоить каждому элементу свое значение.

Замена элементов меньших 2 на 0
После того как получен массив (т.е. те действительные числа Х1...Хn), нужно все члены меньше двух заменить нулями.

Получение суммы элементов от 3 до 7
Для получения суммы элементов от 3 до 7 нужно просто в цикле от 3 до 7 сложить эти элементы.