MyPascal

Перевод в двоичную систему паскаль

denis — Sun, 19 Jan 2014 18:45:14 GMT

В данном уроке мы разберемся в том , как переводить числа из десятичной системы счисления в двоичную в паскале.

Условие задачи :

Требуется перевести число в двоичную систему счисления ( из десятичной ). С клавиатуры вводится натуральное число N , требуется вывести это число в двоичной системе счисления.

Устный разбор :

Мы знаем , что для перевода числа в другую систему счисления его нужно делить на основание системы ( основание двоичной системы счисления - 2 , десятичной - 10 и т.д ). Делить число нужно до тех пор пока неполное частное больше или равно основанию. Когда неполное частное становится меньше основания , начинаем выписывать остатки от деления с конца ( начинать с последнего неполного частного ! ).

Пример :

Проще говоря , число 17 в двоичной системе счисления будет выглядеть так : 10001.

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

В ходе выполнения программы мы будем пользоваться тем же алгоритмом решения , что и на картинке выше.

Решение задачи :

Код

program mypascal;
uses crt;
var
a: array[1..100] of byte;
n,i,c:integer;
begin

  readln(n);
  c:= 0;

  repeat

  c:= c + 1;
  a[c]:= n mod 2;
  n:= n div 2;

  until n = 0;

  for i:= c downto 1 do
  write(a[i]);

  writeln();

end.

В начале программы объявляем массив , в котором мы будем хранить остатки от деления. Размерность данного массива зависит от того , какие числа мы будем переводить. Например для перевода небольших чисел хватит 100 ячеек. Если вы рассчитываете на более большие числа , то можете увеличить размерность массива.

Так как значения элементов массива будут колебаться в промежутке от 0 до 1 , то использовать мы будем тип данных byte ( о типах данных )

Нам понадобятся ещё три переменные n , i , c. Как обычно переменная i играет роль счетчика цикла. Переменная n хранит в себе число , которое будем переводить в двоичную систему счисления. Переменная c нужна для добавления остатков от деления в массив.

Далее в программе мы используем цикл repeat ( о циклах ) для сохранения остатков от деления в массив.

В конце программы выводим массив в обратном порядке ( это принципиально ) , так как остатки от деления нужно выводить в обратном порядке.

Поиск элемента в массиве паскаль

denis — Fri, 17 Jan 2014 18:55:57 GMT

Мы знаем , что массив содержит в себе упорядоченные элементы данных , которые имеют свои значения и адреса.

Во многих задачах нам потребуется обрабатывать подобные массивы. Например : ( поиск наибольшего элемента , наименьшего элемента и т.п ). Алгоритм поиска элемента в массиве мы разберем в данном уроке.

Поиск максимального элемента в массиве

Чтобы разобраться в том , как осуществляется поиск элемента в массиве паскаль , мы разберем такую задачу :

Условие : С клавиатуры вводятся 5 целых чисел , требуется найти наибольший элемент ( наибольшее число ) и вывести его на экран.

Решение :

Код

program mypascal;
var
a: array[1..5] of integer;
i,max:integer;
begin

for i:= 1 to 5 do
read(a[i]);

max:= a[1];

for i:= 2 to 5 do
if ( a[i] > max ) then
max:= a[i];

writeln(max);

end.

Разбор :

В блоке var объявляем массив "а". Диапазон индексов от 1 до 5 , так как максимальное количество введенных чисел = 5 ( исходя из условия задачи ). Тип переменных integer ( вводятся целые числа ).

Также нам понадобятся ещё две переменные "i" и "max". Переменная i будет играть роль счетчика для цикла , а переменная max будет хранить в себе максимальное значение элемента в массиве.

В начале программы создаем цикл , который будет заносить значения вводимые с клавиатуры в наш массив.

Далее присваиваем переменной max значения первого элемента массива. Возможно у вас возникает вопрос для чего это делается ? ведь первый элемент массива может и не быть наибольшим , более того , он может быть наименьшим. Это делается для того , чтобы иметь "точку отправления" , с которой мы будем сравнивать все остальные элементы в массиве.

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

