Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Обработка одномерных массивов Pascal ABC (http://www.tehnari.ru/f41/t87420/)

БаирАбушеев 12.04.2013 19:23

Обработка одномерных массивов Pascal ABC
 
Вложений: 2
помогите, пожалуйста, только пожалуйста прошу сильно мудреных программ не надо:)
:tehnari_ru_837:

interacia 12.04.2013 23:00

Здравствуйте я с глупыми вопросом по поводу первого рисунка tehno015
1) там суммируемое выражение в скобочках что значит:
(Xi в квадрате делённое на i) или (Xi умноженное на 2 делённое на i).

2) И почему цикл от 1 до 20 а массив от 1 до 50.
3) как определять значение элементов массива?
Варианты ответа
А) элемент массива случайная величина на интервале от a до b.
Б) значение элементов массива задается пользователем
В) Значение элементов определенно в программе путем прямого присвоения значения.
Г) Значение элементов определенно по какому ни будь закону (к примеру математической функцией)
Д) свой оригинальный вариант.
4) Значение Z куда девать
Варианты ответа
А) никуда.
Б) вывести на консоль
В) сохранить в каком ни будь файле.
Г) свой оригинальный вариант.

interacia 12.04.2013 23:15

По поводу второго рисунка.
Код:

program Array1;
var
i:integer; // счетчик в цикле
N:integer; // размер массива
a: array [1..100] of integer;
b: array [1..100] of integer;
begin
writeln('Введите N (N<=100)');
 readln(N);
for i:=1 to n do begin write('a[',i,']=');readln(A[i]);end;
b[1]:=a[1];
for i:=2 to N do b[i]:=b[i-1]+a[i];
writeln;
write('a[]= ');
for i:=1 to N do write(' ',a[i]);
writeln;
write('b[]= ');
for i:=1 to N do write(' ',b[i]);
end.


БаирАбушеев 14.04.2013 13:37

я могу ответить только на 1 вопрос:Xi в квадрате делённое на i

interacia 14.04.2013 15:44

Из 4 вопросов ответили только на один.
Это крепкая двойка.
Завтра с родителями к модератору форума.tehno001 (шутка).

Код:

program Array11;
var
Z:real;
i:integer; // счетчик в цикле
X: array [1..50] of real;
begin
 for i:=1 to 50 do X[i]:=random(50);
Z:=0;
for i:=1 to 20 do  Z:=Z+sqr(X[i])/i;
writeln('Otvet Z=',Z);
end.


БаирАбушеев 14.04.2013 18:32

:tehnari_ru_942: окау:D


Часовой пояс GMT +4, время: 18:01.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.