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

[Vadim]

nouvelle
У Вас в школе FreePascal в какой операционной системе работает: Windows или Linux?

[nouvelle]

ну пока Windows.... Хотя три года назад велели всем перейти на свободное ПО. Год был Linux) Что будет через год - никто не знает... Дадут денег на лицензию. нет ли...

[Vadim]

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

[nouvelle]

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

[Vadim]

Положите сисадмину на стул кнопку.

[rudie]

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

[nikolay61]

Доброго!
В чем ошибка?
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

[Little_Roo]

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

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

[Paster Fob]

Помогите пожалуйста составить программу, чтобы числа выводились в виде такой таблицы, если не трудно с объяснениями что к чему:
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.

[Little_Roo]

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

[nikolay61]

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

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

Вот это да, заработался! Пора спать. Благодарю!

[nouvelle]

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

Без шуток?
А что делать. если на весь инет есть только одна-единственная ветка, которую можно таким образом переименовать?
А учеников ЦПШ меньше не становится...

[Little_Roo]

А учеников ЦПШ меньше не становится...

Извините все, кого ненароком обидел... Сам учитель этой самой информатики в гуманитарной гимназии... Учу, и, вроде как, не очень погано... А все сообщения компилятора - на последнюю страничку тетрадки, и через 2 недели просто НЕ реагировать на "а это шо мне компер писуеть???" - читайте и применяйте...

[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.

Спасибо большое

[nikolay61]

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