Помощь начинающему

Форум для изучающих FPC и их учителей.

Модератор: Модераторы

Re: Помощь начинающему

Сообщение Vadim » 03.11.2012 09:37:16

nouvelle
У Вас в школе FreePascal в какой операционной системе работает: Windows или Linux?
Vadim
долгожитель
 
Сообщения: 2559
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск

Re: Помощь начинающему

Сообщение nouvelle » 03.11.2012 21:01:35

ну пока Windows.... Хотя три года назад велели всем перейти на свободное ПО. Год был Linux) Что будет через год - никто не знает... Дадут денег на лицензию. нет ли...
nouvelle
незнакомец
 
Сообщения: 6
Зарегистрирован: 02.11.2012 00:13:43

Re: Помощь начинающему

Сообщение Vadim » 04.11.2012 05:57:34

nouvelle
Сообщения компилятора находятся в каталоге, куда Вы установили FreePascal, в подкаталоге msg. Файл называется errorr.msg.
Путь к этому файлу надо прописать в файле настроек компилятора - fpc.cfg, который находится в подкаталоге bin/i386-win32.
Строка в этом файле выглядит так:
-Frd:\progs\fpc\msg\errorr.msg
это для моего компьютера, у Вас путь может выглядеть иначе.
Теперь осталось выяснить, какая кодировка в Вашей консоли. У меня, к примеру, в реестре прописана кодировка cp866, другие люди утверждают, что у них cp1251. Из-за дурацкой Windows, у которой русских кодировок, как крыс в подвале, сообщения у Вас могут выводиться кракозябрами. Поэтому Вам нужно будет перекодировать (при необходимости) файл сообщений в ту кодировку, которая правильно выводит русский язык. К примеру, для сообщений в Lazaus, файл нужно будет перекодировать в UTF8. Удобно это делать с помомщью файлового менеджера FAR.
Vadim
долгожитель
 
Сообщения: 2559
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск

Re: Помощь начинающему

Сообщение nouvelle » 04.11.2012 18:16:08

Vadim, спасибо за доброту и ласку) И родителям Вашим поклон, что такого благородного человека родили :!:
Разумеется, ничего такого я сделать не смогу)
Сисадмин даже закрыл возможность войти в календарь, дабы никто системное время не перевел и со сроками лицензии не нахимичил) А программы только с сервера. В моем компе практически никаких программ и нет. Ну кроме тех, за установкой которой надо за сисадмином было бегать и письменные заявки на имя директора писать.
Но Ваш постик я скопирую и прямо с начала четверти ему подсуну.
Пусть работает, раз самый умный.
nouvelle
незнакомец
 
Сообщения: 6
Зарегистрирован: 02.11.2012 00:13:43

Re: Помощь начинающему

Сообщение Vadim » 04.11.2012 18:31:34

Положите сисадмину на стул кнопку. :)
Vadim
долгожитель
 
Сообщения: 2559
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск

Re: Помощь начинающему

Сообщение rudie » 04.11.2012 19:00:01

Помогите пожалуйста составить программу, чтобы числа выводились в виде такой таблицы, если не трудно с объяснениями что к чему:
0
1 0
2 1 0
3 2 1 0
4 3 2 1 0
rudie
незнакомец
 
Сообщения: 2
Зарегистрирован: 04.11.2012 18:49:31

Re: Помощь начинающему

Сообщение nikolay61 » 04.11.2012 19:11:08

Доброго!
В чем ошибка?
var a:integer;
BEGIN
writeln ('Введите число от 0 до 10');
read(a);
if (a>=0) and (a<=10) then
writeln ('Вы ввели верное число')
else ('Вы ввели не верное число');
readln;
END.
Пишет (10,33) Error: illegal expression
nikolay61
новенький
 
Сообщения: 27
Зарегистрирован: 15.08.2012 16:58:46

Re: Помощь начинающему

Сообщение Little_Roo » 04.11.2012 19:25:01

nikolay61 писал(а):else ('Вы ввели не верное число');

а кто будет write писать ??? :D
Аватара пользователя
Little_Roo
энтузиаст
 
Сообщения: 596
Зарегистрирован: 27.02.2009 19:56:36
Откуда: Санкт-Петербург

