|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.05.2008, 11:14 | #1 |
Пользователь
Регистрация: 15.05.2008
Сообщений: 44
|
Помогите дописать программу.
Записать в текстовый файл 1000 случайных чисел в диапазоне [1..100]. Прочитать каждое пятое и найти их среднюю величину М и среднее квадратическое отклонение от нее D. Составить множество из чисел, лежащих в интервале [M-3D,M+3D], используя только прочитанные числа. Вывести полученное множество в текстовый файл.
program zad7; uses crt; var fail:text; i,k:integer; D,M:real; a:array [1..1000]of integer; begin clrscr; assign(fail,'C:\zad7.txt'); rewrite(fail); for i:=1 to 1000 do begin A[i]:=random(100); writeln(fail,a[i]); end; Здесь нужно составить цыкл который будет читать только каждый 5-тый элемент массива. close(fail); end. Помогите пока хоть с этим дальше я думаю сам смогу. |
17.05.2008, 11:18 | #2 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Код:
Код:
Последний раз редактировалось eoln; 17.05.2008 в 11:21. |
17.05.2008, 14:04 | #3 |
Пользователь
Регистрация: 15.05.2008
Сообщений: 44
|
А можна ли с этим кодом(первым к примеру) что б к примеру выводило так:
A[5]=34 A[10]=75 ... A[1000]=43 А потом присвоить к примеру А-тый массив Б-тому и элементы уже бетого начинались с B[1] до B[200], а дальше уже найти среднею величи и квадратическое отклонение. |
17.05.2008, 14:27 | #4 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Код:
|
17.05.2008, 17:49 | #5 |
Пользователь
Регистрация: 15.05.2008
Сообщений: 44
|
program zad7;
uses crt; var fail:text; i,k:integer; D,M,Chislo:real; a:array [1..1000]of integer; b:array [1..200]of integer; begin clrscr; assign(fail,'C:\zad7.txt'); rewrite(fail); for i:=1 to 1000 do begin A[i]:=random(100); writeln(fail,a[i]); end; k:=1; for i:=1 to 1000 do if i mod 5 = 0 then begin B[k]:=A[i]; inc(k); writeln('A[',i,']= ',A[i]); end; for i:=1 to 200 do M:=M+B[i]; M:=M/200; Writeln('Среднее арефметическое M= ',M:2:2); for i:=1 to 200 do Chislo:=Chislo+sqr(B[i]-M); D:=sqrt(Chislo/200); writeln('Среднее квадратическое отклонение D= ',D:2:2); close(fail); end. М=45,78 D=29,48 M-3D=-42,66 M+3D=134,22 А как же теперь составить множество с прочитаных нами чисел и лежащих в интервале [M-3D,M+3D]? |
17.05.2008, 19:50 | #6 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Код:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите дописать программу | cL1zMa | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 06.06.2008 14:40 |
помогите дописать программу | starry_night | Помощь студентам | 0 | 04.06.2008 19:24 |
помогите дописать программу | slm | Работа с сетью в Delphi | 3 | 09.05.2008 18:39 |
Помогите дописать программу | ALIZE | Помощь студентам | 2 | 09.12.2007 18:45 |
Помогите дописать программу клиент-сервер!!! | Oksana1988 | Помощь студентам | 2 | 31.03.2007 09:45 |