Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 15.05.2014
Сообщений: 28
1

Переписать программу с использованием процедур и функций

05.06.2014, 14:46. Просмотров 347. Ответов 0
Метки нет (Все метки)

Здравствуйте напишите из вот этот программы две программы одну через процедуру другую через функцию!!
что бы вышло две программы одна с процедурами другая с функцией

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
program lab4;
var
    A: array[1..3, 1..4] of real;
    X: array[1..3, 1..4] of real;
    i, j, num: integer;
begin
writeln('vvediteA(3,4)');
        for i:= 1 to 3 do
        for j:= 1 to 4 do
        read    (A[i, j]);
                        readln;
        num:=0;
    for i:= 1 to 3 do
    begin
        for j:=1 to 4 do
        begin
        if (A[i, j] > 0) then num :=num +1;
    end;
        end;
    if (num = 0) then num:= 1;
    for i:= 1 to 3 do
    begin
        for j:= 1 to 4 do
            X[i, j]:= A[i, j] / num;
                        end;
                        writeln('num=', num);
 
    WriteLn('************Matrix A***********');
    for i:= 1 to 3 do
    begin
        for j:= 1 to 4 do
            Write(A[i, j]: 4: 0, ' ');
        WriteLn;
    end;
    WriteLn('************Matrix X***********');
    for i:= 1 to 3 do
    begin
        for j:= 1 to 4 do
            Write(X[i, j]: 8: 2);
        WriteLn;
 
    end;
                readln;
        end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2014, 14:46
Ответы с готовыми решениями:

Переписать код с использованием команд процедур и функций
Program Sonya4; Var A: array of integer; I, j, n, k, max, min, ma, mi: integer; Begin ...

Переписать программу с использованием процедур
есть код программы на ABC Pascal. нужно программу написать с процедурами, 1 код без процедур, 2 код...

Переписать программу без процедур и функций
program Lab09_13; uses crt; const max=50; type mas=array of integer; var n,a,b: integer; ...

Составить программу с использованием функций и процедур
Составить программу с использованием функций и процедур: 2. Задано натуральное n, целые числа...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2014, 14:46

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Переделать программу с использованием процедур (без функций)
в одномерном массиве из 20 произвольных чисел определить сумму и количество элементов, значения...

Из данной программы сделать программу с использованием процедур и функций
Помогите пожалуйста! тема:записи и множества условие:Описать, используя структуру данных запись,...

Составить любую программу с использованием не менее 5 процедур и функций модуля DOS
Составить программу с использованием не менее 5 процедур и функций модуля DOS.

Оформить код с использованием процедур и функций
Помогите плиз оформить (решить) с помощью procedure и function. program ; type massA=array...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.