Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
hannah_eq
0 / 0 / 0
Регистрация: 26.11.2012
Сообщений: 12
#1

Нужна блок-схема к коду! - Turbo Pascal

16.01.2013, 19:24. Просмотров 170. Ответов 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
Uses Crt;
Const n=5;m=4;
Var A:array[1..n,1..m] of real;
    B:array[1..n] of real;
    i,j:byte;
    s:real;
Begin
    ClrScr;Randomize;
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random*10;
        write(A[i,j]:5:2);
      End;
      writeln;
    End;
    For i:=1 to n do
    Begin
      B[i]:=A[i,1];
      For j:=2 to m do
       if A[i,j]<B[i] then B[i]:=A[i,j];
    End;
    writeln('Полученный одномерный массив');
    For i:=1 to n do
     write(B[i]:5:2);
    writeln;
    s:=0;
    For j:=1 to m do
     if A[4,j]<>0 then s:=s+(A[5,j]-5)/A[4,j];
    A[n,m]:=s;
    writeln('S = ',s:0:2);
    writeln('Полученная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j]:5:2);
      writeln;
    End;
    readln;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2013, 19:24
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Нужна блок-схема к коду! (Turbo Pascal):

Нужна блок-схема к коду - Turbo Pascal
Uses Crt; Const n=5;m=4; Var A:array of real; B:array of real; i,j:byte; s:real; Begin ClrScr;Randomize; ...

Нужна блок-схема по готовому коду - Turbo Pascal
uses crt; procedure srd(x1,y1,x2,y2:real;var x,y:real); begin x:=(x1+x2)/2; y:=(y1+y2)/2; end; var x1,y1,x2,y2:real; ...

Блок-схема по коду - Turbo Pascal
Помогите пожалуйста объяснить и помочь составить блок-схему.На программу. Const m=; Var s,s1,s2:string; A:array of string; ...

Блок схема по коду - Turbo Pascal
Помогите пожалуйста сделать блок схему( program masiv2; uses crt; const nmax=100; mmax=100; var m,n,i,j,k,C:integer; A:array...

блок-схема по коду..... - Turbo Pascal
Привет всем! Нужна поммощь... дело в том что я в неладах с блок-схемами и постоянно в них путаюсь, а для защиты лабораторной требуется...

Блок-схема по коду - Turbo Pascal
Здравствуйте. Помогите составить блок-схему по коду программы. uses Crt; var x: real; function f(x:real):real; begin if x&lt;2...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2013, 19:24
Привет! Вот еще темы с ответами:

Блок-схема по коду программы - Turbo Pascal
помогите создать блок схему этой программы program lr2_2; uses crt; var x, y, z: integer; begin clrscr; write('vvedite x, y,...

Блок-схема по коду программы - Turbo Pascal
Uses CRT; Procedure Print(S: String); (Выводит сообщение S и ждет инициативы пользователя} begin WriteLn(S); {Выводим...

Блок схема по коду программы - Turbo Pascal
Какая тут будет блок схема? Program lab5_1; Uses crt; const n=10; Var a:array of integer; i, k:integer; BEGIN clrscr; ...

Блок-схема по приведенному коду - Turbo Pascal
Помогите пожалуйста составить блок-схему:cry: Program rgz; const m=5; n=3; Var q:array of integer; i,j,k,t:integer;


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

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

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