Seryi
Серый, я только начинаю писать)))))
Максимум еще одну пятиминутку подобную))
Нью гэйм - трай ту гуесс, вот дас дыс коуд ду
Сообщений 41 страница 60 из 62
Поделиться412010-02-13 16:09:29
- Котэ
- Откуда: Москва
- Зарегистрирован: 2010-01-25
- Приглашений: 0
- Сообщений: 393
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Пол: Женский
- Возраст: 31 [1994-06-21]
- Провел на форуме:
4 дня 5 часов - Последний визит:
2010-06-03 11:59:36
Поделиться422010-02-13 20:44:44
лан попробую поставить, всеравно в скором варемени придется его ставить...
Поделиться432010-02-16 18:16:45
- Котэ
- Откуда: Москва
- Зарегистрирован: 2010-01-25
- Приглашений: 0
- Сообщений: 393
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Пол: Женский
- Возраст: 31 [1994-06-21]
- Провел на форуме:
4 дня 5 часов - Последний визит:
2010-06-03 11:59:36
Вот еще один код.
Позже еще дам один
Код:
var a,x,a1,a2,a3,a4,a5:integer;
begin;
write('a=');
readln(a);
a1:= a div 10000;
a2:= a mod 10000 div 1000;
a3:= a mod 1000 div 100;
a4:= a mod 100 div 10;
a5:= a mod 10;
writeln('x=',a5*10000+a4*1000+a3*1000+a2*10+a1);
readln;
end.Поделиться442010-02-16 20:17:34
программа, которая разворачивает число задом наперёд... я так понял, если ввести 38913, то программа выведет 31983
Поделиться452010-02-16 20:48:17
- Котэ
- Откуда: Москва
- Зарегистрирован: 2010-01-25
- Приглашений: 0
- Сообщений: 393
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Пол: Женский
- Возраст: 31 [1994-06-21]
- Провел на форуме:
4 дня 5 часов - Последний визит:
2010-06-03 11:59:36
Seryi
Прально) Ну дык, коды же простые...
Вот еще кодик один. Что он делает?) Именно что за теорема?)
Код:
var a,b,c,d:integer;
begin;
write('a=');
readln(a);
write('b=');
readln(b);
d:= sqr(a)+sqr(b);
writeln('c=',sqrt(d));
readln;
end.Поделиться462010-02-16 20:58:31
теорема пифагора, если я не ошибаюсь)
типа а^2 + b^2 = c^2
Поделиться472010-02-16 21:13:29
- Котэ
- Откуда: Москва
- Зарегистрирован: 2010-01-25
- Приглашений: 0
- Сообщений: 393
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Пол: Женский
- Возраст: 31 [1994-06-21]
- Провел на форуме:
4 дня 5 часов - Последний визит:
2010-06-03 11:59:36
Seryi
С тобой не интересно играть))))))))
Поделиться482010-02-16 21:49:57
почему?))
Поделиться492010-02-16 22:31:47
- Котэ
- Откуда: Москва
- Зарегистрирован: 2010-01-25
- Приглашений: 0
- Сообщений: 393
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Пол: Женский
- Возраст: 31 [1994-06-21]
- Провел на форуме:
4 дня 5 часов - Последний визит:
2010-06-03 11:59:36
Seryi
да ну, ты все разгадываешь х)))
Поделиться502010-02-17 13:20:33
ну и чо?) разве задачки задают не для того, чтобы их разгадали?)
Поделиться512010-02-17 23:41:31
серый твоя прога не откры вается, нет установил,может какойо не такой правда
Поделиться522010-02-18 03:48:08
хммм... странно... у меня открывается...
Поделиться532010-02-18 07:55:01
именно что странно))....у тебя какая винда?
Поделиться552010-03-02 14:27:37
- Котэ
- Откуда: Москва
- Зарегистрирован: 2010-01-25
- Приглашений: 0
- Сообщений: 393
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Пол: Женский
- Возраст: 31 [1994-06-21]
- Провел на форуме:
4 дня 5 часов - Последний визит:
2010-06-03 11:59:36
В общем, вот еще одна вещица. Уравнение, которое получается, желательно написать, а я уж проверю, так или нет)
Код:
var a,b,x,a0,a1,a2,a3,a4,a5,a6,a7,a8,a9:integer;
begin
write('a=');
readln(a);
write('x=');
readln(x);
a1:= sin(x);
a0:= sqrt(x);
b:= a1+a0;
a2:= 5*cos(x);
a3:= a2-1;
a4:= b/a3;
a5:= sqr(x)-2;
a6:= sqrt(a5);
a7:= abs(a6);
a8:= a4+a7;
writeln('a9=',a8);
readln;
end.Он же
Код:
var a,x,z:integer;
begin
write('a=');
readln(a);
write('x=');
realdln(x);
writeln('z=',(sin(x)+sqrt(a))/(5*cos(x)-1)+(abs(sqrt(sqr(x)-2))));
readln;
end.Отредактировано Asteria (2010-03-02 18:35:14)
Поделиться562010-03-02 18:02:53
ну по первой теме вопрос...а7 это модуль а7?????немного тафталогию напоминает)))наверное модуль а6?и ещё если первое и второе одно и тоже то по идее.....а0 должен быть корень от а....
И что то я не пойму какая моя задача))
Поделиться572010-03-02 18:27:32
я так полагаю, это вот эта формула))))))
(sin(x)+sqrt(a))/(5*cos(x)-1)+(abs(sqrt(sqr(x)-2)))
Поделиться582010-03-02 18:36:16
- Котэ
- Откуда: Москва
- Зарегистрирован: 2010-01-25
- Приглашений: 0
- Сообщений: 393
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Пол: Женский
- Возраст: 31 [1994-06-21]
- Провел на форуме:
4 дня 5 часов - Последний визит:
2010-06-03 11:59:36
Seryi
Серый, ты умница, а теперь напиши эту формулу нормальным математическим языком)))
Richard Ral
Ошибочка получилась. Поправила.
Поделиться592010-03-02 18:55:00
em...ну так а по поводу а0????там не корень от икса а от А дольжен быть????
ну какбы тут без проблем просто заменить скурт на корень квадртный и скур на квадрат...
(sin(x)+sqrt(a))/(5*cos(x)-1)+(abs(sqrt(sqr(x)-2)))
(sin(x)+a^0,5)/(5cos(x)-1)+|((x)^2 - 2)^0,5)|
Поделиться602010-03-02 18:57:33
Код:
Sub The_test()
Dim i
Set i = Shapes("Picture")
i.Left = 0
Do
Do
i.IncrementLeft 20
paus 0.02
Loop Until i.Left = 1000
If i.Left = 1000 Then
i.Left = 0
End If
Loop
End Sub
Private Sub CommandButton1_Click()
End
End Sub
Private Sub Läks_Click()
The_test
End Subочень простенький Визуал Бэисик
Отредактировано Richard Ral (2010-03-02 19:00:30)