Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.06.2013, 16:49   #1
madara124
Новичок
Джуниор
 
Регистрация: 04.06.2013
Сообщений: 1
Радость Словесное описание алгоритма:

Памагите написать Словесное описание алгоритма.



program tri;
uses crt;
var
m:array[1..999] of integer;
i,n,g:integer;
begin
writeln('введите размер массива');
readln (n);
writeln('введите диапазон чисел');
readln(g);
writeln();
for i:=1 to n do begin
m[i]:=random(g);
writeln(m[i]);
end;
writeln('подходят номера');
for i:=1 to n do
if (m[i]<3) AND (m[i]>=1) Then write(i);
end.
madara124 вне форума Ответить с цитированием
Старый 07.06.2013, 18:08   #2
challengerr
Участник клуба
 
Аватар для challengerr
 
Регистрация: 30.07.2008
Сообщений: 1,601
По умолчанию

На псевдокоде имеется в виду или просто словами?

В коде происходит следующее

ДЛЯ i ОТ 1 ДО n
ЗАПОЛНИТЬ m[i] СЛУЧАЙНЫМ ЧИСЛОМ
ВЫВЕСТИ m[i]
КОНЕЦ ДЛЯ

ДЛЯ i ОТ 1 ДО n
ЕСЛИ ЭЛЕМЕНТ m[i] принадлежит полуинтервалу [1,3)
ВЫВЕСТИ ИНДЕКС
КОНЕЦ ДЛЯ


Программа упадет если n будет больше 999 или отрицательным.
"SPACE.THE FINAL FRONTIER.This's a voyage of starship Enterprise. It's 5-year mission to explore strange new worlds,to seek out new life and civilizations,to boldly go where no man has gone before"
challengerr вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Описание алгоритма шифрования Эль-гамаль Mixim Свободное общение 10 14.12.2013 17:16
Составить словесное описание и блок схему (Delphi) MaDDi Помощь студентам 0 18.02.2012 16:22
олимпиадная задача на паскале шоколадные плитки...нужно полное словесное описание sexyanet Помощь студентам 4 27.12.2011 00:18
Словесное описание программы katerina2508 Паскаль, Turbo Pascal, PascalABC.NET 0 31.05.2010 21:35