Представим , что мы заполнили наш массив так : 4 17 -5 0 8 , тогда переменная max = 4 ( так как a[1] = 4 ).

Во время сравнения двух элементов max и a[i] выполняется условие ( a[i] > max ). Если условие истинно ( какой-либо элемент массива больше max ) , то переменной max присваивается значение этого элемента ( a[i] ).

Второй элемент массива больше переменной max , поэтому max присваивается значение 17.

При дальнейших сравнениях в массиве , не найдены элементы большие 17 , поэтому max остается неизменным.

В конце программы выводим max на экран ( 17 ).

Поиск минимального элемента в массиве

Условие : С клавиатуры вводятся 5 целых чисел , требуется найти наименьший элемент ( наименьшее число ) и вывести его на экран.

Решение :

Код

program mypascal;
var
a: array[1..5] of integer;
i,min:integer;
begin

for i:= 1 to 5 do
read(a[i]);

min:= a[1];

for i:= 2 to 5 do
if ( a[i] < min ) then
min:= a[i];

writeln(min);

end.

алгоритм поиска минимального элемента массива почти полностью аналогичен алгоритму поиска максимального. Отличие заключается только в условии внутри второго цикла.

Поиск отрицательного элемента массива

Условие : С клавиатуры вводятся 5 целых чисел , требуется найти первый отрицательный элемент и вывести его на экран. Если отрицательных элементов нет , то ничего не выводить.

Решение :

Код

program mypascal;
var
a: array[1..5] of integer;
i:integer;
begin

for i:= 1 to 5 do
read(a[i]);

for i:= 1 to 5 do
if ( a[i] < 0 ) then
begin
writeln(a[i]);
break;
end;

end.

Разбор : В данной задаче мы будем сравнивать элементы массива с 0. Если элемент меньше 0 ( отрицательный ) , то выводим его на экран. Главное заметить , что нам нужен только первый отрицательный элемент ( выводить остальные не надо ) , поэтому после нахождения мы будем выходить из массива командой break.

Практическая работа №6. Одномерные массивы

denis — Fri, 10 Jan 2014 09:17:47 GMT

1. Дан одномерный массив , значения элементов которого задаются случайным образом. Вычислить сумму квадратов элементов данного массива , больших некоторого числа M. На экран вывести исходный массив и полученный результат.

Решение 1 задачи :

program mypascal;
uses crt;
var
a: array[1..10] of integer;
m,i,s:integer;
begin

randomize;
readln(m);
s:= 0;

for i:= 1 to 10 do
begin
a[i]:= random(21)-10;
if ( a[i] > m ) then
s:= s + a[i]*a[i];
write(a[i],' ');
end;

writeln();
writeln(s);

end.

2. Дан одномерный массив , значения элементов которого вводятся с клавиатуры. Поменять максимальный и минимальный элементы данного массива местами. На экран вывести исходный массив и полученный результат.

Решение 2 задачи :

program mypascal;
uses crt;
var
a: array[1..10] of integer;
max,min,c,i:integer;
begin

for i:= 1 to 10 do
read(a[i]);

max:= 1;
min:= 1;

for i:= 2 to 10 do
begin
if ( a[i] > a[max] ) then
max:= i;
if ( a[i] < a[min] ) then
min:= i;
end;

c:= a[max];
a[max]:= a[min];
a[min]:= c;

for i:= 1 to 10 do
write(a[i],' ');

end.

3. Дан одномерный массив , значения которого вводятся с клавиатуры . Вычислить количество отрицательных элементов данного массива. На экран вывести исходный массив и полученный результат.

Решение 3 задачи :

program mypascal;
var
a: array[1..10] of integer;
i,n:integer;
begin

n:= 0;

for i:= 1 to 10 do
begin
readln(a[i]);
if ( a[i] < 0 ) then
inc(n);
end;

for i:= 1 to 10 do
write(a[i],' ');

writeln();
writeln(n);

