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

Нужно составить блок-схему к двум програмам

26.01.2011, 16:44. Показов 508. Ответов 2
Метки нет (Все метки)

задача 2.1

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program pr_21;
uses crt;
const a=3;
b=3;
var a1 : array [1..a,1..b] of real;
a2 : array [1..a,1..b] of real;
i,j : byte;
Begin
clrscr;
writeln('Vvedite maricu - ');
for i:=1 to a do
for j:=1 to b do
readln(a1[i,j]);
for i:=1 to a do
for j:=1 to b do begin
if a1[i,j] > a1[i,i] then a2[i,j]:=1
else a2[i,j]:=0;
writeln(a2[i,j]:8:4,' ');
end;
readkey;
End.
задача 2.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
program pr_22;
uses crt;
const n=4;
var a : array [1..n,1..n] of real;
m,p,k : integer;
i,j : byte;
Begin
clrscr;
writeln('Vvedite maricu - ');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
m:=0;
p:=0;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
if a[i,j] = 0 then inc(m);
if a[i,j] = 3 then inc(p);
end;
if p > m then inc(k);
end;
writeln('Kolichestvo ryadkov - ',k);
readkey;
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.01.2011, 16:44
Ответы с готовыми решениями:

Составить блок схему к двум кодам
Помогите пожалуйста составить блок - схему к задачам) #include <stdio.h> #include <conio.h>...

Нужно составить блок-схему
Помогите построить блок схем к этой координатной прямой

Нужно составить блок-схему
program prog_3_4; var a, b, a1, b1 : integer; begin write('Vvedit a: '); readln(a); ...

нужно составить блок схему
В одномерном массиве определить номер 1-го нулевого элемента. Const=20 var a:array of integer;...

2
780 / 461 / 85
Регистрация: 20.02.2010
Сообщений: 974
26.01.2011, 17:58 2
блок схема
Вложения
Тип файла: rar блок схема.rar (259.4 Кб, 16 просмотров)
0
0 / 0 / 0
Регистрация: 18.01.2011
Сообщений: 30
26.01.2011, 18:05  [ТС] 3
спасибо!!!
очень вам благодарна)
а то я в блок-схемах ничего не понимаю(
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.01.2011, 18:05

Нужно составить блок схему
В заданной квадратной матрице A(K,K) (K<=10) вычислить сумму элементов, расположенных над главной...

Нужно составить блок-схему
Нужно составить блоксхему, к этой программе program dima7; const filename = 'input.txt'; ...

Нужно составить Блок-схему
Известно количество денег у каждого из N учеников, а также стоимость комплексного обеда в школьной...

Нужно составить блок-схему
Program pr_5; Uses Crt; Var i,j,n,b,q : Integer; A : Array of integer; Procedure...


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

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

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