15.10.2013, 12:15 | #1 (permalink) |
Новичок
Регистрация: 17.09.2013
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программа на Паскале
Вычислить среднее квадратичное значение для каждой из N последовательностей вещественных чисел (с переменным числом членов), размещенной в текстовом файле INPUT32.TXT. Формат файла 1я строка - N 2я строка - число членов последовательности; набор чисел первой последовательности, через пробел ... N+1я строка - число членов последовательности; набор чисел последовательности N, через пробел Я написал программу, но не уверен что она верна. Если есть ошибки напишите в исправленном виде. Program texts33; Var k: text; m, n, i, j, x, z:integer; begin // инициализация // Assign(k, 'Z:\input31.txt'); Reset (k); // считываем из файла N, M // Read (k,n); Read (k,m); // поиск среднего квадратического // For i:=1 to n do begin z:=0; For j:=1 to m do Begin Read (k, x); z:=z+x*x; end; Writeln (sqrt(z/m), 'среднее квадратичное строки', i); end; close (k); end. |
15.10.2013, 12:15 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Отправлю вам темы с аналогичными проблемами Программа на Паскале Программа в Паскале ABC Программа на Паскале Программа на Паскале Программа на Паскале |
15.10.2013, 12:39 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
И не подумаю. С такими, как Вы, позволяющими себе закидывать задачки на форум (да еще с пометкой "срочно"), а потом больше не появляться, я, извините, дела иметь не желаю. Ищите дурачков-ишачков в другом месте. А лучше учитесь сами отлаживать программы.
Ваша программа содержит две ошибки. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|