Версия для печати темы

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

WinCity.Ru _ Программирование _ Помогите составить алгоритмы

Автор: vitor888 Понедельник, 13 Ноября 2006, 22:12

Здравствуйте! Люди добрые помогите пожалуйста, вас умоляю! Помогите мне составить хотя бы один из этих алгоритмов. Можно в виде блок-схемы, а можно в виде программы. Просто очень надо!!!! Поймите меня!! И я вам чем смогу помогу если что надо будет! Заранее ВАМ всем огромное спасибо!

1 алгоритм.
Составить алгоритм программы, которая должна сформировать и записать в файл слово, полученное из исходного циклическим сдвигом его на N символов влево. Слово – любая последовательность букв латинского (A-Z, a-z) или русского (А-Я, а-я) алфавита. На входе программы задаётся слово длиной L < 80 и натуральное число N < 10100 . При циклическом сдвиге на каждом шагу буква слова, стоящая на первом месте, перемещается в конец.

2 алгоритм.
Определить, делится ли на семь двоичное число N, стоящее не более чем из 1000 двоичных цифр.
Написать алгоритм программы, которая выполняет проверку делимости и в случае, если число N не делится на семь, определяет минимальное десятичное число, которое нужно добавить к исходному двоичному числу, чтобы получилось число, кратное семи.

Автор: H@ns Вторник, 14 Ноября 2006, 1:05

1: функция на Delphi

Код

function sdvig(s:string; n:integer):string;
var

l,k,i,j:integer;
buf:char;
begin
l:=length(s);
k:=n mod l;
for i:=1 to k do
begin
buf:=s[1];
for j:=2 to l do
s[j-1]:=s[j];
s[l]:=buf;
end;
result:=s;
end;

2: в начале надо перевести двоичное число в десятичное(напр N) и потом можно так

Код

if N mod 7 =0
then ShowMessage('делится')
else begin
c:=7-(N mod 7);
ShowMessage('неделится, ещё нужно '+IntToStr(c) );
end;

Автор: mpa Вторник, 14 Ноября 2006, 10:07

от студенты...лень самим.

Автор: Archangel Среда, 15 Ноября 2006, 16:06

mpa, не леньб, просто времени нету
А многие сидят на работе и думают чем бы заняться
помнится где то вычитал диалог из ацки
-Привет
-Хай
-Чем занимаешься?
-Да ничем, на работе Я