end.

4. Дан одномерный массив , значения элементов которого вводятся с клавиатуры. Отрицательные элементы данного массива заменить их модулями , нулевые остаются неизменными , а положительные квадратами. На экран вывести исходный массив и полученный результат.

Решение 4 задачи :

program mypascal;
var
a: array[1..10] of integer;
i:integer;
begin

for i:= 1 to 10 do
begin
readln(a[i]);
if ( a[i] < 0 ) then
a[i]:= a[i]*(-1)
else
if ( a[i] > 0 ) then
a[i]:= a[i]*a[i];
end;

for i:= 1 to 10 do
write(a[i],' ');

end.

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

Решение 5 задачи :

program mypascal;
var
a: array[1..10] of integer;
i,x,y:integer;
begin

x:= 0;
y:= 0;

for i:= 1 to 10 do
begin
readln(a[i]);
if ( a[i] < 0 ) then
inc(x) ;
if ( a[i] > 0 ) then
inc(y);
end;

for i:= 1 to 10 do
write(a[i],' ');

writeln();

if ( x > y ) then
writeln('Отрицательных больше на ',x-y);
if ( x < y ) then
writeln('Положительных больше на ',y-x);

end.

Сортировка массива в паскале

denis — Tue, 16 Jul 2013 13:14:23 GMT

В данной статье мы разберем то , как делать сортировку внутри массива. Делать его нарастающим или убывающим.

Например сделать из массива A = [ 13 ; -5 ; 4 ; 11 ; 0 ] такой массив : A = [ -5 ; 0 ; 4 ; 11 ; 13 ] и т.п.

Условие задачи : Требуется заполнить массив 10 целыми числами ( случайно ) от -10 до 10 и вывести его на экран. После чего изменить его таким образом , чтобы числа находились в нем в порядке возрастания. Вывести исходный массив на экран.

Решение задачи :

program mypascal;
uses crt;
var
a: array[1..10] of integer;
i,i1,c:integer;
begin

randomize;

for i:= 1 to 10 do
begin
a[i]:= random(21)-10;
write(a[i],' ');
end;

writeln(' ');

for i:= 1 to 9 do
for i1:= i+1 to 10 do
if ( a[i1] < a[i] ) then
begin
c:= a[i];
a[i]:= a[i1];
a[i1]:= c;
end;

for i:= 1 to 10 do
write(a[i],' ');

end.

Разбор задачи :

В начале программы заполняем массив 10 случайными числами от -10 до 10. В этом же цикле выводим массив на экран.

Далее идут 2 цикла вложенных друг в друга. Для того , чтобы отсортировать последовательность чисел :

Первый цикл берет одно число , а второй сравнивает его с остальными числами.

Первое число сравнивается со 2,3,4,5... числом. Второе число с 3,4,5... пока предпоследнее число в последовательности не будет сравниваться с последним.

Сравнение происходит так : если одно число меньше другого , то обмениваем их. Подробнее про обмен тут

Найти факториал числа

denis — Sun, 14 Jul 2013 14:40:09 GMT

В данной статье мы рассмотрим решение такой задачи :

Нам требуется ввести число с клавиатуры ,а потом вывести факториал этого числа.

Факториал числа - это произведение всех натуральных чисел от 1 до N , где N - число , факториал которого мы ищем. Проще говоря , факториал числа 5 = 1 * 2 * 3 * 4 * 5 ( 120 ).

Как вы понимаете , факториал может получаться очень большим. Задача довольно простая , давайте рассмотрим её решение.

program mypascal;
var
n,i:integer;
s:longint;
begin

write('Введите число : ');
readln(n);

s:= 1;

for i:= 1 to n do
s:= s * i;

writeln('Факториал числа ',n,' = ',s);

end.

В данной задаче нам понадобятся 3 переменные. Переменная N будет хранить в себе число вводимое с клавиатуры. Переменная i будет играть роль счетчика для цикла. Переменная S хранит в себе окончательный результат.

