|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.04.2008, 10:16 | #1 |
Пользователь
Регистрация: 01.04.2008
Сообщений: 42
|
Пожайлуйста помогите решить задачки...Заранее спасибо!И удачи всем!
1)Число делиться на 11.если разность между суммой цифр, стоящих на нечетных местах, и суммой цифр, стоящих на четных местах,кратна 11. Проверит этот признак для всех натуральных чисел, не превосходящих заданного m, и вывести числа кратные 11.
2)На шахматной доске стоят черный король и три белые ладьи(ладья бьет по горизонтали и вертикали).Проверить не находиться ли король под боем, а если есть угроза, то от кого именно. 3)Найти все натуральные числа от 1 до 1000 которые совпадают с последними разрядами своих квадратов.(например.25^2=625, 76^2=5676) . 4)Можно ли из круглой заготовки радиуса l вырезать две прямоугольные пластину и с раз мерами a*b и c*d? 5)Задача-первый путник движеться со скоростью v1 и v2, b s1 и s2(s1=v1,v2=s2) на встречу другому,а второй путник движеться s3,s4 и v3,v4(s3=v3,v4=s4) на встречу первому . Определите на каком участке встретяться и время встречи.(три условия должно быть….). Последний раз редактировалось vdv08; 06.04.2008 в 18:33. |
06.04.2008, 10:31 | #2 |
Сисадмин
Форумчанин
Регистрация: 28.12.2007
Сообщений: 320
|
Ну и какие будут соображения по поводу задач? Или все-таки охотимся за халявой?
|
06.04.2008, 16:59 | #3 | |
Пользователь
Регистрация: 01.04.2008
Сообщений: 42
|
Цитата:
ВОТ 5 ЗАДАЧА program matrica; uses crt; var s1,s2,s3,s4,v1,v2,v3,v4,t,t1,t2,t3, t4,th,i,sh1,sh2:extended; begin clrscr; writeln('vvedite s1,s2,s3,s4,v1,v2,v3,v4'); readln(s1,s2,s3,s4,v1,v2,v3,v4); t1:=s1/v1;t3:=s3/v3;t2:=s2/v2; if (s1>s4) then begin writeln('s1>s4'); if (t1>t3) then t:=(s1+s3*v4)/(v1+v4); s1:=v1*t; s2:=s1+s2-sh1; sh2:=v3*t; sh1:=s1+s2-sh1; writeln('t1=',t1:5:2,' ','t2=',t2:5:2,' ','sh1=',sh1:5:2,' ','sh2=',sh2:5:2,' '); end else if (s1<s4) then begin writeln('s1<s4'); if (t1<t3) then begin t:=(s1+s3*v4)/(v1+v4); s1:=(v1*t); s2:=s1+s2-sh1; sh2:=v3*t; sh1:=s1+s2-sh1; writeln('t1=',t1:5:2,' ','t2=',t2:5:2,' ','sh1=',sh1:5:2,' ','sh2=',sh2:5:2,' '); end;end else begin writeln('s1=s4'); t1:=s1/v1; t2:=s3/v3; if (t1=t3) then begin write ('123') ; t:=(s1+s3*v4)/(v1+v4); s1:=(v1*t); s2:=s1+s2-sh1; sh2:=v3*t; sh1:=s1+s2-sh1; writeln('t1=',t1:5:2,' ','t2=',t2:5:2,' ','sh1=',sh1:5:2,' ','sh2=',sh2:5:2,' '); end; end; end. |
|
06.04.2008, 18:09 | #4 | |
Сисадмин
Форумчанин
Регистрация: 28.12.2007
Сообщений: 320
|
Цитата:
Опять же неопределенности какие-то с условием... "Не считает" - это вообще не считает или считает, но неправильно. Прогоняя Вашу программу, я всегда получаю результат при исходных данных, удовлетворяющих условию задачи Последний раз редактировалось Xardas; 06.04.2008 в 18:57. |
|
06.04.2008, 19:52 | #5 |
Пользователь
Регистрация: 01.04.2008
Сообщений: 42
|
Он не считае writeln('s1=s4');
t1:=s1/v1; t2:=s3/v3; if (t1=t3) then begin write ('123') ; t:=(s1+s3*v4)/(v1+v4); s1:=(v1*t); s2:=s1+s2-sh1; sh2:=v3*t; sh1:=s1+s2-sh1; writeln('t1=',t1:5:2,' ','t2=',t2:5:2,' ','sh1=',sh1:5:2,' ','sh2=',sh2:5:2,' '); ,тут должен выводиться t1,t2,sh1,sh2 а он выдает токо t1=t3! |
06.04.2008, 20:13 | #6 | |
Сисадмин
Форумчанин
Регистрация: 28.12.2007
Сообщений: 320
|
Цитата:
|
|
06.04.2008, 20:36 | #7 |
Пользователь
Регистрация: 01.04.2008
Сообщений: 42
|
а как на твой взгляд прога грамотно написанна,рабочая,правильно считает?
|
06.04.2008, 20:38 | #8 |
Пользователь
Регистрация: 01.04.2008
Сообщений: 42
|
а другие проги ьы знаешь как делать?подскажи если не вломы?
|
06.04.2008, 20:53 | #9 | |
Сисадмин
Форумчанин
Регистрация: 28.12.2007
Сообщений: 320
|
В математические расчеты я не вникал, поскольку так и не понял условия задачи.
Цитата:
2) Решаете с помощью массивов. Сводится к поиску элементов в матрице в определенной строке и столбце. 3) С первого взгляда, можно выделять последние цифры и сравнивать их с проверяемым числом. 4) Ну это уж, чистая геометрия... Находите площадь круга и площади брусков и сравниваете их. ЗЫ Конечно, я понимаю, что мы торопимся, но можно хотя бы нормально писать посты, нормальным русским языком, иногда, после прочтения подобных "ыы" и "не вломы", уже начинает отпадать желание помогать.... Последний раз редактировалось Xardas; 06.04.2008 в 21:04. |
|
06.04.2008, 21:01 | #10 |
Пользователь
Регистрация: 01.04.2008
Сообщений: 42
|
[QUOTE=Xardas;88523] спасиб за помощь!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Привет всем!Помогите пожалуйста с сортировкой файла в Delphi, заранее спасибо | Taisja | Помощь студентам | 2 | 01.06.2008 15:42 |
Опять Паскаль...Тема множества...Заранее огромное спасибо!!! | Miledi | Помощь студентам | 1 | 20.04.2008 16:34 |
Не могу решить программу в Turbo Pascal помогите пожалуйста! Заранее благодарен... | dolbi | Помощь студентам | 5 | 01.04.2008 08:26 |