Всё о TURBO PASCAL (обсуждение, помощь в написание программ, ошибки, Pascal ABC)

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Всё о TURBO PASCAL (обсуждение, помощь в написание программ, ошибки, Pascal ABC) (http://forum.oszone.net/showthread.php?t=107695)

25-05-2008 02:39 810212

Всё о TURBO PASCAL (обсуждение, помощь в написание программ, ошибки, Pascal ABC)

Посмотрел что то по паскалю никто ничего не пишет не обсуждает. Давайте возьмемся за это дело!

Admiral

25-05-2008 03:38 810224

Цитата:

Цитата hasherfrog

Delphi. Все вопросы, связанные с Delphi. Вопросы по Pascal (несмотря на то, что это тянет на собственную категорию) - сюда же. »

Что обсуждать? Один из лучших языков для обучения программирования, который всё ещё используют в учебных заведениях. Я не слышал, что б его использовали для крупных коммерческих проектов. Как хобби, писать чисто под ДОС, ещё да слышал такое.

Нынче CMD/BAT самый популярный в разделе Программирование.

31-05-2008 01:08 814915

Программку на логику помогите написать... Через цикл нельзя. Через if и go to - можно.
У вас в наличии имеется 200 рублей. Вам необходимо купить в общей сложности 200 предметов по следующим ценам: фломастеры - 20 рублей за упаковку, тетради общие - 10 рублей за штуку, стержни - 1,5 рубля за штуку. Вы должны потратить все деньги.

Еще одна из тех, которую через цикл нельзя=)
Составить программу перевода натурального числа из десятичной степени счисления в двоичную.
Благодарствую заранее!

Цитата:

Цитата Admiral

http://forum.oszone.net/forumdisplay...ilter_by=title
Почти три полноценных страниц только по Pascal, не считая ещё темы с префиксом Delphi в которых тоже обсуждают Pascal, ссылаясь на указание hasherfrog
Цитата hasherfrog:
Delphi. Все вопросы, связанные с Delphi. Вопросы по Pascal (несмотря на то, что это тянет на собственную категорию) - сюда же. »
Что обсуждать? Один из лучших языков для обучения программирования, который всё ещё используют в учебных заведениях. Я не слышал, что б его использовали для крупных коммерческих проектов. Как хобби, писать чисто под ДОС, ещё да слышал такое. »

Спасибо! Принял к сведению!=)

yurfed

31-05-2008 01:40 814930

Только алгоритм. ПисАть програмку нет желания. Да и подзабыл уже некоторые нюансы
м1:счётчик карандашей +1
проверяем карандаши*рубли (к*р), если к*р/10 целое число goto на м2
м2:счётчик тетрадей +1
200/(сумма за карандаши + сумма за количество тетрадей) если (200/(сумма за карандаши + сумма за количество тетрадей)) целое число то
вывод на экран- количество карандашей, тетрадей и часное за упаковки фломастеров (200/(сумма за карандаши + сумма за количество тетрадей)) иначе м1
в итоге карандаши 40шт, тетради 4шт и фломастеры 5шт

01-06-2008 02:58 815677

Цитата:

Цитата yurfed

Только алгоритм. ПисАть програмку нет желания. Да и подзабыл уже некоторые нюансы
м1:счётчик карандашей +1
проверяем карандаши*рубли (к*р), если к*р/10 целое число goto на м2
м2:счётчик тетрадей +1
200/(сумма за карандаши + сумма за количество тетрадей) если (200/(сумма за карандаши + сумма за количество тетрадей)) целое число то
вывод на экран- количество карандашей, тетрадей и часное за упаковки фломастеров (200/(сумма за карандаши + сумма за количество тетрадей)) иначе м1
в итоге карандаши 40шт, тетради 4шт и фломастеры 5шт »