Задачу по поиску факториала проще всего решить с помощью цикла for. В начале программы мы вводим число n. После этого присваиваем переменной s значение 1 ( для того , чтобы правильно считать произведение ). Если бы мы оставили в переменной s значение 0 , то факториал 5 считался бы так 0 * 1 * 2 * 3 * 4 * 5 ( 0 ).

В цикле for считаем значение факториала и заносим его в переменную s.

Допустим , мы ввели число 3 ( n ) , тогда цикл работает так :

1 шаг : 1(s) * 1(i) = 1 ( s )
2 шаг : 1(s) * 2(i) = 2 ( s )
3 шаг : 2(s) * 3(i) = 6 ( s )

Запомните , что факториал 0 = 1 !

В конце программы выводим переменную s на экран. Вот и все.

Обмен значениями двух переменных

denis — Wed, 19 Jun 2013 21:11:50 GMT

В различных типах задач на языке pascal вы можете столкнуться с такой задачей : Вам потребуется обменять значения двух или нескольких переменных.

В данной статье мы рассмотрим способы обмена значений двух переменных.

Самое главное это понимать , что такое обмен значений. Во-первых это не просто перестановка переменных , а именно обмен. Например первая переменная равна трем , а вторая равна пяти , тогда после выполнения программы первая переменная будет равна пяти , а вторая , как ни странно , будет равна трем.

Реализовать данный обмен можно двумя способами. Первый способ самый простой - обмен с использование третьей переменной. Второй способ - без использования дополнительной переменной.

С использованием дополнительной переменной :

Выглядеть это будет примерно так , как показано на картинке ниже.

Как видно на картинке нам потребуются три переменные целочисленного типа. В данном случае названия переменных такие ( a,b,c ). Переменные a,b нужны для хранения значений чисел , которые человек вводит с клавиатуры командой readln(a,b).

Далее в программе идет эта самая передача данных. Допустим мы ввели значения 3 и 5 ( "а" и "б" ) соответственно. Тогда переменная "ц" запоминает значение переменной "а" ( три ). После того как мы запомнили значение первой переменной , её потеря нам не грозит и поэтому мы можем задать ей значение второй переменной без каких-либо опасений.
Теперь первая переменная равна 5 и после этого мы можем задать значение второй переменной. Это делается присваиванием переменной "б" значение переменной "ц". ( b:= c ).
В конце программы мы просто выводим эти переменные командой writeln(a,b).

Без использования дополнительной переменной :

Передача значений без использования дополнительных переменных осуществляется немного сложнее , но при этом понять это будет нетрудно.

В данной случае нам понадобятся только две переменные (a,b). Обмен совершается так :
Первой переменной задаем значение суммы первой и второй, выглядеть это будет примерно так

( a:= a + b )
( a:= 3 + 5 ). Переменная "а" будет равна 8

Второй переменной будет задана разность первой и второй

( b:= a - b ) , ( b:= 8 - 5 ). Переменная "б" равна 3
( первоначальное значение переменной "а" )

И снова работаем с первой переменной.
Задаем ей значение разности первой и второй

( a:= 8 - 3 ). Переменная "а" будет равна 5
( первоначальное значение переменной "б" )

Вот и все осталось только вывести их на экран.

Вывод :

Какой именно способ использовать решать только вам. В первом случае вам понадобится ещё одна переменная , то есть лишняя нагрузка на память , хотя и совсем маленькая.
Во втором случае переменных потребуется только две , однако в данном случае легко запутаться в вычислениях.

Сумма целых чисел от 1 до N

denis — Fri, 07 Jun 2013 13:20:27 GMT

Условие задачи :

Требуется посчитать сумму целых чисел от 1 до N.

Довольно простая задача хоть и с подвохом и если вы знаете как её решить , то вам следует пропустить её.
Но если же вы ещё новичек в программировании и у вас возникают проблемы при решении , то вам следует рассмотреть разбор задачи.

Устный разбор :

Вначале программы вводить значение переменной n. Например 4 . После этого создаем цикл , в котором посчитаем сумму всех чисел от 1 до N.

