Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется Опции

[DAN]

Можете сдесь задавать свои вопросы по этой теме.

[Gobbs]

... можно попроще?мало я знаю в паскале...очень мало ...

Как раз появился повод узнать больше. Берёшь книгу в руки и вперёд! Будут какие-то непонятки, думаю, добрые люди помогут.

[Sandro]

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

[SiMM]

1)составить программу нахождения суммы двух чисел А & B(-100000000<=A, B<=100000000)

Sandro, ты издеваешься? Такую программу даже человек, совершенно незнакомый с языком, уж хоть за сутки - да состряпает самостоятельно. Тем более при наличии инета даже при условии отсутствия книг и лекций.

[Sandro]

Sandro, ты издеваешься? Такую программу даже человек, совершенно незнакомый с языком, уж хоть за сутки - да состряпает самостоятельно. Тем более при наличии инета даже при условии отсутствия книг и лекций.

а остальные програмы?
ps заходил в тему и думал что симм меня обгадит

[SiMM]

а остальные програмы?

тоже несложные.

[Amp]

Вопрос и паскалю-то слабое отношение имеет.
Посиди, поразмышляй, авось за вечер сварганишь программки ) Самому же на пользу пойдет

[Gobbs]

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-ом посте данного топика.

[Gobbs]

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.

[Sandro]

Вопрос и паскалю-то слабое отношение имеет.
Посиди, поразмышляй, авось за вечер сварганишь программки ) Самому же на пользу пойдет

первый учебный год паскаля,и то не все уроки были
for Simm кому как,по себе людей не суди уж

[Amp]

первый учебный год паскаля,и то не все уроки были

Зачем оправдываться? )

Если за тебя будут программировать алгоритмы (в данном случае типовые) ты вообще не получишь полезных знаний из предмета.

Практика показала:
Напишешь человеку лабу - разумеется он пытается ее понять. Но так как в голове отсутствуют элементарные знания, то понятие приходит очень и очень туго. В конце концов он пытается уже не понять, а вызубрить. Т.е. как бы выучить наизусть что, где и как.
В итоге, на защите, лишний вопрос, шаг в сторону - и человек уже лыка не вяжет.

[Gobbs]

Практика показала:
Напишешь человеку лабу - разумеется он пытается ее понять. Но так как в голове отсутствуют элементарные знания, то понятие приходит очень и очень туго. В конце концов он пытается уже не понять, а вызубрить. Т.е. как бы выучить наизусть что, где и как.
В итоге, на защите, лишний вопрос, шаг в сторону - и человек уже лыка не вяжет.

нет практики без теории, теорию надо обязательно закреплять на практике. Без этого никак.

[Гость_CBAPOr_*]

Мне интересно, может кто-нибудь намутить программку типа "Кто хочет стать миллионером"?

[Gobbs]

Мне интересно, может кто-нибудь намутить программку типа "Кто хочет стать миллионером"?

был бы стимул да желание

[Temp1ar]

Подскажите пожалуйста, как понимать данный синтаксис:

Код

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?

[SiMM]

Ну а в чём сложность то? Если при маскировании hexvar с 1 будет ненулевой результат (включен нулевой бит), то d1=1, иначе d1 = 2.
Аналогично и все остальные строки.

[Temp1ar]

Ну а в чём сложность то? Если при маскировании hexvar с 1 будет ненулевой результат (включен нулевой бит), то d1=1, иначе d1 = 2.
Аналогично и все остальные строки.

Как производится это маскирование? Нельзя ли переделать как-нибудь это условие? Например на PHP как бы оно выглядело?

[SiMM]

Как производится это маскирование?

Побитово, в соответствии с алгеброй Буля.
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 по отдельности. И вообще, скорее всего, все эти танцы с бубном лишены смысла - ибо исходной задачи мы не знаем.

[Temp1ar]

Точно так же.

Так?

Код

$hexvar=hexdec('00F0'); # Преобразуем шестнадцатиричное число
   if (($hexvar & hexdec('01'))<>0) {$d1=1;} else {$d1=2;}

Сообщение отредактировал Temp1ar - May 28 2007, 13:32

[SiMM]

Да,
[offtopic]
только непонятен смысл использования второго hexdec, поскольку целочисленные шестнадцатеричные и восьмеричные константы в PHP можно писать и без использования функций. Да и десятичные <10 от шестнадцатеричных значением не отличаются.
http://php.net/language.types.integer
[/offtopic]

[Temp1ar]

Да,
[offtopic]
только непонятен смысл использования второго hexdec, поскольку целочисленные шестнадцатеричные и восьмеричные константы в PHP можно писать и без использования функций. Да и десятичные <10 от шестнадцатеричных значением не отличаются.
http://php.net/language.types.integer
[/offtopic]

Ну там не только до 10, ну вообщем смысл понятен 0x01, спасибо.