31,2 фломастера тогда что ли в одной упаковке?! Ну да денег потрачено 200 рублей..... но предметов не выходит 200.....
Мне кажется здесь надо формулу 3-х неизвестных выводить.... или я не прав?..... Просто всё перепробовал уже.... незнаю как...

01-06-2008 03:14 815680

:help:

yurfed

01-06-2008 03:25 815681

Loading,
40*1.5 карандашей=60р
4*10 тетради=40р
Остаток 200-(60+40)=100р
100/20=5уп фломастеров.
Ты не понял? Если конкретноне понятен алгоритм, обоснуй.
Если счётчик не прав, то поправь его при перебегании в начало Х:=Х-1
Попробую написАть в ближайший день-два прогу. Ноадеюсь без объектов в проге :)
А вот так можно?

Код:

repeat

   оператор;

   оператор;

   ...

   оператор

until выражение

Loading, если есть готовая прога, но с ошибками, выложи сюда заключённой в теге [cоde]программа[/code]
ЗЫ в словах "code" всё латиницей.

DedAlex

01-06-2008 09:27 815721

Цитата:

Цитата Loading

У вас в наличии имеется 200 рублей. Вам необходимо купить в общей сложности 200 предметов по следующим ценам: фломастеры - 20 рублей за упаковку, тетради общие - 10 рублей за штуку, стержни - 1,5 рубля за штуку. Вы должны потратить все деньги. »

Либо условие задачи не полностью, либо задача не корректна. Минимальная цена предмета 1.5 рубля, и даже стержней на эту сумму можно купить только 133 штуки.

03-06-2008 01:27 817040

Цитата:

Цитата DedAlex

Цитата Loading:
У вас в наличии имеется 200 рублей. Вам необходимо купить в общей сложности 200 предметов по следующим ценам: фломастеры - 20 рублей за упаковку, тетради общие - 10 рублей за штуку, стержни - 1,5 рубля за штуку. Вы должны потратить все деньги. »
Либо условие задачи не полностью, либо задача не корректна. Минимальная цена предмета 1.5 рубля, и даже стержней на эту сумму можно купить только 133 штуки. »

Условие полностью

Цитата:

Цитата yurfed

Loading,
40*1.5 карандашей=60р
4*10 тетради=40р
Остаток 200-(60+40)=100р
100/20=5уп фломастеров.
Ты не понял? Если конкретноне понятен алгоритм, обоснуй.
Если счётчик не прав, то поправь его при перебегании в начало Х:=Х-1
Попробую написАть в ближайший день-два прогу. Ноадеюсь без объектов в проге
А вот так можно?
Код:
repeat
оператор;
оператор;
...
оператор
until выражениеLoading, если есть готовая прога, но с ошибками, выложи сюда заключённой в теге [cоde]программа[/code]
ЗЫ в словах "code" всё латиницей. »

Нет через repeat нельзя. Это ж тоже цикл получается.
Текста проги нет, т.к не догнал что то я её вообще.

yurfed алгоритм понятен, но видишь в чем фишка... предметов по твоему способу не выходит 200. А 200 рублей выходит.
Ну я у препода спросил, он сказал что это чисто математическая прога, здесь нужно какую то формулу 3-х неизвестных через систему вывести..... кстати не карандаши а стержни =) Один фломастер из упаковки нужно считать за 1 предмет. :closed-to

yurfed

03-06-2008 04:43 817076

Цитата:

Цитата Loading

кстати не карандаши а стержни »

Это существенно. Тут и копай.

Цитата:

Цитата Loading

предметов по твоему способу не выходит 200 »

Нужно 200 предметов на 200 рублей купить? Если каждый предмет стоит больше рубля, то как?
Всё, приехали. Дальше я молчу.

yurfed

03-06-2008 05:20 817082

Цитата:

Цитата Loading

Один фломастер из упаковки нужно считать за 1 предмет. »

Перечиал я ещё раз. Сколько фломастеров в упаковке? Тормозишь ты конкретно.

04-06-2008 00:53 817898

