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

28.06.2013, 21:14. Показов 429. Ответов 0

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

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

Pascal

var f:file of integer;
  a:array [1..50,1..50] of integer;
  i,j,h,b,n:integer;
  Begin
assign (f,'C:\Documents and Settings\All Users\Äîêóìåíòû\f.dat');
writeln ('n-?');
Readln (n);
for i:=1 to n do
for j:=1 to n do
Readln (a[i,j]);
h:=0;for i:=1 to n do
begin
if a[i,i]=0 then
h:=h+1
end;
if h<>0 then begin  Rewrite (f);
for i:=1 to n do
  Write (f,a[i,i]);close (f);
  end
  else
  begin  Rewrite (f);
for j:=1 to n do
  Write (f,a[n,j]);close (f);
  end;
 
 
RESET (F);
While not eof(f) do
Begin
Read (f,b);
Writeln (b);
End;
close (f);
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

28.06.2013, 21:14

Ответы с готовыми решениями:

Нарисовать блок-схему
Написать программу вычисления суммы S=1+2+3+4+5+6. Нарисовать блок-схему. Программу я уже написал,...

Нарисовать блок-схему
uses crt; var s:string; i:integer; f:text; begin assign(f,'lab16.pas'); reset(f); while not...

Нарисовать блок-схему
Помогите нарисовать блок схему uses crt; type Tmas=array of integer; procedure Vvod(var...

нарисовать блок схему
люди помогите нарисовать блок схему. очень сильно нужно)я сам не разбираюсь в них целый день...

	28.06.2013, 21:14

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

28.06.2013, 21:14

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

Нарисовать блок-схему
uses graphABC; function F1(x:real):real; begin F1:=x*cos(2*x); end; function F2(x:real):real;...

Блок схему поспособствуйте нарисовать
const mmax = 10; nmax = 10; var a:array of integer; b:array of integer; n,m,i,j,k,c:...

Нарисовать блок-схему к программе
Program shagoviy; function f(x:real): real; begin f:=3*x-exp(x); end; var a,b,h,x:real; ...

Нарисовать блок-схему по коду
program massive; uses crt; var arr: array of integer; n, i, min, max, buf: integer; begin ...

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

Или воспользуйтесь поиском по форуму:

Наверх