Re: Помощь начинающему

Сообщение Paster Fob » 04.11.2012 19:31:23

rudie писал(а):Помогите пожалуйста составить программу, чтобы числа выводились в виде такой таблицы, если не трудно с объяснениями что к чему:
0
1 0
2 1 0
3 2 1 0
4 3 2 1 0


объяснять в принципе нечего.
Код: Выделить всё
var i,n:integer;
begin
  n:=0;
  while n<5 do begin
    for i:=n downto 0 do
      write(i,' ');
    writeln;
    inc(n);
  end;
  readln
end.
Аватара пользователя
Paster Fob
постоялец
 
Сообщения: 188
Зарегистрирован: 22.02.2011 21:53:36
Откуда: Новосибирск.

Re: Помощь начинающему

Сообщение Little_Roo » 04.11.2012 20:06:31

Переименовать бы ветку в Церковно-приходская школа :D :D :D
Аватара пользователя
Little_Roo
энтузиаст
 
Сообщения: 596
Зарегистрирован: 27.02.2009 19:56:36
Откуда: Санкт-Петербург

Re: Помощь начинающему

Сообщение nikolay61 » 04.11.2012 20:10:22

Little_Roo писал(а):
nikolay61 писал(а):else ('Вы ввели не верное число');

а кто будет write писать ??? :D

Вот это да, заработался! Пора спать. Благодарю!
nikolay61
новенький
 
Сообщения: 27
Зарегистрирован: 15.08.2012 16:58:46

Re: Помощь начинающему

Сообщение nouvelle » 04.11.2012 20:23:51

Little_Roo писал(а):Переименовать бы ветку в Церковно-приходская школа :D :D :D

Без шуток?
А что делать. если на весь инет есть только одна-единственная ветка, которую можно таким образом переименовать?
А учеников ЦПШ меньше не становится...
nouvelle
незнакомец
 
Сообщения: 6
Зарегистрирован: 02.11.2012 00:13:43

Re: Помощь начинающему

Сообщение Little_Roo » 04.11.2012 21:13:14

nouvelle писал(а):А учеников ЦПШ меньше не становится...


Извините все, кого ненароком обидел... :shock: Сам учитель этой самой информатики в гуманитарной гимназии... Учу, и, вроде как, не очень погано... А все сообщения компилятора - на последнюю страничку тетрадки, и через 2 недели просто НЕ реагировать на "а это шо мне компер писуеть???" - читайте и применяйте...
Аватара пользователя
Little_Roo
энтузиаст
 
Сообщения: 596
Зарегистрирован: 27.02.2009 19:56:36
Откуда: Санкт-Петербург

Re: Помощь начинающему

Сообщение rudie » 05.11.2012 13:11:47

Paster Fob писал(а):
rudie писал(а):Помогите пожалуйста составить программу, чтобы числа выводились в виде такой таблицы, если не трудно с объяснениями что к чему:
0
1 0
2 1 0
3 2 1 0
4 3 2 1 0


объяснять в принципе нечего.
Код: Выделить всё
var i,n:integer;
begin
  n:=0;
  while n<5 do begin
    for i:=n downto 0 do
      write(i,' ');
    writeln;
    inc(n);
  end;
  readln
end.


Спасибо большое
rudie
незнакомец
 
Сообщения: 2
Зарегистрирован: 04.11.2012 18:49:31

Re: Помощь начинающему

Сообщение nikolay61 » 13.11.2012 17:57:18

Доброго! как написать прогарму до задачи
Для иллюстрации метода математической индукции в учебниках времен СССР всегда приводилась следующая задача: «Доказать, что любую целую сумму денег, начиная с 8 руб., Можно без сдачи разменять купюрами по 3 и 5 руб.». Вам не нужно ничего доказывать, а необходимо просто написать программу, которая бы для двух типов купюр по Х и Y денежных единиц определяла бы, какую наибольшую сумму денег невозможно разменять этими купюрами, если Х и Y - взаимно простые натуральные числа.
nikolay61
новенький
 
Сообщения: 27
Зарегистрирован: 15.08.2012 16:58:46

Пред.След.

Вернуться в Обучение Free Pascal

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Рейтинг@Mail.ru