Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Внешняя сортировка бинарного файла (чтение после конца файла невозможно) Помогите отладить программу, не вижу, что здесь можно сделать. Похоже, курсор файла где-то в коде сортировки доходит до конца, но потом все равно продолжает орудовать им, и я не вижу, где это может быть и что здесь не так. {Вариант 21. Создать бинарный файл, содержащий натуральные числа, величина которых не превосходит 10^9, заполнив его случайной информацией. Если в файле есть хотя бы ... https://www.cyberforum.ru/ pascal/ thread1201384.html	Pascal Сортировать Двумерный список имеется вот такой список type NameStr = string; Link = ^Auto; {объявляю Link как тип УКАЗАТЕЛЬ НА Auto} Auto = record {объявляю Auto как тип СПИСОК} {Далее следуют поля списка} Name : NameStr; {Имя} SurName : NameStr; {Фамилия} Patronymic : NameStr; {Отчество}
Pascal Дан двумерный массив. Поменять местами средние столбцы. Дан двумерный массив. Поменять местами средние столбцы. https://www.cyberforum.ru/ pascal/ thread1200856.html	Pascal Дан двумерный массив. Найти сумму и количество элементов в каждом столбце кратных k1 или k2. https://www.cyberforum.ru/ pascal/ thread1200855.html Дан двумерный массив. Найти сумму и количество элементов в каждом столбце кратных k1 или k2.
Pascal Дан одномерный массив A[N]. Найти max(a2,a4,...,a2k)+min(a1,a3,...,a2k+1) Дан одномерный массив A. Найти max(a2,a4,...,a2k)+min(a1,a3,...,a2k+1).	Pascal Составить в алфавитном порядке список всех слов, встречающихся в этом тексте https://www.cyberforum.ru/ pascal/ thread1200837.html Дана строка, содержащая текст на русском языке. Составить в алфавитном порядке список всех слов, встречающихся в этом тексте.
Pascal Вычислить значение выражения помогите пожалуйста,нужно с помощью процедуры https://www.cyberforum.ru/ pascal/ thread1200780.html	Quick sort ( быстрая сортировка) очереди Pascal Доброго времени суток форумчане....нужна ваша помощь в написании быстрой сортировки для структуры данных очереди....с массивами у меня сортировка получилась а вот с очередями ни как....надеюсь на вашу помощь... Вот код моей программы.... program Program_5; uses crt; type ukazatel = ^rec; rec = record
Pascal Обнулите элементы массива, имеющие чётное значение Дан массив d(8,8) случайными целыми числами в интервале . Введите значения элементов массива в виде матрицы, причём на каждый элемент отведите 4 позиции. https://www.cyberforum.ru/ pascal/ thread1200510.html	Pascal Написать лексический анализатор к уже имеющейся программе https://www.cyberforum.ru/ pascal/ thread1200331.html Нужно написать лексический анализатор к уже имеющейся программе. Первый файл-програм 1,код: program p1; uses Matrices; var a, b, c : TMatrix;
Написать программу, которая вычисляет произведение первых n целых положительных чисел Pascal Написать программу, которая вычисляет произведение первых n целых положительных чисел. Количество чисел должно вводится во время работы программы (используя цикл с параметром). Нужно решить программу тремя способами цикл с предусловием и цикл с постусловием.	Pascal Нахождение суммы элементов, расположенных выше, ниже и на главной диагонали Пусть дана вещественная квадратная матрица порядка n. Относительно эле¬ментов, расположенных в строках, начинающихся с отрицательного элемента, найдите суммы тех из них, которые расположены соответственно ниже, выше и на главной диагонали. https://www.cyberforum.ru/ pascal/ thread1200046.html

bombom

3 / 3 / 1

Регистрация: 20.12.2013

Сообщений: 106

Составить блок схему по программе - Pascal - Ответ 6284656

06.06.2014, 23:16. Показов 426. Ответов 2

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста составить блок схему по этой проге:

Pascal

Const n=2;
Type matr=array[1..n,1..n] of real;
Var A,B,C:matr;
    i,j,m:integer;
Procedure PowerMatr(A,B:matr;Var C:matr;n:byte);
Var i,j,k,r:byte;
Begin
    For i:=1 to n do
     For j:=1 to n do
      C[i,j]:=0;
    For k:=1 to n do
     For i:=1 to n do
      For j:=1 to n do
       C[k,i]:=C[k,i]+A[i,j]*B[j,k];
End;
Begin
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        write('A[',i,j,']= '); readln(A[i,j]);
      End;
      writeln;
    End;
    Repeat
     write('Степень: ');readln(m);
    Until m>1;
    PowerMatr(A,A,C,n);
    For i:=1 to m-2 do
     PowerMatr(A,C,C,n);
    writeln('Полученная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(C[i,j]:8:2);
      writeln;
    End;
    readln;
End.

Вернуться к обсуждению:
Составить блок схему по программе Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

06.06.2014, 23:16

Готовые ответы и решения:

Составить блок-схему к программе
Program kursovaya; const n = 12; m = 12; k1 = -50; k2 = 50; type matr = array of integer; ...

Составить блок схему к программе
Дан одномерный массив Х(N) (N<=60). На место отрицательных элементов массива записать среднее...

Составить блок схему к программе
Затрудняюсь составить блок схему, помогите плз Uses crt; Const n=15; Var x,y,z: Array of...

Составить блок-схему по программе
составить блок схему по программе Program N_2; uses crt; const n = 15; var x :...

	06.06.2014, 23:16

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

06.06.2014, 23:16

Помогаю со студенческими работами здесь

Составить блок-схему к программе
y=sin(cos(x+3)), y>0. Найти колличество значений х при которых y>0 Нужно сделать блок схему!!!

Составить блок схему по программе
Текст задачи: Зашифровать строку 121-го символа в матрицу 11 х 11 по спирали, строку считывать из...

Составить блок-схему к программе:
uses crt; var i:integer; s:integer; begin clrscr; for i:=1 to 100 do begin if i mod 2...

По программе составить блок-схему
program pr1; uses crt; Var t: text; m, z1, z2, d1, d2, y, a, db1, db2, aw, bw, da1,...

Наверх