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

[Vadim]

У Вас Windows?

[Leon]

nikolay61,зайди в Виндоузе в панель настройки языков (Панель управления ->Языки и региональные стандарты->Дополнительно) и посмотри какие там стоят галки.Во всяком случае должна быть галка напротив КОИ-8 (20866).Если не поможет,посмотри,стоят ли галки напротив кириллических языков.Если нет - выставь,презагрузись и посмотри,чо вышло.Твоя система пишет крякозябры потому,что в шрифте,который она использует для консоли,видимо нет кириллицы.Такая фича бывает иногда при запуске ДОС приложений,которые требуют установки старенького keyrus'а.

[nikolay61]

nikolay61,зайди в Виндоузе в панель настройки языков (Панель управления ->Языки и региональные стандарты->Дополнительно) и посмотри какие там стоят галки.Во всяком случае должна быть галка напротив КОИ-8 (20866).Если не поможет,посмотри,стоят ли галки напротив кириллических языков.Если нет - выставь,презагрузись и посмотри,чо вышло.Твоя система пишет крякозябры потому,что в шрифте,который она использует для консоли,видимо нет кириллицы.Такая фича бывает иногда при запуске ДОС приложений,которые требуют установки старенького keyrus'а.

У меня Винд7 Порылся но такого не нашел. Но все ровно благодарю.
Нашел причину крякозябров: когда поменял шрифт у ФПК и вот началось. поставил назад как было по умолчанию - все работает.

Добавлено спустя 19 часов 23 минуты 44 секунды:
Всем доброго! Не могу найти ошибку с переводом строковой величины в числовую величину. с программы ответ должен быть (по моему) 500, а на самом деле y=0.

Код: Выделить всё

program perevod_v_chislo;
uses Crt;
   var a: string;
   r,x,y:integer;
Begin
   Clrscr;
   a:=‘100 лет’;
   val(a,x,r);
Y:=5*x;
Write(‘Y=‘,y);
readkey;    
END.

[Mr.Smart]

А это a:=‘100 лет’; по вашему число?

[nikolay61]

А это a:=‘100 лет’; по вашему число?

Так я тогда не пойму. Если строковая величина не преобразуется в числовую, т.е не число, то зачем эта фкнкция нужна и где ее используют?

[bormant]

Код: Выделить всё

  a := '100';
  val(a, x, r);


[Mr.Smart]

Что тут не понятного? Строка преобразуется в число если в ней содержится ТОЛЬКО число т.е. символы -+0123456789Ee!

[nikolay61]

+0123456789Ee!

Все теперь понятно, благодарю. Просто должны быть символами цифры.

[nikolay61]

Всем доброго!
Нужно в столбик написать слово ПАПА звездочками. Можно ли использовать цикл for в цикле for. Суть: звездочками набрано слог "ПА" и чтобы его снова не набирать - использовать снова цикл, чтобы программа вывела второй слог "ПА"
program papa;

uses crt;
var i:byte;
BEGIN
clrscr;
writeln('*****');
for i:=1 to 5 do
writeln('* *');
writeln();
writeln(' *');
writeln(' * *');
writeln(' *****');
writeln(' * *');

writeln();
readkey
END.

[Leon]

А почему бы не написать и без цикла? Типа:

...
Writeln('**** ** **** ** ');
Writeln('* * * * * * * *');
Writeln('* * ****** * * ******');
Writeln('* * * * * * * * ');

....
readln;


просто и без заморочек

[nikolay61]

Благодарю!

Добавлено спустя 21 час 26 минут 7 секунд:
Доброго! Есть задача.
{Три брата вернулись из изнурительной дороги. Они попросили мать напечь любимых крекеров, но не дождались и уснули. Мать занесла блюдо с крекерами и тихо закрыла дверь. Первым проснулся старший брат, съел треть лакомства и заснул опять. Затем наступила очередь среднего брата, который поступил так же, и наконец дело дошло до молодого. (Отметим, что количество крекеров всегда нацело делилась на три). Наутро на блюде осталось N крекеров. Напишите программу, которая бы определяла, сколько крекеров из остатка должны забрать каждый из братьев, чтобы всем в итоге досталось поровну.}
{
Проверка: Пример
Ввод - 16 Вывод - 0 6 10 Разъяснение. Мать спекла 54 крекера (по 18 каждому). Старший съел 18, средний (54-18)/3=12, а младший (54-18-12)/3=8 крекеров. Поэтому остатки будут 0, 6 и 10 соответственно.
Не могу понять как построить программу, чтобы ввести ОСТАТОК (16) и она разложила куму сколько нужно добрать. С общего количества крекеров я сложил и выходит, а вот с остатком - проблема.
}
program cracker;
uses crt;
var b1,{старший брат}b2,{средний брат}b3:{младший брат}real;
i:byte; {цикл}
n:integer;{всего крекеров}
k,k1,k2,k3,p:{остаток крекеров}real;
BEGIN
clrscr;
repeat
writeln('Введите общее количество крекеров');
readln(n);
p:=(n/3); {Сколько на каждого}
b1:=(n/3);
b2:=(n-b1)/3;
b3:=(n-b1-b2)/3;
writeln(b1:5:0, ' ',b2:5:0 , b3:5:0);

