Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 09.06.2014, 19:24   #1
Snyppi
Новичок
 
Регистрация: 09.06.2014
Сообщений: 1
Репутация: 10
По умолчанию Написать программу используя процедуры и функции

Помогите пожалуйста переделать прогу под процедуры и функции:
program lab8var3;
const n=5;
{type mas:array[1..n] of integer;}
var
a,b: array[1..n] of integer;
s,j,i,i1,i2,k: integer;
boo: boolean;
begin
boo:=false; k:=0; s:=0;
write('Введите массив ');
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
if (a[i]=0)and(boo=false) then
begin
i1:=i;
boo:=true;
inc(k);
end
else if (a[i]=0)and(boo=true) then
begin
i2:=i;
inc(k);
end;
end;
if k<2 then writeln('Недостаточно нулей')
else for i:=i1 to i2 do s:=s+a[i];
writeln('Сумма элементов между 1-м и последним нулями = ', s);

For j := 1 To n-1 Do
For i := 1 To n-1 Do
If a[i] > a[i+1] Then
Begin
b[i]:=a[i];
a[i]:=a[i+1];
a[i+1]:=b[i]
End;
Writeln('Отсортированный массив чисел:');
For i:=1 To n Do
Writeln (a[i]);

readln;
end.

Последний раз редактировалось Snyppi; 09.06.2014 в 21:42.
Snyppi вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Процедуры и функции - Заданы три двумерных массива одинаковой размерности. Написать фукнции и процедуры их обработки sekirei Паскаль 8 21.11.2013 15:45
С++ Написать программу, используя функции, вычисляющую итоговую сумму заработной платы, учитывая подоходный налог (13%), отчислени alex1994max Помощь студентам 1 09.07.2013 12:21
Задача на множества.Написать программу не позволяющую вводить буквы русского алфавита.(написать подпрограммой используя процедуры ANTON1994 Паскаль 3 09.02.2013 13:53
Написать программу используя подпрограмму- процедуру. advokat_92 Помощь студентам 0 25.11.2010 12:00
Используя циклы, написать программу Станислава13 Помощь студентам 1 10.05.2010 17:59


10:15.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.