Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Реализация программы через функции

Автор: borjomi 28.12.2006, 22:16

в задачу надо вставить функцию.

Program m;
uses crt;
var
  a:array[1..100] of integer;
  i,k,n:integer;
begin
clrscr;
write('Vvedite n');
read(n);
for i:=1 to n do begin
writeln('Vvedite elment massiva A[',i,']');
readln(A[i]);
end;
k:=A[n];
writeln;
for i:=n downto 2 do
  A[i]:=A[i-1];
  writeln;
  A[1]:=k;
for i:=1 to n do
  writeln(A[i]);
   writeln;

end. С новым годом!!!

Автор: Kuvaldis 28.12.2006, 22:50

borjomi,

M
Kuvaldis

1. Не забываем указывать язык программирования при создании темы.
2. Для подсветки кода пользуемся тэгами. Об их использовании можно почитать здесь
Отредактируйте свой пост!

Автор: Guedda 6.1.2007, 19:31

Код


Program m;
uses crt;
var
  a : array[1..100] of integer;
  i,k,n : integer;

procedure VotProcedura;
begin
  write('Vvedite n');
  read(n);
  for i := 1 to n do begin
    writeln('Vvedite elment massiva A[',i,']');
    readln(A[i]);
  end;
  k := A[n];
  writeln;
  for i := n downto 2 do
    A[i] := A[i-1];
  writeln;
  A[1] := k;
  for i := 1 to n do
    writeln(A[i]);
  writeln;
end;

begin
  ClrScr;
  VotProcedura;
end.

Автор: Sunvas 6.1.2007, 19:53

Код


Program m;
uses crt;
var
  a:array[1..100] of integer;
  i,k,n:integer;
function prog:boolean;
begin
prog:=false;
write('Vvedite n');
read(n);
for i:=1 to n do begin
writeln('Vvedite elment massiva A[',i,']');
readln(A[i]);
end;
k:=A[n];
writeln;
for i:=n downto 2 do
  A[i]:=A[i-1];
  writeln;
  A[1]:=k;
for i:=1 to n do
  writeln(A[i]);
   writeln;

prog:=true;
end;
begin
clrscr;
if not prog then writeln('Error!');
end.