Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется |
Здравствуйте, гость ( Вход | Регистрация )
Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется |
Aug 24 2005, 14:35
Сообщение
#1
|
|
Мега постер Группа: Posters Сообщений: 1,337 Регистрация: 15.8.2005 Из: Москва Пользователь №: 45 |
Можете сдесь задавать свои вопросы по этой теме.
-------------------- http://www.fds-net.ru Филиал Дома Студента МГУ
|
|
|
Dec 20 2006, 19:05
Сообщение
#81
|
|
Супер постер Группа: Local moder Сообщений: 888 Регистрация: 23.10.2005 Из: п.Кугеси Пользователь №: 106 |
|
|
|
Jan 18 2007, 07:42
Сообщение
#82
|
|
Да прибудет с тобой сила... Группа: Posters Сообщений: 1,180 Регистрация: 21.5.2006 Из: г.п. Урмары :) Пользователь №: 611 |
1)составить программу нахождения суммы двух чисел А & B(-100000000<=A, B<=100000000)
2)дана последовательность из N чисел в диапозоне -3200 до 3200.(1<=N<=10000), Вывести эту последовательность в обратном порядке(развернуть массив). (входные данные: в первой строке ввести число N во второй строке ввести N чисел через один или несколько пробелов) (входные данные)10 (выходные данные) 1 2 3 4 5 6 7 8 9 10 10 9 8 7 6 5 4 3 2 1 3)дан массив из N чисел в диапозоне от -32000 до 32000.(1<=N<=10000). отсортировать элементы данного массива по возрастанию (входные данные: в первой строке ввести число N во второй строке ввести N чисел через один или несколько пробелов) (входные данные)10 (выходные данные) 10 9 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 10 -------------------- ххх (21:01:35 6/08/2008)
Слу, в каком возрасте у маленьких девочек отрастают мозги? © |
|
|
Jan 18 2007, 08:01
Сообщение
#83
|
|
PAUK-NET.RU TEAM Группа: Admin Сообщений: 4,715 Регистрация: 11.7.2005 Из: ЮЗР Пользователь №: 3 |
1)составить программу нахождения суммы двух чисел А & B(-100000000<=A, B<=100000000) Sandro, ты издеваешься? Такую программу даже человек, совершенно незнакомый с языком, уж хоть за сутки - да состряпает самостоятельно. Тем более при наличии инета даже при условии отсутствия книг и лекций.
|
|
|
Jan 18 2007, 10:21
Сообщение
#84
|
|
Да прибудет с тобой сила... Группа: Posters Сообщений: 1,180 Регистрация: 21.5.2006 Из: г.п. Урмары :) Пользователь №: 611 |
Sandro, ты издеваешься? Такую программу даже человек, совершенно незнакомый с языком, уж хоть за сутки - да состряпает самостоятельно. Тем более при наличии инета даже при условии отсутствия книг и лекций. а остальные програмы? ps заходил в тему и думал что симм меня обгадит -------------------- ххх (21:01:35 6/08/2008)
Слу, в каком возрасте у маленьких девочек отрастают мозги? © |
|
|
Jan 18 2007, 10:31
Сообщение
#85
|
|
PAUK-NET.RU TEAM Группа: Admin Сообщений: 4,715 Регистрация: 11.7.2005 Из: ЮЗР Пользователь №: 3 |
|
|
|
Jan 18 2007, 11:32
Сообщение
#86
|
|
Мега постер Группа: Local moder Сообщений: 1,712 Регистрация: 21.8.2006 Пользователь №: 1,269 |
Вопрос и паскалю-то слабое отношение имеет.
Посиди, поразмышляй, авось за вечер сварганишь программки ) Самому же на пользу пойдет -------------------- |
|
|
Jan 18 2007, 13:00
Сообщение
#87
|
|
Супер постер Группа: Local moder Сообщений: 888 Регистрация: 23.10.2005 Из: п.Кугеси Пользователь №: 106 |
Цитата 3)дан массив из N чисел в диапозоне от -32000 до 32000.(1<=N<=10000). отсортировать элементы данного массива по возрастанию (входные данные: в первой строке ввести число N во второй строке ввести N чисел через один или несколько пробелов) (входные данные)10 (выходные данные) 10 9 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 10 Алгоритм данной задачи был выложен мною в 79-ом посте данного топика. |
|
|
Jan 18 2007, 13:34
Сообщение
#88
|
|
Супер постер Группа: Local moder Сообщений: 888 Регистрация: 23.10.2005 Из: п.Кугеси Пользователь №: 106 |
Цитата 2)дана последовательность из N чисел в диапозоне -3200 до 3200.(1<=N<=10000), Вывести эту последовательность в обратном порядке(развернуть массив). (входные данные: в первой строке ввести число N во второй строке ввести N чисел через один или несколько пробелов) (входные данные)10 (выходные данные) 1 2 3 4 5 6 7 8 9 10 10 9 8 7 6 5 4 3 2 1 Код program sandro;
uses crt; const max=10000; var c:array[1..max] of integer; n,i:integer; begin clrscr; repeat; write('vvedite kol-vo el-ov-->'); readln(n); if(n>max)then writeln('vvedeno N>MAX'); until(n<max); write('zapolnite massiv->'); for i:=1 to n do repeat; read(c[i]); until((c[i]>-3200) and (c[i]<3200)); writeln; write('vivod massiva v obratnom poriadke-->'); for i:=n downto 1 do write(c[i],' '); end. |
|
|
Jan 18 2007, 13:43
Сообщение
#89
|
|
Да прибудет с тобой сила... Группа: Posters Сообщений: 1,180 Регистрация: 21.5.2006 Из: г.п. Урмары :) Пользователь №: 611 |
Вопрос и паскалю-то слабое отношение имеет. Посиди, поразмышляй, авось за вечер сварганишь программки ) Самому же на пользу пойдет первый учебный год паскаля,и то не все уроки были for Simm кому как,по себе людей не суди уж -------------------- ххх (21:01:35 6/08/2008)
Слу, в каком возрасте у маленьких девочек отрастают мозги? © |
|
|
Jan 18 2007, 13:52
Сообщение
#90
|
|
Мега постер Группа: Local moder Сообщений: 1,712 Регистрация: 21.8.2006 Пользователь №: 1,269 |
первый учебный год паскаля,и то не все уроки были Зачем оправдываться? ) Если за тебя будут программировать алгоритмы (в данном случае типовые) ты вообще не получишь полезных знаний из предмета. Практика показала: Напишешь человеку лабу - разумеется он пытается ее понять. Но так как в голове отсутствуют элементарные знания, то понятие приходит очень и очень туго. В конце концов он пытается уже не понять, а вызубрить. Т.е. как бы выучить наизусть что, где и как. В итоге, на защите, лишний вопрос, шаг в сторону - и человек уже лыка не вяжет. -------------------- |
|
|
Jan 18 2007, 13:55
Сообщение
#91
|
|
Супер постер Группа: Local moder Сообщений: 888 Регистрация: 23.10.2005 Из: п.Кугеси Пользователь №: 106 |
Практика показала: Напишешь человеку лабу - разумеется он пытается ее понять. Но так как в голове отсутствуют элементарные знания, то понятие приходит очень и очень туго. В конце концов он пытается уже не понять, а вызубрить. Т.е. как бы выучить наизусть что, где и как. В итоге, на защите, лишний вопрос, шаг в сторону - и человек уже лыка не вяжет. нет практики без теории, теорию надо обязательно закреплять на практике. Без этого никак. |
|
|
Гость_CBAPOr_* |
Feb 18 2007, 20:13
Сообщение
#92
|
Guests |
Мне интересно, может кто-нибудь намутить программку типа "Кто хочет стать миллионером"?
|
|
|
Feb 18 2007, 21:13
Сообщение
#93
|
|
Супер постер Группа: Local moder Сообщений: 888 Регистрация: 23.10.2005 Из: п.Кугеси Пользователь №: 106 |
|
|
|
May 28 2007, 09:07
Сообщение
#94
|
|
Пользователь Группа: Posters Сообщений: 90 Регистрация: 20.8.2006 Пользователь №: 1,254 |
Подскажите пожалуйста, как понимать данный синтаксис:
Код hexvar:=StrToInt('$00F0'); # Преобразуем шестнадцатиричное число if (hexvar and $01)<>0 then d1:=1 else d1:=2; if (hexvar and $02)<>0 then d2:=1 else d2:=2; if (hexvar and $04)<>0 then d3:=1 else d3:=2; Как понять последние 3 строчки? Когда True, а когда False? -------------------- |
|
|
May 28 2007, 09:40
Сообщение
#95
|
|
PAUK-NET.RU TEAM Группа: Admin Сообщений: 4,715 Регистрация: 11.7.2005 Из: ЮЗР Пользователь №: 3 |
Ну а в чём сложность то? Если при маскировании hexvar с 1 будет ненулевой результат (включен нулевой бит), то d1=1, иначе d1 = 2.
Аналогично и все остальные строки. |
|
|
May 28 2007, 10:39
Сообщение
#96
|
|
Пользователь Группа: Posters Сообщений: 90 Регистрация: 20.8.2006 Пользователь №: 1,254 |
Ну а в чём сложность то? Если при маскировании hexvar с 1 будет ненулевой результат (включен нулевой бит), то d1=1, иначе d1 = 2. Аналогично и все остальные строки. Как производится это маскирование? Нельзя ли переделать как-нибудь это условие? Например на PHP как бы оно выглядело? -------------------- |
|
|
May 28 2007, 11:38
Сообщение
#97
|
|
PAUK-NET.RU TEAM Группа: Admin Сообщений: 4,715 Регистрация: 11.7.2005 Из: ЮЗР Пользователь №: 3 |
Как производится это маскирование? Побитово, в соответствии с алгеброй Буля.http://ru.wikipedia.org/wiki/Логические_операции Цитата Нельзя ли переделать как-нибудь это условие? А зачем? Проще оно не станет. Цитата Например на PHP как бы оно выглядело? Точно так же.http://php.net/language.operators.bitwise Паскалевское AND - это сишное &, OR - сишное |. PS: хотя... изврат на PHP мог бы выглядеть и так: Код extract(unpack('A1d3/A1d2/A1d1',strtr(sprintf('%03b',$hexvar&7),'01','12'))); правда работать с массивами, ИМХО, куда удобнее, чем с d1, d2, d3 по отдельности. И вообще, скорее всего, все эти танцы с бубном лишены смысла - ибо исходной задачи мы не знаем.
|
|
|
May 28 2007, 13:30
Сообщение
#98
|
|
Пользователь Группа: Posters Сообщений: 90 Регистрация: 20.8.2006 Пользователь №: 1,254 |
Цитата Точно так же. Так? Код $hexvar=hexdec('00F0'); # Преобразуем шестнадцатиричное число
if (($hexvar & hexdec('01'))<>0) {$d1=1;} else {$d1=2;} Сообщение отредактировал Temp1ar - May 28 2007, 13:32 -------------------- |
|
|
May 28 2007, 14:24
Сообщение
#99
|
|
PAUK-NET.RU TEAM Группа: Admin Сообщений: 4,715 Регистрация: 11.7.2005 Из: ЮЗР Пользователь №: 3 |
Да,
[offtopic] только непонятен смысл использования второго hexdec, поскольку целочисленные шестнадцатеричные и восьмеричные константы в PHP можно писать и без использования функций. Да и десятичные <10 от шестнадцатеричных значением не отличаются. http://php.net/language.types.integer [/offtopic] |
|
|
May 28 2007, 16:15
Сообщение
#100
|
|
Пользователь Группа: Posters Сообщений: 90 Регистрация: 20.8.2006 Пользователь №: 1,254 |
Да, [offtopic] только непонятен смысл использования второго hexdec, поскольку целочисленные шестнадцатеричные и восьмеричные константы в PHP можно писать и без использования функций. Да и десятичные <10 от шестнадцатеричных значением не отличаются. http://php.net/language.types.integer [/offtopic] Ну там не только до 10, ну вообщем смысл понятен 0x01, спасибо. -------------------- |
|
|
Текстовая версия | Сейчас: 4th May 2024 - 11:02 |