Решенные задачи на языке Паскаль
Страницы –» 1 * 2 * 3 * 4 * 5 * 6 * 7 * 8 * 9 * 10 * 11 * 12 * 13 * 14 * 15 * 16 * 17 * 18 * 19 * 20 * 21 * 22 * 23 * 24 * 25 * 26 * 27 * 28 * 29 * 30 * 31 * 32 * 33 * 34 * 35 * 36 * 37 * 38 * 39 * 40 * 41 * Разделы решенных задач
Условие задачи прислали на 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 сложить эти элементы.
Copyright © 2001
<A href="http://ad.strict.tbn.ru/bb.cgi?cmd=go&pubid=2846384&pg=1&vbn=353&num=1&w=468&h=60&nocache=920752&loc=http%3A//pascalstudy.narod.ru/exemple/3.html&ref=http%3A//pascalstudy.narod.ru/exemple/39.html" target="_top"><IMG src="http://ad.strict.tbn.ru/bb.cgi?cmd=ad&pubid=2846384&pg=1&vbn=353&num=1&w=468&h=60&nocache=920752&ref=http%3A//pascalstudy.narod.ru/exemple/39.html&loc=http%3A//pascalstudy.narod.ru/exemple/3.html" width=468 height=60 Alt="TBN -- The Banner Network" border=0></A>
Изучение языка программирования Турбо Паскаль
На этом сайте можно: скачать среду программирвания Турбо Пакаль, изучить язык программирования Турбо Паскаль, а так же скачать программы на языке Турбо Паскаль!
|