yurfed нет это не я это препод мне такую хрень втирал. сегодня я ему расклад дал что никак это не получится, он кричит что получится. я сказал давай сам реши, он не решил, сошлись на том что просто 200 рублей потратить, и что можно через цикл. вот так. извини что мозги парил тебе, я сам запарился, это все препод виноват!!!!!!
Можешь написать прогу?! :oszone:

PS. А еще я про системы счисления писал задание, алгоритм пояснить можешь как её написать?! :help:

И если можно алгоритм этой:
Игрок А объявляет двузначное число от 0 до 99. Игрок В меняет местами его цифры и прибавляет полученное число к сумме его цифр. Полученный результат он объявляет игроку А. Игрок А проделывает с этим числом ту же процедуру, и так они продолжают поступать поочередно, объявляя числа. От суммы чисел берется остаток от деления на 100, поэтому объявляются лишь двузначные числа. Какие числа может объявить игрок А на начальном шаге, чтобы игрок В в некоторый момент объявил число 00. :dont-know

Admiral

04-06-2008 03:21 817936

Цитата:

Цитата Loading

PS. А еще я про системы счисления писал задание, алгоритм пояснить можешь как её написать?! »

В основе алгоритма операторы div и mod. Вот примерная работа, с использованием цикла.

Код:

Program dec2hex;

Uses crt;

Var i :integer; Hex, tHex :string;

Begin

Hex:='';

Write ('Enter your natural decimal number: ');

Readln (i);

repeat

Str(i mod 2,tHex);

Hex:=Hex+tHex;

i:=(i div 2);

until (i=1);

Str(i mod 2,tHex);

Hex:=Hex+tHex;

write (Hex);

End.

Это не готовая прога, хоть тут ответ и можно получить, но в зеркальном варианте. К примеру, если ввести 13 то получим 1011, правильный ответ будет 1101. Ну это уже самостоятельно. Идея такая же как и при делении в столбик, только результат деления и остачу складываем в переменную типа строчка.
С GoTo
Меняем на

Код:

Readln (i);

Label startPos

{repeat}

…

{until (i=1);}

If (i<>1) GoTo startPos

Только я у меня компиллер заладил Error in statement на Лейбл, хотя вроде по справке делал.

Yard	10-06-2008 16:59 823083

Помогите пожалуйста кому не трудно очень надо

В городе N имеется 100 кондитерских магазинов. Известно что в каждом из этих магазинов не более 20 видов сластей в ассортименте. Какие виды сластей имеются во всех имеющихся магазинах, существует ли магазин торгующий уникальной продукцией, перечислите 5 видов сластей которые есть в большинстве магазинов города N?(ассортимент кондитерских магазинов рассматриваете как данные перечислимого типа)

20-06-2008 00:30 830660

[q=Admiral]Это не готовая прога, хоть тут ответ и можно получить, но в зеркальном варианте. К примеру, если ввести 13 то получим 1011, правильный ответ будет 1101. Ну это уже самостоятельно. Идея такая же как и при делении в столбик, только результат деления и остачу складываем в переменную типа строчка.
С GoTo
Меняем на....

Зачем?! можно просто через downto...

Admiral

21-06-2008 14:18 831779

Loading, ну вот и славненько, разобрались. Призабыл я Паскалевский downto...

26-06-2008 06:22 835227

Всем привет! Еще напишу блок заданий, кто что знает - набросайте текст программы please, а то я неуспеваю их писать, блин долбаная практика...... задают по 4-5 штук в день.

Массив:
Каждый солнечный день улитка сидящая на дереве поднимается на 2 см, а каждый пасмурный спускается на 1 см. В начале наблюдения улитка находилась на А - см от земли на В - метровом дереве. Имеется 30-ти элементный одномерный массив, содержащий сведения о том, был ли сответствующий день наблюдения солнечным или пасмурным. Написать прогу, определяющую местоположение улитки к концу 30-го дня наблюдения.

