Автор |
|
Litty
Участник
-пыхчик)
|
отправлено: 26-04-2008 20:02:42 | |
инфо • правка • ссылка • сообщить модератору |
решите,пожалуйста,задачи по физике: 1. Рентгеновское излучение с длиной волны 1 нм, рассеивает электроны, которые можно считать практически свободными. Определить максимальную длину волны рентгеновского излучения в рассеянном пучке. 2. Электромагнитная волна с частотой 3 МГц переходит из вакуума в диэлектрик, с относительной диэлектрической проницаемостью 4. Найти приращение ее длины волны. |
|
IP |
|
настюшкин
Новичок
|
отправлено: 27-04-2008 12:35:53 | |
инфо • правка • ссылка • сообщить модератору |
т.к. я в инфе полный даун помогите пожааалустааа)) (паскаль) 1)ввести 3 символа и вывести таблицу (символ-код) 2)дано 3-значное целое число.Символьным перемен. С1,С2,С3 присвоить первую среднюю и правую цифры числа соответственно. 3) Написать программу ,вычисляющую простейшее арифметическое выражение.Пользователь вводит выражение типа "1+2" или "7*8" ( цифра, знак операции,цифра),и программа печатает результат.Знак операции- одно из след. действий (+,-,*,/) |
|
IP |
|
Бося
Участник
|
отправлено: 28-04-2008 22:36:48 | |
инфо • правка • ссылка • сообщить модератору |
Помогите,пожалуйста решить: Дана трапеция ABCD, угол А=В=90 градусов.Диагональ АС - биссектриса угла А.АС=3 корень из 2, угол СDА=а. Найти S трапеции. |
|
IP |
|
Бося
Участник
|
отправлено: 28-04-2008 22:38:59 | |
инфо • правка • ссылка • сообщить модератору |
Найти радиус окружности, вписанной в прямоугольный треугольник с острым углом а, если радиус описанной окружности =R |
Сообщение изменено Бося от 2008-04-28 22:40:20 |
|
IP |
|
Лакки
Участник
Luck
licq:9071
|
отправлено: 29-04-2008 16:11:07 | |
инфо • правка • ссылка • сообщить модератору |
2 бося зы:1 задача. 1)т.к АС-биссектр,то углы по 45,дальше по теореме пифагора,получается что ВС=АВ=3 2)проводишь из С высоту Н на АД 3)рассматриваешь АВСН 4)естесственно это квадрат(все углы по 90,стороны равны),значит СН тоже 3 5)далее рассматриваешь треуг СНД,тебе дан угол а ,т.е ты можешь найти тангенс а 6)зная тангенс ты можешь выразить через него сторону НД 7)АД=АН+НД=... 8)дальше считаешь площадь трап. она равна 1/2(ВС+АД)*СН (хехе))помоему так))) ну вот впринципе всё) |
|
IP |
|
КАТенок в бане
Участник
Я сама по себе, я со всеми и ни с кем...
licq:6040
|
|
Лакки
Участник
Luck
licq:9071
|
|
КАТенок в бане
Участник
Я сама по себе, я со всеми и ни с кем...
licq:6040
|
|
hyper
Участник
...своё время нужно уважать...
licq:4421
|
отправлено: 29-04-2008 21:01:15 | |
инфо • правка • ссылка • сообщить модератору |
To настюшкин 1) program Project1; {$APPTYPE CONSOLE} uses SysUtils; var a,b,c:char; a1,b1,c1:integer; begin writeln('vvedite 3 simvola: '); readln(a);readln(b);readln(c); a1:=ord(a); b1:=ord(b); c1:=ord(c); writeln('_______________________'); writeln('| simvol | kod |'); writeln('|__________|__________|'); writeln('| ',a,' | ',a1,' |'); writeln('| ',b,' | ',b1,' |'); writeln('| ',c,' | ',c1,' |'); writeln('|__________|__________|'); readln; end. |
|
IP |
|
Лакки
Участник
Luck
licq:9071
|
|
hyper
Участник
...своё время нужно уважать...
licq:4421
|
отправлено: 29-04-2008 21:23:44 | |
инфо • правка • ссылка • сообщить модератору |
To настюшкин 2. program Project1; {$APPTYPE CONSOLE} uses SysUtils; var X:integer; C1,C2,C3:char; s1,s2,s3:string[1]; label 1; begin 1:writeln('vvedite 3x-zna4noe 4islo'); readln(X); if (x>999) or (x<100) then goto 1 else begin s3:=inttostr(x mod 10); s2:=inttostr(x mod 100 div 10); s1:=inttostr(x div 100); c1:=s1[1]; c2:=s2[1]; c3:=s3[1]; writeln('c1=',c1); writeln('c2=',c2); writeln('c3=',c3); end; readln; end. |
|
IP |
|
hyper
Участник
...своё время нужно уважать...
licq:4421
|
отправлено: 29-04-2008 21:38:33 | |
инфо • правка • ссылка • сообщить модератору |
To настюшкин 3. program Project1; {$APPTYPE CONSOLE} uses SysUtils; var a,b,o:char; x,y:integer; begin write('vvedite virazhenie: '); readln(a,o,b); x:=ord(a)-48; y:=ord(b)-48; if o='+' then write(a,o,b,'=',(x+y)); if o='-' then write(a,o,b,'=',(x-y)); if o='*' then write(a,o,b,'=',(x*y)); if o='/' then write(a,o,b,'=',(x/y):4:2); readln; end. |
|
IP |
|
КАТенок в бане
Участник
Я сама по себе, я со всеми и ни с кем...
licq:6040
|
|
Leedhas
Участник
.everybody have price and every fibs.
|
отправлено: 30-04-2008 13:15:22 | |
инфо • правка • ссылка • сообщить модератору |
есть 2 массива a[1..5] of integer; b[1..5] of integer; Они упорядочены по возрастанию ( пример а[1,6,7,8,9] б[2,4,8,9,10] ) Нужно составить из 2-х один - массив c , тоже упорядоченный по возрастанию. Все это нужно сделать за 1 проход. в цикле чета пока ничего не получается |
|
IP |
|
Лакки
Участник
Luck
licq:9071
|
|
КАТенок в бане
Участник
Я сама по себе, я со всеми и ни с кем...
licq:6040
|
|
hyper
Участник
...своё время нужно уважать...
licq:4421
|
отправлено: 01-05-2008 22:57:57 | |
инфо • правка • ссылка • сообщить модератору |
To КАТенок в бане 1)=log(4)[64*(sqrt(7)-sqrt(3))^2*(10+2sqrt(21))= log(4)*[10^2-(2sqrt(21))^2]=log(4)[64*16]=5 |
|
IP |
|
Leedhas
Участник
.everybody have price and every fibs.
|
отправлено: 02-05-2008 15:24:19 | |
инфо • правка • ссылка • сообщить модератору |
есть 2 массива a[1..5] of integer; b[1..5] of integer; Они упорядочены по возрастанию ( пример а[1,6,7,8,9] б[2,4,8,9,10] ) Нужно составить из 2-х один - массив c , тоже упорядоченный по возрастанию. Все это нужно сделать за 1 проход. в цикле алгоритм написал, но для случая, когда a[i]>b[i+1] он не подходит( например A: 1,3,4,7 B: 5,8,9,10 |
|
IP |
|
КАТенок в бане
Участник
Я сама по себе, я со всеми и ни с кем...
licq:6040
|
|
EIP
Новичок
|
отправлено: 02-05-2008 23:29:10 | |
инфо • правка • ссылка • сообщить модератору |
To Leedhas вариант на Си: int i=1, j=1, k; for (k=1; k<10; k++) if (a[i]<b[j]) { c[k]=a[i]; i++;} else {c[k]=b[j]; j++;} на паскале: i:=1; j:=1; for k:=1 to 10 do if a[i]<b[j] then begin c[k]:=a[i]; inc(i); end else begin c[k]:=b[j]; inc(j); end; |
Сообщение изменено EIP от 2008-05-02 23:33:21 |
|
IP |
|
EIP
Новичок
|
отправлено: 02-05-2008 23:44:00 | |
инфо • правка • ссылка • сообщить модератору |
Хороший был вариант, но там не предусмотрена одна возможность. Если, например, в конце последнего цикла мы использовали a[5], то там будет i=6, дальше там будут все из b, но мы не должны проверять a[6] так как это выход за границу массива. Надо сделать так, что если i=6 то мы всегда берем b, а если j=6, то всегда а. Поэтому: код:
i:=1; j:=1; const max:=6; for k:=1 to 10 do if i<max and j<max then if a[i]<b[j] then begin c[k]:=a[i]; inc(i); end else begin c[k]:=b[j]; inc(j); end; else if j=max then begin c[k]:=a[i]; inc(i); end else begin c[k]:=b[j]; inc(j); end;
|
Сообщение изменено EIP от 2008-05-02 23:48:06 |
|
IP |
|
EIP
Новичок
|
отправлено: 02-05-2008 23:49:27 | |
инфо • правка • ссылка • сообщить модератору |
Но этот вариант мне не нравится тем, что там один и тот же код повторяется два раза. Можно это убрать. |
|
IP |
|
albanec.
Участник
bmw 3.0 i v6
licq:2922
|
|
k1rR
Участник
HATE THIS REAL
licq:2153
|
|
КАТенок в бане
Участник
Я сама по себе, я со всеми и ни с кем...
licq:6040
|
отправлено: 03-05-2008 16:32:51 | |
инфо • правка • ссылка • сообщить модератору |
Нарооод, подскажите пожалуйста чему равен объем тетраэдра?? (Можно находить его объем как пирамиды?) |
|
IP |
|
G-man
Участник
CoD:UO Slipknot SKA Гр.Об.
licq:4824
|
отправлено: 03-05-2008 18:35:49 | |
инфо • правка • ссылка • сообщить модератору |
Нужно написать 3 программы на фортране с блок схемами, спецификациями и проверками... Задачи вроде не очень сложные, типовик.ком брал 800 за каждую задачу, но с ними связь потеряна, готов заплатить по 1к рублёв! ftp://192.168.2.231/upload/***/ - сами задачи За всеми подробностями в аську 4824 |
|
IP |
|
G-man
Участник
CoD:UO Slipknot SKA Гр.Об.
licq:4824
|
|
КАТенок в бане
Участник
Я сама по себе, я со всеми и ни с кем...
licq:6040
|
|
N@sten@
Участник
•:*`..Жизнь напополам..`*:•
licq:7894
|
отправлено: 03-05-2008 22:42:59 | |
инфо • правка • ссылка • сообщить модератору |
Решите пожалуйста задания по информатике: 1)Построить блок-схему алгоритма нахождения минимального числа из набора из 5 чисел. 2)Построить блок-схему алгоритма: вывод на экран компьютера сообщение о возрасте пользователя, который вводит свою дату рождения с клавиатуры. Если возраст пользователя (YOUR AGE) меньше 2000 года, то выводится сообщение: "Вы ребёнок", если больше 2000 года, но меньше 1990 года - "Вы подросток", а если больше 21 года - "Вы взрослый".При этом вывести данные о возможных ошибках (когда вводится данные, меньше 0) 3)Какое значение s будет напечатано после выполнения программы для входного данного 2? read(y); s:=0; z:=-1; for x:=0 to 6 do begin if (x<y) and (y>-z) then begin y:=y+z; z:=-2+я end else begin y:=ABC(z); z:=ABC(z) end; s:=s+x+y+я end; write('s='s); end. 4) Посторить блок-схему алгоритма нахождения суммы значений элементов двумерного массива (5,6), которые не равны остатку от деления значения последнего элемента на значение первого. |
|
IP |
|
N@sten@
Участник
•:*`..Жизнь напополам..`*:•
licq:7894
|
|
Leedhas
Участник
.everybody have price and every fibs.
|
|
Лакки
Участник
Luck
licq:9071
|
|
El dia verde
Участник
Dibujo...
|
отправлено: 04-05-2008 20:13:24 | |
инфо • правка • ссылка • сообщить модератору |
помогите пожалуйста те,кто знают функциональный анализ. нужно пару задач решить! Пишите 9271 или лучше 437 840 571 |
Сообщение изменено El dia verde от 2008-05-04 20:13:45 |
|
IP |
|
EIP
Новичок
|
отправлено: 05-05-2008 05:29:38 | |
инфо • правка • ссылка • сообщить модератору |
To N@sten@ А что делает функция ABC? Без этого, по-моему, решить невозможно. И нет ли там других ошибок? |
Сообщение изменено EIP от 2008-05-05 05:44:44 |
|
IP |
|
N@sten@
Участник
•:*`..Жизнь напополам..`*:•
licq:7894
|
|
N@sten@
Участник
`*:•..Люблю только своего сладкого котёнка..`*:•
licq:7894
|
|
N@sten@
Участник
`*:•..Люблю только своего сладкого котёнка..`*:•
licq:7894
|
|
hyper
Участник
...своё время нужно уважать...
licq:4421
|
|
karp
Участник
iPhone ;)
licq:5442
|
|
stiks
Участник
licq:3398
|
отправлено: 11-05-2008 13:19:21 | |
инфо • правка • ссылка • сообщить модератору |
народ! помогите решить задачки в Mathcad и Maple! кто хорошо знаком с прогами может сможет помочь?)) |
|
IP |
|
|
|