Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Отпечатать номера групп, где отличников более 15% и число таких групп https://www.cyberforum.ru/ pascal/ thread1032147.html
Дана матрица из 2 столбцов и 10 строк. Первый элемент каждой стоки представляет общее число студентов, а второй число отличников в одной из десяти групп. Номер строки соответствует номеру группы на учебном потоке. Отпечатать номера групп, где отличников более 15% и число таких групп. Помогите пожалуйста Буду очень благодарен
Перемножение полиномов. Не понимаю код Pascal
program mul_mnog; type PIntList = ^TIntList; TIntList = record value: integer; next: PIntList; end; var P,Q,R: PIntList; M,N: integer;
Pascal Работа с массивом https://www.cyberforum.ru/ pascal/ thread1032055.html
Определить в массиве Z(N) количество последовательных непересекающихся пар чисел, в которых первое число больше второго. По-менять местами эти числа. Числа из пар, не удовлетворяющих условию, переписать в массив В, изменив у них знаки на противоположные.
Pascal записи https://www.cyberforum.ru/ pascal/ thread1032003.html
Создать массив записей, содержащий данные о кубах: размер каждого куба (длину ребра), его цвет и материал. Найти количество кубов с ребром равным 5.
Pascal Обработка упорядоченной последовательности
Дана последовательность Х=(х1...хn) натуральных чисел, упорядоченных по неубыванию, т.е. x<=x<=...<=xn. Элемент последовательности назовем одиночкой, если его значение отлично от значения любого другого элемента в Х. Группу элементов хm+1, xm+2....xm+k назовем цепочкой длиной k(k >= 1), если xm<xm+1=xm+2=...=xm+k+1. Построить вектор V=(vi.....Vn), где Vi - количество цепочек в X длины i....
Pascal Процедуры и функции https://www.cyberforum.ru/ pascal/ thread1031991.html
решить как с помощью процедуры, так и с пошью функции. Даны две тройки чисел a,b,c, a1,b1,c1.вычислить выражение d=√(min(a,b,c)+min(a1,b1,c1)).
Pascal Деревья.Модули https://www.cyberforum.ru/ pascal/ thread1031839.html
Типы данных и подпрограммы для поиска ближайшего (с наибольшей длинной пути относительно корня дерева) предка двух заданных ключами узлов n-нарного дерева. Кроме подпрограммы поиска предка реализовать подпрограммы для создания ориентированного n-нарного дерева из m узлов, удаления дерева, распечатка дерева на экране. Поскольку узлы идентифицируются значениями своих ключей, ключи должны быть...
Pascal Произведение нечетных элементов до первого , превышающее заданное число, и количество отрицательных элементов после н
Помогите решить в турбо паскаль
Pascal НАйти сумму элементов, кратных заданному числу и попавших в интервал [a,b] https://www.cyberforum.ru/ pascal/ thread1031731.html
Помогите Могу помочь перенести топик в правильный раздел. Только скажите куда, в какой подфорум.
Pascal Ветвления Занятия в начальных классах отменяются в тех случаях, когда температура воздуха не выше –25 градусов, а также при ветре не менее 7м/с и температуре не выше – 20 градусов. По утренней сводке погоды определить, пойдут ли дети в школу. https://www.cyberforum.ru/ pascal/ thread1031642.html
Pascal Выбрать из заданного текста все слова, содержащие заданный символ
Выбрать из заданного текста все слова, содержащие заданный символ. Текст - в виде строки или текстового файла или массива символов.
Pascal Имя процедуры в качестве параметра другой процедуры https://www.cyberforum.ru/ pascal/ thread1031545.html
в задании написано: составить программу по заданному условию. Первая часть условия является заданием на разработку процедуры для любой функции F или пары функций (f1, f2). Условие второй части задания предполагает обязательное использование разработанной процедуры. В качестве исходного данного в большинстве заданий квадратная матрица A. Теперь условие самой задачи: составить процедуру, которая...
44 / 24 / 1
Регистрация: 22.05.2012
Сообщений: 669
0

исправьте ошибку - Pascal - Ответ 5452234

07.12.2013, 18:43. Показов 500. Ответов 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.


Вернуться к обсуждению:
исправьте ошибку Pascal
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
07.12.2013, 18:43
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2013, 18:43
Помогаю со студенческими работами здесь

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

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

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

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

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