Массив:
В одномерном массиве, состоящем из n вещественных элементов вычислить:
1. минимальный эл-т массива.
2. сумму элементов массива, раположенных между первым и последним положительными эл-ми.Преобразовать массив таким образом, чтобы сначала распологались все элементы, равные нулю, а потом все остальные.

на CASE:
Пусть элементами равностороннего треугольника является:
1. сторона а
2. площадь s
3. высота h
4. радиус вписанной окружности r
5. радиус описанной окружности R
6.Составить прогу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника.

Цикл:
Составить программу для проверки утверждения:
результатами вычислений по формуле x*x+x+17 при 0<=x<=15 являются простые числа. Все результаты вывести на экран.

Массив:
На пульте имеется n отверстий разных диаметров. Написать прогу создания одномерного массива из номеров отверстий, в которые не пройдет шарик радиусом r. Результирующий массив не должен содержать лишних элементов.

Помогите кто чем может...

Изабель

15-01-2009 07:56 1008137

Доброго времени сутокок !! Помогите пожалуйста с написанием программ на Паскале. их всего 4е но самой мне не написать !!! Если вдруг кто сможет и будет время !!! Заранее благодарна !!! Можно сразу на почту написать
№1
Сведения о книге состоят из фамилии автора, названия книги, наименования издательства и года издания. Упорядочить данные по фамилии автора. Вывести данные о книгах, изданных заданным автором в 1998 г.

Написать программу (Pascal) для решения поставленной задачи. Программа должна быть разработана с использованием классов. Например, если в задаче речь идет об учениках, необходимо объявить соответствующий класс. В программе должен быть также объявлен массив (размещенный в статической памяти), элементами которого будут объекты некоторого класса (например, класса «Ученик»).

Примечание:
1) Все основные процедуры и функции (ввод, вывод информации) должны быть методами класса. Вне класса можно определить только вспомогательные подпрограммы (такие, как вывод меню) или подпрограммы, работающие с массивом объектов (например, поиск). Однако, если при этом выполняется более или менее сложная операция сравнения (например, на соответствие даты заданному критерию поиска), то данную операцию (сравнение) лучше оформить как отдельную подпрограмму и сделать методом класса.
2) В задачах, не связанных с использованием графики, исходные данные должны читаться из файла (не менее 10 записей). С клавиатуры может вводиться только имя файла (необязательно) и критерий поиска (если необходимо).

№2
Файл содержит информацию о дисциплинах, изучаемых студентами специальности ПИЭ. Для каждой дисциплины указаны: название, номер семестра, общее количество часов, форма итоговой аттестации (экзамен, зачет). Разработать программу, позволяющую: (1) добавлять информацию в файл; (2) удалять и редактировать информацию; (3) выводить список дисциплин по номеру семестра (упорядочить по наименованию). Примечание. Так как наименование дисциплины может быть достаточно длинным, при выборе пункта «удаление» можно выводить список всех дисциплин с порядковыми номерами и запрашивать номер удаляемой дисциплины.

Создание программ с использованием структурного подхода.

Задание: Написать программу для решения задачи. Каждая подзадача должна быть оформлена в виде отдельной подпрограммы. Программа должна быть написана без использования динамической памяти!

№3
Определить тип данных «Окружность» (должен включать координаты центра и радиус). Разработать подпрограммы для ввода информации с клавиатуры, вывода на экран, чтения/записи в файл, а также для вычисления длины окружности и площади круга, ограниченного данной окружностью.

Реализация модулей в языке Паскаль

В языке Паскаль модуль — это автономно компилируемая программная единица, оформленная по особым правилам.
Структура модуля на языке Паскаль следующая:

UNIT <имя_модуля>;
INTERFACE
<интерфейсная секция>
IMPLEMENTATION
<секция реализации>
BEGIN
<инициирующая секция>
END.

Имя файла, содержащего модуль, должно совпадать с именем модуля.
Секция INTERFACE (интерфейсная секция) содержит описания констант, типов, переменных и процедур, доступных основной программе или другим модулям.
Секция IMPLEMENTATION (секция реализации) содержит исходный код подпрограмм, а также описания, локальные для данного модуля (типы, переменные).
В инициирующей части размещаются операторы, которые исполняются до передачи управления основной программе и обычно используются для подготовки ее работы. Здесь, например, могут инициализироваться переменные, открываться файлы и т.д. Операторы инициализирующей секции выполняются всего один раз при запуске программы. Инициирующая часть может быть пропущена.
После компиляции модуля создается файл с расширением .TPU. Использование функций из модуля в программе возможно после включения в программу директивы USES <имя модуля>;.

№4
Создать класс «Линия» (внутренние переменные: координаты начальной и конечной точек, признак видимости). Разработать методы для инициализации (конструктор), рисования и удаления с экрана, а также изменения ее размера (т.е. координат точек). Используя созданный класс, составить программу для решения следующей задачи.
Выбор нужной точки экрана обычно выполняется подводом курсора к этой точке и нажатием клавиши ENTER. Иногда бывает полезно видеть и предыдущую выбранную точку — последнюю точку, зафиксированную клавишей ENTER, и новую точку, на которую указывает курсор. Для этого может использоваться, например, «метод резиновой нити».В «методе резиновой нити» один конец отрезка зафиксирован и указывает последнюю выбранную точку, второй конец перемещается в соответствии с изменением указываемой точки.

Работа с объектами.
Требования:
1) Программы на обеих языках должны состоять из модулей. Можно вначале разработать программу без модулей, а когда все ошибки будут устранены, поместить описание класса в отдельный модуль.
2) Запрещается в методах класса вызывать функции работы с клавиатурой (например getch()).Подобные функции вызывать только из главной программы.
3) Каждый класс обязательно должен включать конструктор.

Надеюсь что хоть кто то сможет полностью написать программы !!!!! Буду благодарна очень очень !!!!!!!!!

Тидж	11-05-2009 00:42 1115222

Помогите написать прогу:

Записать в фаил N чисел, введёных с клавиатуры. Считать из фаила эти числа. Найти из них максемальное число.

Ellis_Cullen

30-12-2009 17:29 1307745

Народ,буду очень благодарна,если кто сможет помочь!))
В общем,задача такова: Найти в двумерном массиве максимальный элемент в каждой диагонали, параллельной главной.
Спасайте :)

Nelson1992

09-02-2010 16:13 1343113

Мне нужна помощь в написании программы к заданию:

1. На языке программирования Pascal реализовать процедуры работы со стеком на последовательном распределении памяти:

- Создание пустого стека

- Добавление элемента на вершину стека

- Удаление элемента с вершины стека

Процедуры, реализующие операции добавления и удаления элемента должны разумным образом обрабатывать ситуации переполнения и нехватки (схемы (2а), (3а)). Стек реализовать, используя одномерный массив и переменную типа integer (указатель на вершину стека).

Т ← Т + 1; если T > M то ПЕРЕПОЛНЕНИЕ, иначе Х[Т] ← Y (2a)

(включить в стек)

если T = 0 то НЕХВАТКА, иначе Y ← X[T]; Т ← Т - 1 (3a)
(исключить из стека)

2. Провести вычислительный эксперимент с полученными процедурами

a) Используя результат задания 1 запрограммировать получение нового текстового файла, в котором все слова во всех предложениях записаны в обратном порядке. В программе установить максимальный размер стека равным 10.

b) Используя результат задания 1 запрограммировать получение нового текстового файла, в котором в котором буквы каждого слова записаны в обратном порядке. В программе установить максимальный размер стека равным 5.

В процессе работы программы должна выводить текущее состояние стека (после каждой операции добавления, извлечения, очистки).

Вот текст который должен содержаться в текстовом файле:

