Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Турбо Паскаль. Программирование на Pascal
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]
Модераторы: paradise, KMA
  

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.
Готовые программы присылайте пожалуйста мне на мыло!!!

Всего сообщений: Нет | Присоединился: март 2010 | Отправлено: 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

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]

Форум работает на скрипте © Ikonboard.com