Одномерный массив

@stasyano · Регистрация: 13.09.2009

Author24 — интернет-сервис помощи студентам

Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются простыми.
выручайте

@yanyk1n · 20.09.2009, 12:02

Pascal

prgogram jj;
uses crt;
var m:array[1..20]of real;
     i,n,j:integer;
     summ:real;
begin
 clrscr;
 write('Vvedite N: ');
 readln(n);
 for i:=1 to n do
 begin 
  write('M[',i,']: ');
  readln(m[i]);
 end;
 
 summ:=0;
 for i:=1 to n do
 begin
  for j:=1 to round(sqrt(i)) do
  begin
   if i mod j<>0 then break;
   summ:=summ+m[i];
  end;
 end;
 
 writeln('S=',summ:0:4);
 readln;
end.

@stasyano · 20.09.2009, 18:50 **[ТС]**

мм
спс огромное...правда она не определяет нужное)
хз что выводит, при вводе 1 2 3 4 5 она выводит 19

@yanyk1n · 20.09.2009, 19:13

Извиняюсь, я тогда очень торопился... Вот исправленный код:

Pascal

program kkk;
uses crt;
var m:array[1..20]of real;
     i,n,j:integer;
     summ:real;
     Flag:boolean;
begin
 clrscr;
 write('Vvedite N: ');
 readln(n);
 for i:=1 to n do
 begin 
  write('M[',i,']: ');
  readln(m[i]);
 end;
 
 summ:=0;
 for i:=1 to n do
 begin
  flag:=true;
  for j:=1 to round(sqrt(i)) do
  begin
   if i mod j<>0 then flag:=false;
   if flag then summ:=summ+m[i];
  end;
 end;
 
 writeln('S=',summ:0:4);
 readln;
end.

@stasyano · 20.09.2009, 19:39 **[ТС]**

опять не то считает

все так же, при вводе 1 2 3 4 5 выводит сумму в 19

@TAVulator · 20.09.2009, 19:50

держи решение:

Pascal

var
 N, A, i, j, S: integer;
 b: boolean;
Begin
 write('N= ');
 Readln(N);
 S:=0;
 For i:=1 to N do
  Begin
   Write('A[',i,']= ');
   readln(A);
   b:=true;
   For j:=2 to i-1 do
    if (i mod j)=0 then b:=false;
   If b then inc(S,A);
  End;
 Writeln('Result: ',S);
End.

@yanyk1n · 20.09.2009, 19:51

Pascal

program kkk;
uses crt;
var m:array[1..20]of real;
     i,n,j:integer;
     summ:real;
     Flag:boolean;
begin
 clrscr;
 write('Vvedite N: ');
 readln(n);
 for i:=1 to n do
 begin 
  write('M[',i,']: ');
  readln(m[i]);
 end;
 
 summ:=0;
 for i:=1 to n do
 begin
  flag:=true;
  for j:=1 to round(sqrt(i)) do if i mod j<>0 then flag:=false;
  if flag then summ:=summ+m[i];
 end;
 
 writeln('S=',summ:0:4);
 readln;
end.

@stasyano · 20.09.2009, 20:15 **[ТС]**

k1ry4 , опять ошибка в вычислениях

TAVulator какие переменные мне следует поместить в real ( в постановке задачи сказано, что последовательность состоит из дробных чисел)
s и еще какую то переменную?)

@yanyk1n · 20.09.2009, 20:23

теперь всё точно и корректно работает:

Pascal

summ:=0;
 for i:=2 to n do
 begin
  flag:=true;
  for j:=2 to round(sqrt(i)) do if i mod j=0 then flag:=false;
  if flag then summ:=summ+m[i];
 end;

@TAVulator · 20.09.2009, 20:24

stasyano, S и А

@stasyano · 20.09.2009, 21:06 **[ТС]**

TAVulator,
вот такая вот ошибка выдается , если переменные a и s перенести в тип real, : ordinal variable expected

Pascal

program de;
var
m: array[1..100] of real;
 N, A, i, j, S: integer;
 b: boolean;
Begin
 write('N= ');
 Readln(N);
 S:=0;
 For i:=1 to N do
  Begin
   Write('A[',i,']= ');
   readln(A);
   b:=true;
   For j:=2 to i-1 do
    if (i mod j)=0 then b:=false;
   If b then inc(S,A); {ошибка тут}
  End;
 Writeln('Result: ',S);
 readln;
End.

@TAVulator · 20.09.2009, 21:09

Сообщение от stasyano

вот такая вот ошибка выдается

замени

Pascal

inc(S,A);

на

Pascal

S:=S+A;

@stasyano · 20.09.2009, 21:14 **[ТС]**

k1ry4., я наверно что то делаю не так оО ну не считает, и все тут

Pascal

program kkk;
uses crt;
var m:array[1..20]of real;
     i,n,j:integer;
     summ:real;
     Flag:boolean;
begin
 clrscr;
 write('Vvedite N: ');
 readln(n);
 for i:=1 to n do
 begin 
  write('M[',i,']: ');
  readln(m[i]);
 end;
 
summ:=0;
 for i:=2 to n do
 begin
  flag:=true;
  for j:=2 to round(sqrt(i)) do if i mod j=0 then flag:=false;
  if flag then summ:=summ+m[i];
 end;
 writeln('S=',summ:0:4);
 readln;
end.

Добавлено через 2 минуты
огромное спасибо

вы внесли неоценимый вклад в мой отчет

Новые блоги и статьи
Преобразование полей (элементов управления содержимым) в обычный текст РоΜа 23.01.2025 Возникла необходимость преобразовать поля в текст (те, что на вкладке разработчик добавляются) . Помучившись родил следующее: Sub ПоляВТекст() Преобразует все поля в текст (даты, текст,. . .	Как проверить существование директории в скрипте Bash bt_guru 23.01.2025 При разработке скриптов Bash одной из ключевых задач является корректная работа с файловой системой, где особое место занимает проверка существования директорий. Эта операция становится критически. . .	Как работают срезы (slice) в Python bytestream 23.01.2025 Python предоставляет разработчикам мощный и гибкий инструмент для работы с последовательностями данных - срезы (slices). Эта функциональность позволяет извлекать, модифицировать и управлять. . .	Как удалить подмодуль (submodule) в Git bytestream 23.01.2025 При работе с крупными проектами в системе контроля версий Git разработчики часто сталкиваются с необходимостью управления зависимостями и внешними компонентами. Подмодули (submodules) представляют. . .	В чем разница между @staticmethod и @classmethod в Python. Декораторы методов bytestream 23.01.2025 В Python декораторы методов представляют собой мощный инструмент, позволяющий модифицировать поведение функций и методов без изменения их исходного кода. Эта возможность является одной из. . .	Как преобразовать InputStream в String в Java bytestream 23.01.2025 В мире Java-разработки работа с потоками данных является одной из ключевых операций при создании современных приложений. InputStream, как фундаментальный класс для обработки входных потоков данных,. . .
Как обновить форк (ответвление) репозитория в Git bytestream 23.01.2025 Одним из наиболее мощных инструментов Git для организации совместной работы является механизм форкинга репозиториев, который позволяет создавать независимые копии проектов для дальнейшей разработки. . . .	Как работает async/await в C#. Асинхронное программирование в .NET bytestream 23.01.2025 Введение в асинхронное программирование Асинхронное программирование представляет собой важнейшую концепцию современной разработки программного обеспечения, особенно в контексте создания. . .	КуМир: полное руководство bytestream 23.01.2025 Введение в КуМир: история создания и назначение КуМир (Комплект Учебных МИров) представляет собой образовательную среду программирования, которая была создана для обучения основам алгоритмизации и. . .	Что такое OLAP. Где и как использовать многомерный анализ данных bytestream 23.01.2025 Введение в OLAP-технологии В современном мире бизнес-аналитика и обработка больших массивов данных играют ключевую роль в принятии стратегических решений. Организации накапливают огромные объемы. . .	MongoDB: что это, для чего нужна и как использовать bytestream 23.01.2025 Введение в MongoDB: современная документоориентированная СУБД В современном мире разработки программного обеспечения выбор правильной системы управления базами данных является критически важным. . .	Как использовать закрытый ключ шифрования в Git. Шифрование в Git bytestream 23.01.2025 Установка и настройка закрытых ключей в Git предоставляет дополнительный уровень безопасности для работы с репозиториями. Для начала необходимо создать пару ключей, обычно это осуществляется с. . .

@stasyano 2 / 2 / 1 Регистрация: 13.09.2009 Сообщений: 132
		1
	Одномерный массив 20.09.2009, 11:10. Показов 835. Ответов 12 Метки нет (Все метки) Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются простыми. выручайте 0

@stasyano 2 / 2 / 1 Регистрация: 13.09.2009 Сообщений: 132
	20.09.2009, 18:50 [ТС]	3
	мм спс огромное...правда она не определяет нужное) хз что выводит, при вводе 1 2 3 4 5 она выводит 19 0

@stasyano 2 / 2 / 1 Регистрация: 13.09.2009 Сообщений: 132
	20.09.2009, 19:39 [ТС]	5
	опять не то считает все так же, при вводе 1 2 3 4 5 выводит сумму в 19 0

@stasyano 2 / 2 / 1 Регистрация: 13.09.2009 Сообщений: 132
	20.09.2009, 20:15 [ТС]	8
	k1ry4 , опять ошибка в вычислениях TAVulator какие переменные мне следует поместить в real ( в постановке задачи сказано, что последовательность состоит из дробных чисел) s и еще какую то переменную?) 0

@TAVulator ⚽ 4191 / 1292 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	20.09.2009, 20:24	10
	stasyano, S и А 0