writeln('cколько осталось съесть');
k1:=p-b1;
Writeln('Старшему ', k1:5:0);
k2:=p-b2;
writeln('среднему ',k2:5:0);
k3:=p-b3;
writeln('меньшему ',k3:5:0);
writeln('Далее - 1, или - 0');
readln(i);
until i=0 ; writeln('END');
readln;
END.

[bormant]

Не могу понять как построить программу, чтобы ввести ОСТАТОК (16) и она разложила куму сколько нужно добрать.

Подсказка. Пусть n -- остаток. Тогда это 2/3 того, что видел младший. Аналогично ещё дважды.
В итоге, 2-му надо добрать 1/9, а 3-му -- 5/27 (1/9+2/27) от того, что было.
Задачка имеет аналитическое решение, и циклы ни к чему

Добавлено спустя 2 часа 17 минут 30 секунд:
И на закуску, решение для произвольного количества братьев:

Код: Выделить всё

var
  k, m, n, i: longword;
begin
  write('Введите количество братьев и остаток крекеров: ');
  readln(k, n);
  for i := 1 to k do n := n * k div (k - 1);
  writeln('Всего крекеров: ', n, '. Добор:');
  m := n div k;
  for i := 2 to k do begin
    n := n - n div k;
    writeln(i, ': ', m - n div k);
  end;
end.


Прогон:

Код: Выделить всё

Введите количество братьев и остаток крекеров: 3 16
Всего крекеров: 54. Добор:
2: 6
3: 10


PS. Не любые входные данные являются корректными. Проверка входных данных на соответствие условиям задачи не предусмотрена.

[nikolay61]

Введите количество братьев и остаток крекеров: 3 16
Всего крекеров: 54. Добор:
2: 6
3: 10

Что-то не выходит. Делаем прогон на 9 крекеров в остаче. Результат - 28 крекеров и для 2:3, а 3:5.
А должно: 30 всего и 2:3, а 3:6

[bormant]

Делаем прогон на 9 крекеров в остаче. Результат - 28 крекеров и для 2:3, а 3:5.
А должно: 30 всего и 2:3, а 3:6

Некорректные исходные данные, не соответствуют условию:

(Отметим, что количество крекеров всегда нацело делилась на три)

Проверим раз. В остатке 9. Это 2/3 от того, что видел второй, значит второй видел 9*3/2 = 27/2 = 13.5. Но 13.5 не является целым числом.
Тем не менее, продолжим. 2-й видел 13.5*3/2 = 20.25, 3-й видел 30.375, что не равно 30.
Проверим два. Исходно 30. 1-й взял 1/3 -- 10 шт., осталось 20. 20 не делится нацело на 3, второй не может взять 1/3 от 20 в целых крекерах.
Тем не менее, продолжим. 2-й взял 20/3 = 6+2/3 шт., осталось 13+1/3 шт. 3-й взял (13+2/3)/3 = 4+1/3 + 2/6 = 4+2/3, осталось 8+2/3 шт., что не равно 9.

ps. Отсюда новые 2 задачи:
1) напишите программу для генерации корректных условий
2) модифицируйте программу для точного расчёта в дробных значениях (знаменатель дроби k^(k-1) вполне подойдёт).
Для неточного расчёта (в десятичных дробях) достаточно поменять тип m, n на real (double, extended), целочисленное деление div -- на "/" и, возможно, задать формат вывода.

[nikolay61]

(Отметим, что количество крекеров всегда нацело делилась на три).

А мне почему-то кажется, что КОЛИЧЕСТВО есть аргументом общего количества крекеров. Спорить не буду, но логичнее так.