Большой Воронежский Форум
» Программирование>Помогите решить задачи на паскале...
Invisible Hunter 20:10 28.05.2008
Люди добрые ! Помогите пожалуйста... завтра сдавать, а я ноль в паскале... но задачи нужно сдать...
Заранее благодарен.

5) нарисовать окружность состоящую из 36 разноцветных квадратов.

6) напишите программу, которая рисует последовательность из n окружностей, радиуса r, и
цвета c, для r,n,c, введённых с клавиатуры.

7) Вычислить сумму ряда Y=1! + 2! +3! + ... n!, для n введённого с клавиатуры.

8) Дана последовательность символов, заканчивающаяся символом "+". Определить и вывести
на экран номера символов, имеющих наибольший и наименьший номер.

9) напишите программу, которая вводит с клавиатуры 20 реальных чисел, организовывает
их хранение в одномерном массиве, а затем определяет индекс и значение максимального
элемента массива. Результат выдаётся на экран пользователя.

11) Дан массив, состоящий из 15 символов. Содержимое массива сортируется по убыванию.
После этого выводится контрольное число в диапозоне от 0-255. Необходимо определить наличие
в массиве символа, имеющего номер "контрольное число". В положительном случае сам символ
и его индекс выводится на экран.

13) определить в строке введенной с клавиатуры количество гласных (латинских) букв.
xxx-men 21:17 28.05.2008

Сообщение от Invisible Hunter:
5) нарисовать окружность состоящую из 36 разноцветных квадратов.

50 руб

Сообщение от Invisible Hunter:
6) напишите программу, которая рисует последовательность из n окружностей, радиуса r, и
цвета c, для r,n,c, введённых с клавиатуры.

40 руб

Сообщение от Invisible Hunter:
7) Вычислить сумму ряда Y=1! + 2! +3! + ... n!, для n введённого с клавиатуры.

20 руб

Сообщение от Invisible Hunter:
8) Дана последовательность символов, заканчивающаяся символом "+". Определить и вывести
на экран номера символов, имеющих наибольший и наименьший номер.

20 руб

Сообщение от Invisible Hunter:
9) напишите программу, которая вводит с клавиатуры 20 реальных чисел, организовывает
их хранение в одномерном массиве, а затем определяет индекс и значение максимального
элемента массива. Результат выдаётся на экран пользователя.

о_О 40 руб

Сообщение от Invisible Hunter:
11) Дан массив, состоящий из 15 символов. Содержимое массива сортируется по убыванию.
После этого выводится контрольное число в диапозоне от 0-255. Необходимо определить наличие
в массиве символа, имеющего номер "контрольное число". В положительном случае сам символ
и его индекс выводится на экран.

30ру + 10 за то что бы понять условие

Сообщение от Invisible Hunter:
13) определить в строке введенной с клавиатуры количество гласных (латинских) букв.

50

угадать нужный тебе язык программирования:
10ру
Pengvin 21:52 28.05.2008

Сообщение от Invisible Hunter:
а я ноль в паскале

Сообщение от xxx-men:
угадать нужный тебе язык программирования:
10ру

я так думаю Pascal. где мои 10 рубей?
вобще правильное дело деньги с них брать достали эти нерадивые студиоузы/школяры. Мне вот завтро курсяк по электронным устройствам сдавать я же не пишу в теме радиолюбитель: "ПАМАГИТЕ спроектируйете стабилизированный блок питания!!!!!!1111 А то завтра здавать, а я не могу коллектор от базы отличить"
Invisible Hunter 22:25 28.05.2008
Теперь остались только эти.... Если есть возможность, решите пожалуйста...

5) нарисовать окружность состоящую из 36 разноцветных квадратов.

6) напишите программу, которая рисует последовательность из n окружностей, радиуса r, и
цвета c, для r,n,c, введённых с клавиатуры.

8) Дана последовательность символов, заканчивающаяся символом "+". Определить и вывести
на экран номера символов, имеющих наибольший и наименьший номер.

xxx-men за доброе спасибо уже никто не готов? ...
Regard 22:42 28.05.2008
program num_5;
uses graph;
var x, y, n, gd, gm:integer;
c:word;
a:real;
begin
gd:=VGA;
gm:=VGAhi;
InitGraph(gd,gm,'с:\bp\bgi');
if GraphResult=grOK then
begin
c:=1;
n:=0;
a:=0;
while n<36 do
begin
SetColor(c);
x:=round(cos(a)*200+320);
y:=round(sin(a)*200+240);
Rectangle(x-10,y-10,x+10,y+10);
a:=a+(pi*10/180);
inc(c);
if c=16 then c:=1;
inc(n);
end;
end;
readln;
CloseGraph;
end.

В строке InitGraph(gd,gm,'с:\bp\bgi'); указывай путь к папке с модулями такой, какой он будет у тебя.
xxx-men 09:04 29.05.2008

Сообщение от Invisible Hunter:
Помогите решить задачи на паскале...

Сообщение от xxx-men:
угадать нужный тебе язык программирования:
10ру

мдя...., тут я чёта цену слегка заломил....


Сообщение от Invisible Hunter:
за доброе спасибо уже никто не готов? ...

пачимуже никто
, обязательно должны найтись добрые люди
Kerish 11:22 29.05.2008

Сообщение от Invisible Hunter:
xxx-men за доброе спасибо уже никто не готов? ...

Таких как ты со своими задачами в этой теме появляется множество и постоянно, а людей сидящих и с нетерпением ждущих решать ваши задачи за спасибо крайне мало, если вообще они есть.

Всё, на днях замучу спец. тему для задач.
дядя Дима 16:57 29.05.2008

Сообщение от Kerish:
Таких как ты со своими задачами в этой теме появляется множество и постоянно, а людей сидящих и с нетерпением ждущих решать ваши задачи за спасибо крайне мало, если вообще они есть.
Всё, на днях замучу спец. тему для задач.

А назвать ветку "решите на хяляву мож кому нечего делать", "Полухалява", и ветку "Типовые задачи", а также ветку с ссылкой на гугл и хелпом по поиску.
И разрешить заходить на первые три только после посещения гугла :-))))))))))))
Saint 17:07 29.05.2008
Kerish, да и предлогающих решить за деньги тоже немного
Invisible Hunter 17:08 29.05.2008
Regard спс! сегодня сдал на хор. остальным(за деньги) в пример : http://www.programmersforum.ru/showt...294#post107294
Сегодня помогли вы, завтра помогут вам.... И всё же благоданость за внимание!
Invisible Hunter 17:08 29.05.2008
ps: тему можно закрыть
Вверх