Первое решение задачи :

Код

program mypascal;
var
n,s,i:integer;
begin

  readln(n);

  s:= 0;

  for i:= 1 to n do
  s:= s + i;

  writeln(s);

end.

Для решения данной задачи нам потребовались 3 переменные . Переменная "N" для хранения заданного числа N , переменная "s" для хранения суммы всех чисел от 1 до N и переменная "i" в качестве счетчика для цикла.

Вначале программы вводим значение переменной N . Например 5 .Далее цикл перечисляет все цифры от 1 до N , в нашем случае это 1 , 2 , 3 , 4 , 5. И все эти цифры складывает друг с другом занося значение в переменную "s".

Но задача имеет свой подвох , так как при больших значениях N цикл будет занимать очень много времени. Есть простой способ решения этой проблемы.

Второе решение задачи :

Код

program mypascal;
var
n:integer;
begin

  readln(n);

  writeln(( 1 + n ) / 2 * n);

end.

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

Очень короткий код. Нам понадобилась всего одна переменная N .Но и это решение не идеально , так как значение переменной N может быть отрицательным.

Третье решение :

Код

program mypascal;
var
n:integer;
s:real;
begin

  readln(n);

  if ( n < 0) then
  s:= ((1+abs(n))*abs(n)/ 2 - 1) * -1
  else
  s:= (1+n)*n/ 2;

  if ( n = 0 ) then
  s:= 1;

  writeln(trunc(s));

end.

Самое гибкое решение . Подойдет для любого случая. Отлично работает при больших значениях N , при отрицательных значениях N. Если условие вывести целое число.

Объявляются две переменные "N" и "s". Переменная N несет в себе значение числа n , которое задают с клавиатуры. Переменная S несет в себе сумму чисел от 1 до N.

1. Вводим значение N.
2. Если значение N отрицательное , то s = ((1+abs(n))*abs(n)/ 2 - 1) * -1. Иначе s = (1+n)*n/ 2.
3. Подстраховываемся на тот случай , когда N = 0 и присваиваем s значение 1. Так как сумма чисел от 1 до 0 равна 1.
4. Выводим переменную s через функцию trunc() ( Подробнее ) специально для того случая , когда в условии задачи написано вывести целое число , а наша переменная s имеет вещественный тип.

Найти наибольшее число

denis — Wed, 05 Jun 2013 13:49:26 GMT

Довольно простая задача и возможно вам следует пропустить её . Однако для некоторых людей разбор будет полезен .

Условие задачи :
Заданы два целых числа ( x и y ) сравнить и найти наибольшее после чего вывести его .

Как и любую другую задачу эту можно решить множеством способов . Разберем самый интересные и полезные .

Условный разбор :

В чем заключается данная задача ? " Заданы два числа ( x и y ) " , из этого следует , что нам понадобятся как минимум две целочисленный переменные ( integer ) . И обе они будут вводиться с клавиатуры . После чего они будут сравниваться ( > , < или = ) . И в конце задачи нужно вывести наибольшее число ( > ) .

Первое решение :

Код

program mypascal;
var
x,y: integer;
begin

  readln(x,y); { Вводим оба числа с клавиатуры }

  if ( x > y ) then
  writeln(x)
  else
  writeln(y);

end.

Вначале программы вводим два целых числа с клавиатуры readln(x,y); .
После чего сравниваем их . Если x больше y , то выводим на экран x , иначе ( x меньше или равно ) выводим y . Вот и все.

Второе решение :

Код

program mypascal;
var
x,y,z: integer;
begin

  readln(x,y); { Вводим оба числа с клавиатуры }

  if ( x > y ) then
  z:= x
  else
  z:= y;

  writeln(z);

end.

Вначале программы вводим два целых числа ( x и y ). После чего сравниваем их если x больше y , то заносим значение переменной x в переменную z , иначе ( x меньше или равно y ) заносим значение переменной y в переменную z . В конце программы выводим число z .