Turbo Pascal

[[Spider]]

Ответ: Turbo Pascal

дайте ссылки на учебники/примеры задач на тему "Указатели, списки в Turbo Pascal"

[ED2K]
ed2k://|file|%D0%9A%D0%BD%D1%83%D1%82%20%D0%94.%20%D0%AD.%20%D0%98%D1%81%D0%BA%D1%83%D1%81%D1%81%D1%82%D0%B2%D0%BE%20%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D1%8F%20(%D0%93%D0%BB%D0%B0%D0%B2%D0%B0%202).rar|15069663|56C566F835469E29882868C35B5AF8D7|h=UXJ4SU3SDRB6IDPAJG52S2ORHWXZMDII|/
ed2k://|file|%D0%92%D0%B8%D1%80%D1%82%20%D0%9D.%20%D0%90%D0%BB%D0%B3%D0%BE%D1%80%D0%B8%D1%82%D0%BC%D1%8B+%D1%81%D1%82%D1%80%D1%83%D0%BA%D1%82%D1%83%D1%80%D1%8B%20%D0%B4%D0%B0%D0%BD%D0%BD%D1%8B%D1%85=%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D1%8B.pdf|16091140|3BAA24256D5D4DE46835F3B0F44E6A98|h=XALJ5Z3TW55MLUUVAJ4ECZ4EAMCDI4HU|/
[/ED2K]

Во второй книге --- глава 4.

 

[Русечкин]

Ответ: Turbo Pascal

2Русечкин, тебе написали inc(z),а ты попридумывал разной фигни
частка- это a[1]/a[2]

Пасибо, всё работает!

 

[AkeL.php]

Ответ: Відповідь: Turbo Pascal

есть черепушки с номерами 1 и 2 с разных сторон
и эти черепушки выложены в случайном порядке в линию
черепушки можно переворачивать, тоесть менять 1 на 2 или 2 на 1
нужно перевернуть черепушки так, чтобы номера на них не спадали слева на право (a <= a[i + 1])
тоесть допустимые ряды { 1, 2 ,2 }, { 1, 1, 1, 2, 2, 2 }, { 1, 1, 1 }, { 2, 2, 2 }, { 1, 1, 1, 1, 1, 2, 2 }
а не допустимые { 2, 1, 2 }, { 1, 1, 1, 2, 1, 1, 1 }, { 2, 2, 2, 1, 1, 1 }
ВВОД: задаётся количество черепушек и номера на их верхних сторонах, например

7 2 1 1 1 2 2 1

количество черепушек в пределах [1..30'000]
ВЫВОД: наименьшее количество черепушек, которые следует перевернуть, чтобы условие было удовлетворено (какие именно выводить не нужно, только количество)
п.с. интересно посмотреть решения

Создай новую тему для подобных задач, будем пробовать решать на досуге.

 

[Vladimir B.]

Ответ: Відповідь: Turbo Pascal

п.с. интересно посмотреть решения

Имхо, здесь интересно решать такие задачи очень немногим, т.к. околачиваются тут, в основном, с сугубо прикладными интересами школьники и студенты-неучи, которые не могут решать задачи головой. :|

 

[dreamer]

Ответ: Відповідь: Turbo Pascal

Имхо, здесь интересно решать такие задачи очень немногим, т.к. околачиваются тут, в основном, с сугубо прикладными интересами школьники и студенты-неучи, которые не могут решать задачи головой. :|

Мда, судя по уровню вопросов, задаваемых тут, это форум не для программистов а для студентов, которым лень решать домашку .

 

[AkeL.php]

Ответ: Turbo Pascal

+1. Честно говоря, надоедает видеть здесь вопросы, которые уже обсуждались 100kk раз.

 

[KoLoB]

Ответ: Turbo Pascal

Создайте фак для часто повторяющихся запросов.

 

[Cris]

Ответ: Turbo Pascal

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

 

[Тарас]

Ответ: Turbo Pascal

простая программа но гдето ошибка выдает Инвалид флоатинг поинт оперейшн если ктото знает буду очень признателен

program pervaya;
uses crt;
label 1;
var a,b,x,c,d,y,z:real;
begin
clrscr;
write ('vvedite a,b,x');
readln(a,b,x);
if (x=1)or(a*b+x<1)or(a*x<=1) then
begin
goto 1;
end
else
y:=(ln(a*b+x)/ln(5)-sqrt(abs(x-arctan((a*x)/sqrt(1-x*x)))))/(abs((a*a-1)/(B*b+1))+sqr(sin(a+b)/cos(a+b)))++exp(-a*b);
write ('Otvet y = ',y:3:5);
1: writeln ('delenie na nol');
readln;
readkey;
end.

 

[Micle Owen]

Ответ: Turbo Pascal

Идем в справку и читаем об ошибке 207:
Неверная вещественная операция
Вещественное переполнение
Целочисленное переполнение
Вещественное деление на 0
Целочисленное деление на 0
Ln(0)
Complex: деление на 0

у вас в программе при случае x=1 производится деление на ноль:
(a*x)/sqrt(1-x*x)

при a*b+x<1 может выйти значение 0 или меньше нуля, что вызывает ошибку
ln(a*b+x)

Просто математика.