Придется идти ва-банк...
- Ты не вправе слышать его имя!
- Я вправе на все, - сообщает монстр.
И пальцы сжимаются.
Теперь должен произойти выход в реальность. Как следствие
"смертельного" воздействия. Иначе - мозг может вообразить самый настоящий
болевой шок, со всеми последствиями.
Только самоубийца отключит предохранители дип-программы.
Или дайвер.
Мое изуродованное тело валяется на ладони монстра. Череп расплющен,
один глаз смотрит в пыльное жаркое небо, другой - в каменный ноготь. Ифрит
громко, удовлетворенно хохочет, потом кричит:
- Ты, пришедший в облике волка, запомни его судьбу!
Ага, вот как он определил язык... слышал наши разговоры. Однако ему
не хватило "ума" понять, с кем имеет дело...
Монстр снова каменеет. Я выжидаю еще секунду, потом встаю. Тело
медленно собирается воедино. Нормальный пользователь дип-технологии сейчас
очнулся бы в реальности, перед укоризненно верещащим компьютером.
Учитывает ли сторожевая программа "Аль-Кабара" существование
дайверов?
Монстр неподвижен. Я мертв, давно мертв... Осторожно ступаю на
волосяной мост...
- Кто ты?

stalker-ust

27-04-2010 09:57 1401563

Ребята,помогите в написании программу в множестве!!
а то препод сожрет всю группу....

Путем ввода целых чисел создать множество. Определить, входят ли в данное множество числа, введенные с клавиатуры.

заранее спасибо....

Drongo

27-04-2010 10:36 1401587

stalker-ust, Если напишу на С++ перевести на Pascal сможете? Есть кому?

Вообще логика этой программы такая(как я понял):

1. Запрашиваем ввод числа, которое создаст массив нужного нам размера (размер нашего множества)
2. Заполняем наше множество, запрашиваем у пользователя ввод чисел. Вводим столько чисел, какой размер имеет массив.
3. После заполнения, запрашиваем у пользователя ввод любого целого числа.
4. Проверяем в цикле с массивом, если в массиве нет введённого числа - значит число не входит, иначе - входит.

stalker-ust

29-04-2010 12:04 1403205

давай))

Drongo

29-04-2010 16:10 1403423

stalker-ust, Вот. Надеюсь поможет. Проверку того что число не входит в множество, я не делал.

Код:

#include <iostream>

using namespace std;



int main()

{

   int size;  // Размер массива

   int *array; // Наш динамический массив

   int num, // Вводимое числ для проверки в массиве

   z;



   // Запрашиваем ввод размера массива

   cout << "  Введите размер массива = ";

   cin >> size;



   // Проверяем, пока введённое число меньше 1

   // предлагать ввод правильного значения

   while(size < 1){

      cout << "  Введите размер массива = ";

      cin >> size;

     }



   // Создаём массив

   array = new int[size];



   // Заполняем массив, вводом чисел с клавиатуры

   for(int i = 0; i < size; i++){

      cout << "Введите значение в массив, элемент array[" << i << "] = ";

      cin >> array[i];

     }



   // Предлагаем пользователю ввести любое число

   // Его мы будем проверять на наличие присутствующих

   // чисел в массиве.

   cout << "Введите любое целое число = ";

   cin >> num;



   // Проверяем, если ведённое число есть в массиве

   // Выводим число и индекс массива

   for(int j = 0; j < size; j++)

      if(array[j] == num)

         cout << "Введённое число: " << num << " находится в массиве array[" << j << "]" << endl;



   delete [] array; // Освобождаем память



   cin >> z;

   return 0;

}

P.S. Результат перевода на Pascal жду в этой теме. :)

pasha2009k

12-05-2010 10:05 1411477

Цитата:

азное - Всё о TURBO PASCAL (обсуждение, помо

Среда програмирования: ABS Pascal

Задача: Пусть задано 10 русских имён. Проверьте все ли имена написаны с прописной буквы, если нет,то исправте ситуацию.

Если можно то задачку в лс!
Заранее спасибо.

Drongo

12-05-2010 13:24 1411615

Цитата:

Цитата pasha2009k

Если можно то задачку в лс!»

и кофе тоже подать?

Задача для первоклассника. Проверяете первую букву имени и если она в нижнем регистре, то переводите её в верхний. В чём трудность-то?

Nayan

16-07-2010 21:15 1454727

Пожалста,Напишите программу,которая считывает данные из текстового файла,содержащего одномерный массив произвольной длины,отображает данные в виде графика,вычисляет количество элементов в массиве,среднее значение, среднее квадратичн.отклонение и выводит полученн.результаты на экран. Срочно надо.

Glareone

17-07-2010 03:50 1454834

Цитата:

Цитата Nayan

на каком языке надо написать?ничего особенного в задаче нету.

1)посимвольное чтение из файла до пробела,преобразование из цифр в число.
2) перевыделение памяти для массива, добавление нового числа (вместо перевыделения можно подсчитать общее кол-во элементов в файле с помощью цикла while(!eof) и уже выделить необходимое кол-во )
3) график можно нарисовать с помощью символов( * - | ) не прибегая к использованию регистров или graph.h
4) остальные задачи-математические на 2 строки.

Nayan

17-07-2010 07:13 1454854

Прога на паскале,мне поставили срок до завтра.Выручите? Это при устройстве на работу меня решили проверить,а я подзабыл уже,2года назад отучился.

Mercenary13

06-12-2010 09:34 1559347

Помогите решить задачу, буду очень благодарен.
Сведения об ученике состоят из его имени и фамилии и названия класса (года обучения и буквы), в котором он учится. Дан типизированный файл f, содержащий сведения об учениках школы:
а) выяснить, имеются ли однофамильцы в каких-либо параллельных классах;
б) выяснить, имеются ли однофамильцы в каком-нибудь классе;
в) выяснить, имеются ли однофамильцы в каких-либо параллельных классах у которых совпадает и имя и фамилия;
г) выяснить, имеются ли однофамильцы в каком-нибудь классе, у которых совпадает и имя и фамилия;
д) выяснить, в каких классах насчитывается более 35 учащихся;

love_molly

10-04-2011 23:06 1655536

кто-нибудь,помогите с процедурой
задание №6

lxa85

11-04-2011 08:36 1655658

love_molly, ну и пиши прямым текстом, что тебя смущает?
Пересчитать все значения по строкам, пересчитать все строки, каждый элемент возвести в квадрат и просуммировать. Из полученного значения вычислить корень. Где сложность?

Lksen

19-12-2011 08:54 1817772

Привет, ребят. мне надо зачет получать, а я не шарю в программировании вообще. Помогите решить задачи:
1

Заранее спасибо

lxa85

19-12-2011 09:16 1817782

Lksen,
1. Нужны решения в псевдокоде. Ну или хотя бы ручкой на листе бумаги.
2. тригонометрические функции считать в градусах или в радианах?
3. 6ое задание, как самое интересное - твои мысли, наш код. Не иначе.

Lksen

19-12-2011 10:03 1817807

Цитата:

Цитата lxa85

1. Нужны решения в псевдокоде. Ну или хотя бы ручкой на листе бумаги. »

В смысле "псевдокоде"? уже решенное или как?

Цитата:

Цитата lxa85

2. тригонометрические функции считать в градусах или в радианах? »

Скорей всего в градусах

Цитата:

Цитата lxa85

3. 6ое задание, как самое интересное - твои мысли, наш код. Не иначе. »

Не понял. Это задание я списал с книжки, дословно оно звучит вот так:

Скажите поподробней, что я должен сделать, а то ничего не понимаю. Вылететь с первого же курса как то...

lxa85

19-12-2011 12:11 1817870

Lksen,

Цитата:

Цитата Lksen

В смысле "псевдокоде"? уже решенное или как? »

конечно решенное!
Вы сдаете собственные измышления, а не наши коллективные. Соотв. вы думаете "Как" решать задачу, а мы лишь помогаем с реализацией.

Цитата:

Цитата Lksen

Скорей всего в градусах »

ЕМНИП Pascal по умолчанию работает с радианами. Напомни плиз, как из этих в те перевести?

Цитата:

Цитата Lksen

Скажите поподробней, что я должен сделать »

Про задание я понял, к формулировкам претензий нет. Просто через две точки корней уравнения можно провести бесконечное множество парабол. Какую из них выбрать?

Lksen

19-12-2011 13:41 1817907

Цитата:

Цитата lxa85

Соотв. вы думаете "Как" решать задачу, а мы лишь помогаем с реализацией »

У меня в первые дни был как то "прорыв", я мог решать задачки по паскалю, но потом пошло введение в проф деятельность, а там нужно решать физические (физика) и геометрические (геометрия) задачи на паскале, а в школе у меня были двойки за эти предметы..
1)

Код:

program pr1;

const a=0.5;

var b,x,u,f:real;

  Begin

  write('Введите значение b,x:');

  readln(b,x);

  U:=((a*a)*x+exp(-x*ln(e)*cps*b*x))/((b*x-exp(-x*ln(e)*cos*b*x+1));

  f:=exp(2*x*ln(e)*ln(a+x)-exp(3*x*ln(b)*ln(b-x);

writeln ('U=',U:5:3,'  f=',f:5:3);

readln;

End.

И получились у меня

Код:

U=-0,082 и f=-2,905

Это была первая работа, которую надо было сдать, делал ещё когда этот "прорыв" был, а после уже потенциал пропал...
Как делать остальные даже догадок нет, не то, что "что-то решенное". :(

Цитата:

Цитата lxa85

ЕМНИП Pascal по умолчанию работает с радианами. Напомни плиз, как из этих в те перевести? »

На просторах интернета нашел следующее, может поможет..

Код:

uses crt;

var Rd,Gr,G,M,S:real;GMS:string;

begin

clrscr;

write('Rd=');readln(Rd);

Gr:=Rd*180/pi;

G:=int(Gr);

M:=int(frac(Gr)*60);

S:=frac(frac(Gr)*60);

Write(Rd:4:2,'rad= ',G:3:0,'gr ',M:3:0,'min ',S:3:1,'sec');

readln

end.

Цитата:

Цитата lxa85

Про задание я понял, к формулировкам претензий нет. Просто через две точки корней уравнения можно провести бесконечное множество парабол. Какую из них выбрать? »

Не знаю. Я вообще мало что понимаю в этом языке и что нужно. Там я два задания переписал из учебника дословно, ничего помимо этого там не написано.

Lksen

19-12-2011 16:29 1818012

Формулы не могу сделать
2)

Lksen

20-12-2011 13:37 1818686

Помогите пожалуйста решить, мне работы уже завтра сдавать нужно, ибо - незачет :(

Skuttbin

16-12-2012 16:57 2046492

Помогите пожалуйста написать прогу (Turbo Pascal)

Введите три числа и выведите их в строчку в центре экрана: самое большое число красным цветом, самое маленькое синим цветом, среднее по величине желтым цветом.

KiberElzin

20-05-2015 15:28 2509431

Помогите решить
Напишите программу, находящую количество троек целых чисел a, b, p таких, что p — простое число, числа удовлетворяют равенству:
√a−√b=√p
и каждое из чисел a, b и p лежит в промежутке от N до M (т. е. N ≤ a ≤ M, N ≤ b ≤ M, N ≤ p ≤ M).
Формат входных данных.
Во входном файле записаны целые числа N и M (0 ≤ N ≤ M ≤ 100000).
Формат выходных данных.
В выходной файл выведите искомое количество троек чисел a, b, p.

Время: 14:09.