Форум умных людей

Задачи и головоломки => Для программистов => Тема начата: Smith от Октябрь 05, 2014, 16:05:07



Название: Помогите советом, что ли, мы пока еще не местные..))
Отправлено: Smith от Октябрь 05, 2014, 16:05:07
Пацан учится в колледже, изучают вторую неделю Паскаль. Пацан неделю проболел, но задание нужно сделать.

Вот задание:
С помощью оператора do while заполнить массив случайными числами в диапазоне от -10 до 10.
Затем 2 раза вывести на экран.

Сказали в колледже самому в инете скачать Паскаль и сделать задание. Отсюда вопросы:

1. Скачали Free Pascal IDE - правильно ли?
2. Значение многих терминов не совсем понятны из переписанного конспекта, отсюда вопрос следующий: посоветуйте учебник по Паскалю!
3. Собственно, задание. Если можно - решение с объяснением, что там и к чему.

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



Название: Re: Помогите советом, что ли, мы пока еще не местные..))
Отправлено: ☭-Изделие 20Д от Октябрь 05, 2014, 20:17:29
Может пригодится ??? там ссылка есть на книжку
http://viengo.bookb.jikn.go.id/?page=paskal_dlya_chaynikov_kniga_chitat_onlayn


Название: Re: Помогите советом, что ли, мы пока еще не местные..))
Отправлено: zhekas от Октябрь 05, 2014, 20:47:47

1. Скачали Free Pascal IDE - правильно ли?


У free pascal совместимрость с turbo pascal (на котором, скорее всего, идёт обучение). Так что проблем с free pascal быть не должно. В свое время компилировал free pascal-евским компилятором turbo pascal-евский код. Всё нормально работало.


2. Значение многих терминов не совсем понятны из переписанного конспекта, отсюда вопрос следующий: посоветуйте учебник по Паскалю!

В своё время изучал по книге Попова В.Б. "turbo pascal для школьников". Там всё достаточно хорошо изложено.


3. Собственно, задание. Если можно - решение с объяснением, что там и к чему.

С этим не помогу. Давно это было


Название: Re: Помогите советом, что ли, мы пока еще не местные..))
Отправлено: ☭-Изделие 20Д от Октябрь 06, 2014, 14:23:30

1. Скачали Free Pascal IDE - правильно ли?


У free pascal совместимрость с turbo pascal (на котором, скорее всего, идёт обучение). Так что проблем с free pascal быть не должно. В свое время компилировал free pascal-евским компилятором turbo pascal-евский код. Всё нормально работало.


2. Значение многих терминов не совсем понятны из переписанного конспекта, отсюда вопрос следующий: посоветуйте учебник по Паскалю!

В своё время изучал по книге Попова В.Б. "turbo pascal для школьников". Там всё достаточно хорошо изложено.


3. Собственно, задание. Если можно - решение с объяснением, что там и к чему.

С этим не помогу. Давно это было
Подозреваю это тебе и ответили ;)
(http://s014.radikal.ru/i326/1410/ab/2dc65b1501f0.jpg)
Если конечно это ты выбрал ник Светиклапа ???
http://www.cyberforum.ru/turbo-pascal/thread1040587.html но уж очень много совпадений
Ложка дегдя - подозреваю оператор RND преподы принять не должны дюже просто, имхо надо посмотреть алгоритм вычисления случайных чисел.
ПЫСЫ у мя самого с низкоуровневыми языками дело швах - алгол, алмир, фортран


Название: Re: Помогите советом, что ли, мы пока еще не местные..))
Отправлено: vlad от Октябрь 06, 2014, 14:27:48
1. Скачали Free Pascal IDE - правильно ли?
Для начала советую скачать TMT Pascal(не важно какую версию). Но на будущее без билдера пацану не обойтись.

2. Значение многих терминов не совсем понятны из переписанного конспекта, отсюда вопрос следующий: посоветуйте учебник по Паскалю!
Влад начинал с Ж.Джонс,К.Харроу Решение задач в системе Турбо Паскаль/Пер. с англ.; Предисл. Ю.П.Широкого. - М.: Финансы и статистика, 1991. - 720с.: ил.

Эту книгу очень и очень НЕ советую!
Чесгря советую тупо F1!
 
3. Собственно, задание. Если можно - решение с объяснением, что там и к чему.

Вот собственно говоря исходник notsuchrandom.pas:

program notsuchrandom;
uses crt;
var i,n:integer;
    r:array[1..100]of integer;
begin
    write('Enter quantity of numbers n=');
    readln(n);
    i:=1;
    while i<=n do
     begin
         r:=random(20)-10;
         writeln('random',i,'=',r,' ');
         inc(i);
     end;
     writeln;
     i:=1;
     while i<=n do
     begin
         writeln('random',i,'=',r,' ');
         inc(i);
     end;
     repeat until keypressed;
end.

Далеко не оптимиальный код, но азы Паскаля изучал 11 лет назад, так-что sorry.
компилятор TMT Pascal 3.90.


Название: Re: Помогите советом, что ли, мы пока еще не местные..))
Отправлено: Smith от Октябрь 06, 2014, 15:20:05
спасибо всем откликнувшимся!  :show_heart:
 я вечером отпишусь с кодом, рассматриваемом на занятиях\. там код был в разы меньше (все-таки только второе или третье занятие). я приведу тот код, который у нас не получается. будет предметный разговор тогда, т.к. щас с работы ничего не могу откомментировать в силу собственной тотальной программерной беСграмотности  :whiteflag:


Название: Re: Помогите советом, что ли, мы пока еще не местные..))
Отправлено: vlad от Октябрь 07, 2014, 09:23:14
спасибо всем откликнувшимся!  :show_heart:
 я вечером отпишусь с кодом, рассматриваемом на занятиях\. там код был в разы меньше (все-таки только второе или третье занятие). я приведу тот код, который у нас не получается. будет предметный разговор тогда, т.к. щас с работы ничего не могу откомментировать в силу собственной тотальной программерной беСграмотности  :whiteflag:

ну если код в разы меньше, то максимум, что могу вот:

uses crt;
begin
  Randomize;
  while not KeyPressed do
  write(Random(20)-10);
end.

выводит не дважды, а всего 1 раз, но зато 88 байт.

кстати, а какая самая короткая прога в мире, кто знает?
у меня 10 байт :)


Название: Re: Помогите советом, что ли, мы пока еще не местные..))
Отправлено: ☭-Изделие 20Д от Октябрь 13, 2014, 08:35:13
спасибо всем откликнувшимся!  :show_heart:
 я вечером отпишусь с кодом, рассматриваемом на занятиях\. там код был в разы меньше (все-таки только второе или третье занятие). я приведу тот код, который у нас не получается. будет предметный разговор тогда, т.к. щас с работы ничего не могу откомментировать в силу собственной тотальной программерной беСграмотности  :whiteflag:

ну если код в разы меньше, то максимум, что могу вот:

uses crt;
begin
  Randomize;
  while not KeyPressed do
  write(Random(20)-10);
end.

выводит не дважды, а всего 1 раз, но зато 88 байт.

кстати, а какая самая короткая прога в мире, кто знает?
у меня 10 байт :)