Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Нужна помощь в программе паскаль. нужна до субботы.
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Snake95 Snake95 вне форума
Новичок
 
Сообщений: 4
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 16.10.2013
По умолчанию Нужна помощь в программе паскаль. нужна до субботы. - 16.10.2013, 20:43

Средний уровень
Вычислить среднее квадратичное значение для каждой из 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.
Ответить с цитированием
  (#2 (permalink)) Старый
wanja wanja вне форума
Member
 
Сообщений: 585
Сказал(а) спасибо: 1
Поблагодарили 25 раз(а) в 25 сообщениях
Регистрация: 08.05.2005
По умолчанию 17.10.2013, 10:58

pascal Код:
read(k,n);
z:=0;
for i:=1 to n do
   begin
   read(k,x);
   z:=z+x*x;
   end;
writeln(sqrt(z/m));
Потм то же самое со второй
Ответить с цитированием
Пользователь сказал cпасибо:
Snake95 (18.10.2013)
  (#3 (permalink)) Старый
Alexiski Alexiski вне форума
Любитель давать советы
 
Сообщений: 4,274
Сказал(а) спасибо: 27
Поблагодарили 54 раз(а) в 54 сообщениях
Регистрация: 16.10.2005
По умолчанию 17.10.2013, 18:33

Нужно делать два вложенных цикла:
Pascal Код:
read(k,n);
for i:=1 to n do
  begin
    read (k,m);
    z:=0;
    for j:=1 to m do
      begin
        read (k,x);
        z:=z+x*x;
      end;
    writeln (sqrt (z/m));  
  end;

Последний раз редактировалось Alexiski; 18.10.2013 в 19:47
Ответить с цитированием
Пользователь сказал cпасибо:
Snake95 (18.10.2013)
  (#4 (permalink)) Старый
Snake95 Snake95 вне форума
Новичок
 
Сообщений: 4
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 16.10.2013
По умолчанию 18.10.2013, 00:36

В смысле делать два вложенных типа?

Я не понимаю.

Последний раз редактировалось Dark King; 18.10.2013 в 00:39
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужна помощь R0stislav Процессоры 4 16.08.2012 23:17
Нужна помощь! DanielLFC Техническая поддержка 3 18.08.2011 12:01
нужна помощь! Jt91 Любые вопросы от новичков 12 05.08.2011 12:07
Нужна помощь! MikeVS Любые вопросы от новичков 6 02.08.2011 02:07
нужна помощь! очень нужна! ulana999i999 Prolog 0 17.04.2010 14:13
Паскаль. Задача на одномерные массивы. Нужна помощь. A_Killer Pascal 0 21.02.2010 12:26
Нужна помощь!!! imported_Svetik Процессоры 4 23.01.2010 20:27
Нужна помощь shlyap Видеокарты 18 15.12.2009 15:51
нужна помощь!!!!!! zhara2003 Материнские платы 4 06.12.2009 23:00
Очень нужна нужна помощь в решении задачи NecroDevil Prolog 18 16.01.2009 14:22
Помощь нужна в программе! kompak Pascal 5 17.04.2008 07:45
Нужна помощь Фунтик Задания за деньги 2 10.12.2006 23:32



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов