12.04.2013, 19:23 | #1 (permalink) |
Member
Регистрация: 02.04.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Обработка одномерных массивов Pascal ABC
|
12.04.2013, 19:23 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Тема с похожих содержанием уже встречалась, можете прочитать Программа для обработки массивов с разным количеством элементов. Pascal Обработка символов и строк на языке Pascal Обработка двумерных массивов Об алгоритмах упорядочения одномерных массивов Обработка массивов Обработка одномерных и двумерных массивов |
12.04.2013, 23:00 | #2 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
Здравствуйте я с глупыми вопросом по поводу первого рисунка
1) там суммируемое выражение в скобочках что значит: (Xi в квадрате делённое на i) или (Xi умноженное на 2 делённое на i). 2) И почему цикл от 1 до 20 а массив от 1 до 50. 3) как определять значение элементов массива? Варианты ответа А) элемент массива случайная величина на интервале от a до b. Б) значение элементов массива задается пользователем В) Значение элементов определенно в программе путем прямого присвоения значения. Г) Значение элементов определенно по какому ни будь закону (к примеру математической функцией) Д) свой оригинальный вариант. 4) Значение Z куда девать Варианты ответа А) никуда. Б) вывести на консоль В) сохранить в каком ни будь файле. Г) свой оригинальный вариант. |
12.04.2013, 23:15 | #3 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
По поводу второго рисунка.
Код:
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, 15:44 | #5 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
Из 4 вопросов ответили только на один.
Это крепкая двойка. Завтра с родителями к модератору форума. (шутка). Код:
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
14.04.2013, 18:32 | #6 (permalink) |
Member
Регистрация: 02.04.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
окау
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|