44 / 24 / 1
Регистрация: 22.05.2012
Сообщений: 669
1

исправьте ошибку

07.12.2013, 18:43. Показов 499. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Если в матрице А нет элементов модуль которых отличается от заданной величины Р менее, чем на заданную величину Е, найти для каждой ее строки среднее арифметическое положительных элементов. Матрица 5*5................не выводит среднее арифметическое положительных элементов


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
program Project1;
 const n=5;
var a:array[1..n,1..n] of real;
    k,f,i,j:integer;
    p,e,s:real;
begin
   write('p=');
   readln(p);
   write('e=');
   readln(e);
   for i:=1 to n do begin
     for j:=1 to n do begin
        write ('a[',i,',',j,']=');
       readln (a[i,j]);
     end;
   end;
   f:=1;
   i:=1;
   repeat
     j:=1;
       repeat
       if abs(a[i,j])-e<p then f:=0;
         j:=J+1;
       until (f=0) or (j>n);
   until (f=0) or (i>n);
   if f=1 then
   begin
       for i:=1 to n do
        begin
             s:=0;
             k:=0;
            for j:=1 to n do
 
                 if a[i,j]>0 then
                    begin
                       s:=s+a[i,j];
                       k:=k+1;
                    end;
 
              s:=s/k;
              writeln('s=',s);
 
        end;
   end
      else writeln ('oshibka');
 
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2013, 18:43
Ответы с готовыми решениями:

исправьте ошибку
program dvoichnyi; uses crt; var i:integer; a:array of integer; b:array of string; s,d:string;...

Исправьте ошибку
program notebook; USES CRT; type NOTE = record fam:string; im:string; telefon:string;...

Исправьте ошибку!
Всем привет , посмотрите что не так, 207 ошибку выдает. Program Zadanie; Var w,y,x,b,a:real;...

исправьте ошибку
исправьте ошибку - не может найти указанный путь. И вообще эта программа считается базой данных? ...

1
39 / 35 / 23
Регистрация: 10.11.2013
Сообщений: 89
07.12.2013, 23:48 2
может так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program Project1;
uses crt;
 const n=2;
var a:array[1..n,1..n] of real;
    k,f,i,j:integer;
    p,e,s:real;
begin
clrscr;
 
   write('p=');
   readln(p);
   write('e=');
   readln(e);
   for i:=1 to n do begin
     for j:=1 to n do begin
        write ('a[',i,',',j,']=');
       readln (a[i,j]);
     end;
   end;
 
{проверяем есть ли те кто не входит в промежутол (p-e,p+e)}
   for i:=1 to n do begin
     for j:=1 to n do begin
         if (abs(a[i,j])<p-e) or (abs(a[i,j])>p+e) then
         begin
         writeln('exit');
         readkey;
         exit;
         end;
     end;
   end;
 
{если удовлетворяет условию}
   for i:=1 to n do begin
   s:=0;
     for j:=1 to n do begin
        s:=s+a[i,j];
        end;
   writeln('s',i,'=',s/n:0:2);
   end;
 
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2013, 23:48
Помогаю со студенческими работами здесь

Исправьте ошибку
Program Z; Var z1, z2, x:real; Begin Writeln('BBeDuTE x'); Readln(x);...

Исправьте ошибку пожалуйста!
Unit Perevod; INTERFACE function per10_2(x:longint):string; function...

Исправьте ошибку,за ранее спасибо!
Дано действительное число х, натуральное число n. Вычислить: пример...

Побочная диагональ и нули. Исправьте ошибку.
Не могу понять почему не работает прога. Условие: должна читать из тескстового файла массив, лепить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru