VPF::[Pascal] Реализация программы через функции

borjomi

Дата 28.12.2006, 22:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 15.5.2006

Репутация: нет
Всего: нет

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

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. С новым годом!!!

Это сообщение отредактировал(а) borjomi - 6.1.2007, 18:43

Kuvaldis

Дата 28.12.2006, 22:50 (ссылка)

(нет голосов)

Загрузка ...

механик-вредитель

Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

Репутация: 32
Всего: 61

borjomi,

M
Kuvaldis

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

--------------------

Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей

Guedda

Дата 6.1.2007, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 6
Всего: 78

Код


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.

--------------------

Ll 2

Sunvas

Дата 6.1.2007, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 7
Всего: 89

Код


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.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »