Где ошибка?
program pomylka;
uses crt;
var i,a:real;
BEGIN
clrscr;
for i:=8 to 10 do
a:=sin(i);
reADLN;
END.
Добавлено спустя 3 минуты 2 секунды:
Что то не так работает. Слово не выдает.
program for26;
{ Заданы 2 слова a и b. Можно ли получить из слова a,
вычеркивание некоторого кол-ва букв ...
Найдено 27 результатов
- 07.01.2013 00:07:53
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
- 28.12.2012 00:15:44
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
Re: Помощь начинающему
nikolay61 писал(а): (Отметим, что количество крекеров всегда нацело делилась на три).
А мне почему-то кажется, что КОЛИЧЕСТВО есть аргументом общего количества крекеров. Спорить не буду, но логичнее так.
- 27.12.2012 16:51:58
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
Re: Помощь начинающему
bormant писал(а):Введите количество братьев и остаток крекеров: 3 16
Всего крекеров: 54. Добор:
2: 6
3: 10
Что-то не выходит. Делаем прогон на 9 крекеров в остаче. Результат - 28 крекеров и для 2:3, а 3:5.
А должно: 30 всего и 2:3, а 3:6
- 27.12.2012 11:09:13
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
Re: Помощь начинающему
Благодарю!
Добавлено спустя 21 час 26 минут 7 секунд:
Доброго! Есть задача.
{Три брата вернулись из изнурительной дороги. Они попросили мать напечь любимых крекеров, но не дождались и уснули. Мать занесла блюдо с крекерами и тихо закрыла дверь. Первым проснулся старший брат, съел треть лакомства ...
Добавлено спустя 21 час 26 минут 7 секунд:
Доброго! Есть задача.
{Три брата вернулись из изнурительной дороги. Они попросили мать напечь любимых крекеров, но не дождались и уснули. Мать занесла блюдо с крекерами и тихо закрыла дверь. Первым проснулся старший брат, съел треть лакомства ...
- 25.12.2012 14:33:03
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
Re: Помощь начинающему
Всем доброго!
Нужно в столбик написать слово ПАПА звездочками. Можно ли использовать цикл for в цикле for. Суть: звездочками набрано слог "ПА" и чтобы его снова не набирать - использовать снова цикл, чтобы программа вывела второй слог "ПА"
program papa;
uses crt;
var i:byte;
BEGIN
clrscr;
writeln ...
Нужно в столбик написать слово ПАПА звездочками. Можно ли использовать цикл for в цикле for. Суть: звездочками набрано слог "ПА" и чтобы его снова не набирать - использовать снова цикл, чтобы программа вывела второй слог "ПА"
program papa;
uses crt;
var i:byte;
BEGIN
clrscr;
writeln ...
- 18.12.2012 19:27:00
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
Re: Помощь начинающему
Mr.Smart писал(а):+0123456789Ee!
Все теперь понятно, благодарю. Просто должны быть символами цифры.
- 17.12.2012 23:09:38
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
Re: Помощь начинающему
Mr.Smart писал(а):А это a:=‘100 лет’; по вашему число?
Так я тогда не пойму. Если строковая величина не преобразуется в числовую, т.е не число, то зачем эта фкнкция нужна и где ее используют?
- 17.12.2012 20:16:16
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
Re: Помощь начинающему
nikolay61,зайди в Виндоузе в панель настройки языков (Панель управления ->Языки и региональные стандарты->Дополнительно) и посмотри какие там стоят галки.Во всяком случае должна быть галка напротив КОИ-8 (20866).Если не поможет,посмотри,стоят ли галки напротив кириллических языков.Если нет ...
- 09.12.2012 13:17:29
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
Re: Помощь начинающему
А как узнать какая?
- 09.12.2012 12:25:34
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
Re: Помощь начинающему
Vadim писал(а):Вы бы хоть вопрос сформулировали внятно,что ли..
Прошу прощения. Когда запускаю програму на выполнение и вместо, например: "Введите три числа через пробел", выскакивают такие крякозябры.
- 09.12.2012 01:51:32
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
Re: Помощь начинающему
Доброго! А как убрать такие кракозябры
http://img-fotki.yandex.ru/get/4116/104 ... fb12_L.jpg
http://img-fotki.yandex.ru/get/4116/104 ... fb12_L.jpg
- 30.11.2012 22:24:59
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
Re: Помощь начинающему
uses crt;
var x,y:integer;
s,r,d:longint;
h:real;
z:char;
BEGIN
writeln('x,y');
readLN(x,y); // Лучше с LN - более наглядно
writeln('z');
read(z);
case z of
'+': begin s:=x+y; writeln(s);//end;
'-': begin r:=x-y; writeln(r); //end;
'*': begin d:=x*y ...
- 27.11.2012 22:37:37
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
Re: Помощь начинающему
PapaNT писал(а):PapaNT
PapaNT писал(а):на весь case надо только один end
- 27.11.2012 21:19:34
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
Re: Помощь начинающему
Vadim писал(а):Никак! "прогарму" пишут только ПОСЛЕ задачи...
Принято.
Добавлено спустя 2 минуты 13 секунд:
bormant писал(а):те "end"-ы не от "case"-а, а от составных операторов "begin end" в каждом из вариантов.
Есть, работает. Всем ОК!
- 27.11.2012 14:01:46
- Форум: Обучение Free Pascal
- Тема: Помощь начинающему
- Ответы: 123
- Просмотры: 181912
Re: Помощь начинающему
Доброго! Что неправильно?
uses crt;
var x,y:integer;
s,r,d:longint;
h:real;
z:char;
BEGIN
writeln('x,y');
read(x,y);
writeln('z');
read(z);
case z of
'+': begin s:=x+y; writeln(s); end;
'-': begin r:=x-y; writeln(r); end;
'*': begin d:=x*y; writeln(d); end ...
uses crt;
var x,y:integer;
s,r,d:longint;
h:real;
z:char;
BEGIN
writeln('x,y');
read(x,y);
writeln('z');
read(z);
case z of
'+': begin s:=x+y; writeln(s); end;
'-': begin r:=x-y; writeln(r); end;
'*': begin d:=x*y; writeln(d); end ...