Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Tanya_d
0 / 0 / 1
Регистрация: 06.10.2013
Сообщений: 2
#1

не могу понять, в чем ошибка - Turbo Pascal

06.10.2013, 23:52. Просмотров 278. Ответов 0
Метки нет (Все метки)

а задача такая: в одномерном массиве состоящем из n вещественных чисел найти: сумму положительных элементов с нечетными номерами, минимальную сумму трех соседних элементов, сформировать новый массив состоящий из элементов исходного массива, равных предпоследнему элементу.
Delphi
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
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  const nmax=50;
  type tmas= array[1..nmax] of Real;
  var a,b:tmas;
  sum,mins:LongInt;
  n,i,j:Integer;
begin
 Writeln('Razmer massiva ');
 Readln(n);
 Writeln('Vvedite elementi massiva v odnoi stroke cherez probel, v konce nagzmite ENTER');
 for i:=1 to n do read(a[i]);
 for i:=1 to n do Write(a[i]:7:2);
 Writeln;
 sum:=0;
 for i:=1 to n do
 begin
 if (a[1]>0) and (i mod 2<>0) then
 sum:= sum+ a[i];
 mins:= a[i] + a[i+1] + a[i+2];
 end;
 for i:=2 to(n-2) do
 begin
 if (a[i]+a[i+1]+a[i+2])<mins then
 mins:=a[i]+a[i+1]+a[i+2];
 b[j]:=a[n-1];
 Writeln('Noviy massiv');
 for j:=1 to n do write(b[j]:7:2);
 Writeln;
 end;
 Writeln('Summa theh sosednih elementov = ',sum:7:2);
 Writeln('Minimalnaya summa treh sosednih elementov = ',mins:7:2);
 Readln;
end.
подозреваю, что неправильно тут все, ибо в программировании я не шарю вообще...
http://www.cyberforum.ru/turbo-pascal/thread677731.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2013, 23:52
Я подобрал для вас темы с готовыми решениями и ответами на вопрос не могу понять, в чем ошибка (Turbo Pascal):

Программа метода дихотомии для нахождения экстремумов не работает, не могу понять в чем ошибка
program dihotomia; var a0,b0,eps,l,y,z,fy,fz,X:real; begin writeln...

Никак не могу понять почему идет ошибка при подсчете среднего значения
Вычислить среднее арифметическое кодов элементов отсортированного массива,...

Не могу понять в чем моя ошибка
Что нужно сделать: Дано натуральное число n. Вычислить 2/1+3/2+4/3+...+n+1/n...

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

Посмотрите пожалуйста,не могу понять,в чем завоздка,что не там...
задание на фотке(( program pr_2_3; uses crt,Linear_algebra; const WG=100;...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2013, 23:52
Привет! Вот еще темы с решениями:

где ошибка? понять не могу.
получить действительную матрицу 7*7, для которой а=1/i+j program laba31;...

Найти радиус описанной окружности по трем сторонам. не могу понять где ошибка!
program raduys; function rad(var a,b,c:real):real; var r,p,s:real; begin...

Нужно найти в чем ошибка, сам не могу:)
Нужно найти в чем ошибка, сам не могу:)

Не могу понять, почему программа работает неправильно( Знаю, что где-то ошибки, но не могу найти
{Ввести последовательность натуральных чисел Aj j=1...n (n&lt;=1000)....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru