Подпрограммы. Получить удвоенную сумму всех положительных членов последовательности с помощью функции

@igor913 · Регистрация: 03.11.2011

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

Даны натуральное число n и действительные a1,…,an, где n=100.
Получить удвоенную сумму всех положительных членов последовательности a1,…,an.

прога не хочет работать, вылетают ошибки на каждом этапе.

Pascal

var a: array [1..100] of double;
 n, i: 1..100; 
 s: double;
begin
readln(n);
for i := 1 to n do readln(a[i]);
  s := 0;
for i := 1 to n do 
  if a[i] > 0 then s := s + a[i];
 
s := s * 2;
writeln(s:10:10);
readln;
end.

@EMKorD · 04.11.2011, 01:26

я уже тебе ответил тут

@igor913 · 13.11.2011, 23:43 **[ТС]**

надо только что бы пользователю писала что надо делать (в ведите первое число , второе число и т.д)

Pascal

var a: array [1..100] of real;
  n, i: 1..100;
  s: real;
begin
writeln ('в веди число цифр');
readln(n);
for i := 1 to n do readln(a[i]);
  s := 0;
for i := 1 to n do
  if a[i] > 0 then s := s + a[i];
  writeln ('вывод удвоенной суммы цифр');
  s := s * 2;
writeln(s:10:1);
readln;
end.

@КонецСвета · 13.11.2011, 23:54

[quote=igor913;2168078]писала что надо делать[/quoЧто, только это?

Pascal

uses crt;
var a: array [1..100] of real;
n, i: 1..100;
s: real;
begin
writeln ('Введите количество элементов массива');
readln(n);
for i := 1 to n do
    BEGIN
    write ('Введите ', i, ' элемент массива ');
    readln(a[i]);
    end;
s := 0;
for i := 1 to n do
if a[i] > 0 then s := s + a[i];
write ('Удвоенная сумма элементов массива =');
s := s * 2;
writeln(s:10:1);
readln;
end.

@shum_ont · 13.11.2011, 23:55

Pascal

var a: array [1..100] of real;
n, i: 1..100;
s: real;
begin
write('Введи число цифр: ');
readln(n);
for i := 1 to n do begin
   write('введи ', i, ' число: ');
   readln(a[i]);
end;
s := 0;
for i := 1 to n do
   if a[i] > 0 then s := s + a[i];
      writeln ('вывод удвоенной суммы цифр');
s := s * 2;
write(s:10:1);
end.

@igor913 · 13.11.2011, 23:57 **[ТС]**

спасибо

@igor913 · 19.12.2011, 14:21 **[ТС]**

Даны натуральное число n и действительные a1,…,an, где n≤3000. Получить удвоенную сумму всех положительных членов последовательности a1,…,an.

a1,…,a3000 заполнить рандомными числам

Pascal

var a: array [1..300] of real;
  n, i: 1..300;
  s: real;
begin
readln(n);
for i := 1 to n do readln(a[i]);
  s := 0;
for i := 1 to n do
  if a[i] > 0 then s := s + a[i];
 
  s := s * 2;
writeln(s:10:10);
readln;
end.

@КонецСвета · 19.12.2011, 16:26

если хочешь заполнить дробными, делай так:

Pascal

var a: array [1..300] of real;
 n,i: 1..300;
 s: real;
 begin
 readln(n);
 s := 0;
 for i := 1 to n do
    begin
    a[i]:=(random(201)-100)/(random(9)+1);
    write(a[i]:6:1);
    if a[i]>0 then s:=s+a[i];
    end;
 s := s * 2;
 writeln;
 writeln(s:10:10);
 readln;
 end.

если целыми - так

Pascal

var a: array [1..300] of real;
 n,i: 1..300;
 s: real;
 begin
 readln(n);
 s := 0;
 for i := 1 to n do
    begin
    a[i]:=random(201)-100;
    write(a[i]:6:1);
    if a[i]>0 then s:=s+a[i];
    end;
 s := s * 2;
 writeln;
 writeln(s:10:10);
 readln;
 end.

@WebMax 2.0 · 22.12.2011, 22:16

Pascal

Uses crt;
 
var n,i:integer;
sum,z:real;
function Summa(x:real):real;
begin
if x>0 then Summa:=x;
end;
 
begin
   randomize;
   Write('N = ');readln(n);
   For i:=1 to n do
   begin
   z:=random*51-25;
   sum:=sum + Summa(z);
   end;
   Writeln('Удвоенная сумма = ',sum*2:0:5);
end.

@igor913 · 22.12.2011, 22:31 **[ТС]**

а может быть подругому??

Pascal

function<имя>(тип результата функции)
var ----
const---
begin
-----
----
------
end;

@WebMax 2.0 · 22.12.2011, 22:40

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

function<имя>(тип результата функции)
var ----
const---
begin
-----
----
------
end;

Pascal

function Summa(n:integer):real;
var i:integer;
    sum,z:real;
   begin
   For i:=1 to n do
       begin
       z:=random*51-25;
       if z>0 then sum:=sum+z;
       end;
   Summa:=sum;
   end;
 
var sum:real;
    
const n=60;
 
begin
Writeln('Удвоенная сумма = ',Summa(n)*2:0:3);
end.

@igor913 · 28.12.2011, 20:01 **[ТС]**

1) обьясните как работает прога
2) что надо добавить чтобы можно было вводить чиста с клавы без рандомного заполнения

Pascal

function Summa(n:integer):real;
var i:integer;
    sum,z:real;
   begin
   For i:=1 to n do
       begin
       z:=random*51-25;
       if z>0 then sum:=sum+z;
       end;
   Summa:=sum;
   end;
 
var sum:real;
    
const n=60;
 
begin
Writeln('Удвоенная сумма = ',Summa(n)*2:0:3);
end.

@EMKorD 26 / 26 / 10 Регистрация: 30.10.2011 Сообщений: 68
	04.11.2011, 01:26	2
	я уже тебе ответил тут 0

@igor913 4 / 4 / 2 Регистрация: 03.11.2011 Сообщений: 103
	13.11.2011, 23:57 [ТС]	6
	спасибо 0