0 / 0 / 0
Регистрация: 22.04.2015
Сообщений: 7
1

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

08.06.2015, 19:41. Показов 484. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите нарисовать блок-схему по программе, пожалуйста))) очень надо!!!пожалуйста
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
uses crt;
const n=5;
var
a:array [1..n,1..n]of integer;
i,j,x,y:integer;
begin
x:=1;
y:=1;
randomize;
for i:=1 to n do begin
for j:=1 to n do
begin
a[i,j]:=random(99);
if (i>=j)and (i<=(n-j+1))or
(i<=j)and(i>=(n-j+1))then begin
if a[x,y]<a[i,j]then begin
x:=i;
y:=j;
end;
end;
write(a[i,j]:3);
end;
writeln;
end;
write('maximum a[',x,',',y,']:=',
a[x,y]:3);
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.06.2015, 19:41
Ответы с готовыми решениями:

Нарисовать блок-схему по программе
Program Proga10; uses crt, dos; var g,m,d,dn:word; begin textcolor(13); clrscr;...

Нарисовать блок-схему по программе
Помогите нарисовать блок-схему по программе, пожалуйста))) очень надо!!! {------Отрицательные...

Нарисовать Блок-схему к программе
Var f:array of longint; a,i,i2,i3:integer; begin writeln ('vvedite nomer chisla'); readln (a);...

Нарисовать блок-схему по программе
нарисуйте пожалуйста блок схему к этой программе Program V19_N7; uses crt; var F ...

3
696 / 570 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
08.06.2015, 22:20 2
TaNyAAAA,
Миниатюры
Нарисовать блок-схему по программе  
0
0 / 0 / 0
Регистрация: 02.11.2015
Сообщений: 8
09.11.2015, 14:29 3
помогите пожалуйста сделать блок-схему по программе

Добавлено через 27 секунд
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program AndrewOne1;
uses crt;
label 15;
var y,x,a,b,h : real;
begin
ckrscr;
writeln ('input a'); readln (a);
writeln ('input b'); readln (b);
writeln ('input h'); readln (h);
writeln;
x:=a;
15
if (x<=0.4) then y:=x*x+x+1;
if (x<0.8) then y:=(x-1)/(x+1);
if (x>=0.8) then y:=x*x*x-x*x;
writeln ('x=', x:3:1,'  ','y=',y:3:1);
x:=x+h;
if x<b then goto 15;
readln;
end.
0
ZX Spectrum-128
09.11.2015, 14:53     Нарисовать блок-схему по программе
  #4
 Комментарий модератора 
Андрей Харьков, создайте свою собственную тему!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.11.2015, 14:53

Нарисовать блок-схему по программе
код, который открывает и закрывает файл program Example;...

Нарисовать блок-схему к программе
Очень нужна ваша помошь. Есть программа к которой нужно нарисовать блок-схему, сам я не дружу с...

Нарисовать блок схему и сделать комментарии к программе
Задача: программа uses crt; const n=5;m=n*n; var a:array of integer; b:array of integer;...

Нарисовать блок-схему к программе "Библиотека"
program CreateLibrary; (****************************************************** * Для задач об...


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

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

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