miss_graffiti
Долгожитель
|
      
пиши, тебе никто не запрещает 
извини, конечно, но я не собираюсь специально обзванивать всех знакомых в поисках паскаля.
или даже отлаживать лень?
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 5 окт. 2005 18:06 | IP
|
|
sem
Удален
|
Турбо Паскаль!!!
Очень нужно! Ребята помогите пожалуйста!
1)Вычислить: 1*2+2*3*4+3*4*5*6+...+n*(n+1)*...2n.
2)Найти m: m=(max(x,y,z)/min(x,y))+5 ; если даны x,y,z.
Готовые программы присылайте пожалуйста мне на мыло!!!
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 13 окт. 2005 22:18 | IP
|
|
miss_graffiti
Долгожитель
|
ну замечательно!
ребятки, сделайте за меня всю работу, и пришлите на мыло - а то мне даже в форум лень заглянуть.
задачи простые. если нужны консультации - это без проблем, но полностью!!!!
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 13 окт. 2005 23:30 | IP
|
|
Guest
Новичок
|
program l18;
Var
f: Text;
i: integer;
begin
assign(f,'d:\data.txt');
rewrite(f);
for i := 1 to 20 do
if i <= 8 then writeln(f, sin(i*PI/8))
else writeln(f, 4*cos(i*(PI+1))/5);
close(f);
end.
... ПОМОГИТЕ определить количество отрицательных значений, содержащихся в сформированном файле...
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 8 нояб. 2005 14:33 | IP
|
|
miss_graffiti
Долгожитель
|
имеющийся кусок должен быть именно таким?
я бы предложила либо использовать не текстовый файл, либо сразу считать количество.
а если именно так - не придумывается ничего умнее, как посимвольно сравнивать с '-'.
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 8 нояб. 2005 17:22 | IP
|
|
Guest
Новичок
|
Мне нужно написать в паскале программу, которая вычисляет наибольший общий делитель двух введенных натуральных чисел.
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 14 нояб. 2005 17:08 | IP
|
|
miss_graffiti
Долгожитель
|
цикл для i от a до 2, где a меньшее из чисел.
если оба числа делятся на данное i, то
S:=S*i;
a:=a/i;
b:=b/i
все. думаю, можно придумать и более красивый вариант
не уверена, что не возникнет глюка по поводу изменения границ счетчика. если будет ругаться - надо ввести доп.переменную.
(Сообщение отредактировал miss graffiti 14 нояб. 2005 22:15)
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 14 нояб. 2005 22:10 | IP
|
|
Dzen
Удален
|
Честно говоря у меня от этого "алгоритма" волосы на голове дыбом встали.
можно придумать и более красивый вариант
Угу, например алгоритм Евклида. Что такое - читай в умных книжках.
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 16 нояб. 2005 14:17 | IP
|
|
miss_graffiti
Долгожитель
|
можно конкретные конструктивые комментарии?
"все придурки, пишете отстой",- может сказать любой.
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 16 нояб. 2005 19:06 | IP
|
|
Dzen
Удален
|
Ok.
function NOD(a,b:integer):integer;
var
r:integer;
begin
if a<>0 and b<>0 then begin
r:=a mod b;
while r<>0 do
begin
a:=b;
b:=r;
r:=a mod b;
end
NOD:=b;
end
else NOD:=a+b;
end;
вы довольны?
все придурки, пишете отстой
Хм, что-то не припомню чтобы писал что либо в таком духе. Просто меня действительно шокировало незнание таких элементарных вещей.
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 17 нояб. 2005 13:58 | IP
|
|
Форум
Турбо Паскаль. Программирование на Pascal
