| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
1443.
владимир
(16.11.2007 19:57)
0  
Мне тут подкинули пару задач по институту, прошу пожалуйста помочь, хотя бы решить 2-3, буду очень признателен. Время жмет осталось несколько дней. Так вот.
Надо составить блок-схему алгоритма, программу и описание для следующих задач:
1.Дана целочисленная квадратная матрица. Найти в каждой строке матрицы наибольший элемент и поменять его местами с элементами главной диагонали
2.Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа M. Если таких нет, то выдать сообщение об этом.
3.Дана квадратная матрица A(N,N). Записать на место отрицательных элементов матрицы нули, а на место положительных – единицы. Вывести на печать нижнюю треугольную матрицу в общепринятом виде.
4.Дана символьная строка. Разбить строку на слова, разделенные между собой точкой с запятой и пробелом. Окончанием слова считать третий символ «е» в слове.
5.Задана строка символов, состоящая из слов, разделенных пробелами (одним или не сколькими). Напечатать все слова, отличные от первого слова. Если таких слов нет, то задать соответствующее сообщение.
Ответ: Помочь смогу, но с блок-схемами, как всегда, возни много. В чем их делать надо? И сколько времени есть? Прочитал только 19 ноября, смогу взяться не ранее, чем вечером
|
1442.
snaper1993
(15.11.2007 21:15)
0
Помогите пожалуста розвязать задачу:
Задача 1. «Особливий день»
Фермер Петро Дієтенко завдяки своєму успішному бізнесу у кролівництві став відомим далеко за межами Чемеровеччини. У Петра
було дві радості у житті. Перша - це коли збільшувався приплід на власній фермі, і друга – коли відбувався падіж у
конкурента Вампірова. Для контролю за кількістю кроликів Петро кожного дня, починаючи з 1 січня, записував скільки
кроликів у нього на фермі прибавилося. В кінці року він знаходив у своїх записах максимальний приплід і визначав
відповідний день тижня. Цей день мав для фермера особливий статус на наступний рік і тільки кролики знали як він
його проводив. Складіть програму, яка за відомими записами 2007 року визначить особливий для Петра день.
Вхідні дані: у стандартному вхідному потоці, по одному у рядку, розміщена певна кількість цілих невід’ємних чисел
не більших 1000, що визначають щоденний приплід кролеферми Дієтенка. Кількість чисел не перевищує 365 (вважатимемо,
що наші дії можуть відбуватися у кінці цього року).
Вихідні дані: у стандартний вихідний потік вивести скорочену англійську назву особливого дня. Наприклад: Mon, Tue,
Wed, Thu, Fri, Sat, Sun (Перелік днів іде від понеділка до неділі в порядку їх слідування) . Якщо днів із
максимальним приплодом є декілька, то вивести той, що є першим у переліку.
Приклад вхідних даних.
2
9
3
Приклад вихідних даних
Tue
Примітка. Найбільше значення у переліку 9. Його порядковий номер 2 і це є другий день 2007 року, що припадає на вівторок.
Ответ: Вчитываюсь, пока не совсем понял, что надо :(( То ли очень просто, то ли есть заковырка
|
1441.
denis
(15.11.2007 01:30)
0
Спосиба!Пожскажи пожалуйста как например поменять положение одного уха в другое т.е в виде анемаций... Не получается...
Ответ: Не очень понял, что хотите получить. Это будет садизм или абстракция? В Pascal есть средства для создания несложной анимации
|
1440.
Станислав
(14.11.2007 15:06)
0
Помогите пли3))) Задачи на " Неопределенные циклы"
1) Составьте программу вывода на экран таблицы деления на 7.Таблица должна выглядеть так:
7/7=1
14/7=2
21/7=3 и т.д.
2) Составьте программу вывода на экран в "строчку" всех трехзначных чисел, кратных 7
3) Ввести с клавиатуры 6 чисел и определить их среднее арифметическое
4) Вычеслить суммы квадратов натуральных чисел до тех пор, пока квадрат очередного числа не превысит числа => 81
Ответ: Вот решения:
-- №1 --
CONST
N_lim = 20; NUM = 7;
VAR n: Integer;
BEGIN
n:=1;
while (n <= N_lim) do begin
Write(n*NUM:3,''/'',NUM,'' = '',n:2,'' '');
n:=n+1;
end; WriteLn
END.
-- №2 --
CONST NUM = 7;
VAR n: Integer;
BEGIN
n:=100;
repeat
if n mod NUM = 0 then Write(n:5); n:=n+1;
until n >= 1000; WriteLn
END.
-- № 3 --
CONST N = 6;
VAR
a: Array[1..N] of Integer;
i: Integer; sum: Real;
BEGIN
WriteLn(''Введите 6 целых чисел'');
for i := 1 to N do begin ReadLn(a[i]); sum:=sum + a[i] end;
WriteLn(''Среднее арифметическое равно: '', sum / N:10:5);
END.
-- №4 --
CONST N_lim = 81;
VAR n, n2: Integer;
BEGIN
n:=1;
repeat
n2 := n*n; Write(n2:5); n := n + 1
until n2 >= N_lim; WriteLn
END
|
1439.
(13.11.2007 13:53)
0
Оуу ничего себе...Очень благодарен вам за потраченое на меня время и программу...Так здорова и быстро...Читаю Фаронова, в университете дают задания,а программу написать по строгому стилю не могу. Скажи пожалуйста а как цвет глазок у кошки поменять FillEllise SetColor... или нет.
Ответ: Вы не сердитесь и не удивляйтесь тому, что Ваши сообщения не сразу появляются - очень много спама пытаются у нас разместить.
Раскрасить можно проще с помощью процедуры из модуля GRAPH
FloodFill(от_X, от_Y, цвет_границы),
которая начинает закрашивать с точки, заданной первыми двумя параметрами, до тех пор, пока не встретит цвет, заданный третьим параметром. Цвет и стиль заливки нужно определить заранее с помощью
SetFillStyle(SolidFill, lightgreen)
первый параметр цифра = стиль заливки (какие есть, можно узнать, если поставить курсор на SolidFill и нажать Ctrl+F1
Вот как это можно применить в нашем случае:
после команды
Circle(150, 177, 8);
поместите
SetFillStyle(SolidFill, lightgreen);
FloodFill(150, 177, brown);
и т.д.
|
1438.
Denis
(13.11.2007 03:31)
0
Здравствуйте. Проблема у меня в том, что не могу никак переключиться на русский язык при написании программ
Ответ: Если в окне редактора, то смотри совет чуть ниже 2007-10-14 13:57:53 "Вася", а если на графическом, то нужны шрифтовые файлы.
Тоже есть :))
|
1437.
Denis
(13.11.2007 03:15)
0
Здравствуйте. Для вывода на "графический" экран можно использовать стандартный модуль GRAPH это вот ясно. Только как задействовать эту библиотеку к примеру нарисовать морду кошки. Какие функции, процедуры использовать... Не могу сообразить как объединить эти процедуры в любой программе написанной на Турбо Паскале...
Ответ: Ну вот так, быстренько если
--
uses GRAPH;
var gm, gd, er: Integer;
BEGIN
gD := Detect;
InitGraph(gD, gM, ''d:bpbgi''); {Путь к файлу egavga.bgi}
Er := GraphResult;
if Er <> grOk then begin
Writeln(''Graphics error:'', GraphErrorMsg(Er)); Halt(1)
end;
SetBkColor(Yellow);
SetColor(brown);
Circle(200, 200, 100);
Arc(150, 220, 60, 120, 50); Arc(150, 135, 240, 300, 50); Circle(150, 177, 8);
Arc(250, 220, 60, 120, 50); Arc(250, 135, 240, 300, 50);
Circle(250, 177, 8);
Ellipse(200, 220, 0, 360, 20, 8); Ellipse(200, 230, 200, 340, 40, 10);
Line(150, 220, 50, 220); Line(250, 218, 350, 220);
Ellipse(150, 235, 90, 180, 100, 10); Ellipse(150, 265, 90, 190, 100, 30);
Ellipse(250, 235, 0, 90, 100, 10); Ellipse(250, 265, 0, 90, 100, 30);
Line(110, 153, 115, 50); Line(115, 50, 180, 100);
Line(287, 153, 275, 50); Line(275, 50, 210, 100);
Readln;
CloseGraph;
END.
|
1436.
efik
(08.11.2007 23:43)
0
!!! Самый офигенный сайт из всех, которые я видел !!!
Даже недумал, что такой смогу найти !
Респект чувакте !!! незря старался. )))
Ответ: Спасибо
|
1435.
даниил
(27.10.2007 17:19)
0
как сделать графику в паскале
Ответ: Для вывода на "графический" экран можно использовать стандартный модуль GRAPH. Есть и нестандартные.
А что хотите сделать Вы?
|
1434.
tyty
(23.10.2007 07:31)
0
у нас здесь тупая училка-ничего не знает!спасите, мы же умрем!!! какой ей паскаль- она даже 2+2 не посчитает, хотя математик!!!
Ответ: А спасать-то как? Мы мокрыми делами не занимаемся :))
А если серьезно, то пишите, в чем проблемы
Я ТОЛЬКО-ЧТО (вчера) завершил конференцию, подготовка к которой занимала в течение последнего месяца абсолютно все мое время и готов к бою. Пишите
|
1433.
Алексей
(22.10.2007 18:33)
0
Здравствуйте!
Помогите, пожалуйста: мне надо написать программу, в которой надо вводить и сравнивать целые числа, и сделать ее fool-proof, т.е. работающей на любых входных данных, в т.ч. неверных. Если вводить числа, сильно большие MaxInt, то все хорошо, IOresult все тормозит и программа выдает ошибку. Однако, если ввести чсло типа 80000, то программа ошибки не видит и выдает его потом как что-то меньшее MaxInt. Можно ли решить проблему, не прибегая к массивам и long integer''ам? (это не прихоть, мне ее так задали) Заранее благодарен.
Ответ: Одно из простейших решений:
1) работать с числами Extended (только цифры после запятой не выводить),
2) вводить как String, а ошибки отлавливать ПОТОМ, после после нажатия ENTER и вызова VAL(S, e, code).
3) если код преобразования нормальный, то можно проверить на принадлежность допустимому диапазону, отсутствия дробной части (любой ввод разрешен), ...
|
1432.
PLEXus
(17.10.2007 16:37)
0
Здрасьте !!!
помогите пожалуйста мне
у меня такая задача над которой бьюсь уже неделю и никак не могу решить.
Мне надо написать программу которая считывает заданный год и формирует для него календарь
если кто сможет помочь
wqw@ok.kz мой E-mail
заранее спасибо
Ответ: Писал я программу, которая определяет день недели по дате. На ее основе можно сделать.
А к какому сроку надо? Ближайшие 1 - 3 дня жутко заняты: мы проводим международную конференцию, а за нее отвечаю... Сейчас самая моя работа
|
1431.
Александр
(17.10.2007 15:08)
0
Почеиу Паскаль создаёт файлы большими буквами?
rewrite (g,''c:/index.php'');
А он создаёт INDEX.PHP . Мне это надо из-за проблем с хостером
Ответ: Хм.... Это проблема заключается в том, что создается DOS-овский файл.
Сегодня вечерком подумаю. Конечно, самое простой совет - переходите на Free Pascal, там можно создать консольное.
Варианты есть в голове, но надо проверить
|
1430.
Marazm
(15.10.2007 18:10)
0
Здравствуйте! Хотел бы узнать: есть ли у Turbo Pascal возможности для отправки электронной почты, поддержки FTP-протоколов и т.д. Интересно бы было написать программу отправки электронной почты на Паскале:)
Ответ: Разработка компилятора и среды разработки программ Паскаль, о которой Вы наверно ведете речь, завершилась в 1983 (было еще кое-что доделано в 1992) году. В это время они (Borland) уже создали Delphi и туда все новое вкладывали. По этой причине ПРЯМЫХ средств для работы с почтой нет. Но у BP.EXE заложена возможность работы с DLL (динамически подключаемыми библиотеками). Так что возможность такая имеется.
Есть еще версия BPW.EXE (Borland Pascal for Windows), но там никаких визуальных средств разработки - все надо писать ручками. Дело для мазохистов, хотя следует признать, что сделал это (не для сети, правда) не без пользы для себя :))
По этим всем причинам, если хотите не платить за Borland Delphi, то можно писать в бесплатном Turbo Delphi, или, еще лучше, во Free Pascal - это современный Паскаль, у которого есть все современное. Он еще развивается и все лучшее учитывает.
Во Free Pascal есть и среда для разработки программ, аналогичная Delphi - проект Lazarus.
ЗЫ: и еще Borland Pascal создаст DOS-овское приложение, а Free Pascal в аналогичном случае - консольное. По этой причине следует ожидать более быстрой работы программы, созданной во Free Pascal
|
1429.
Вася
(14.10.2007 13:57)
0
Помаги. Как мне в Паскали переключить на русский язык, для поиснения??? А вобше возможно это???
Ответ: Конечно возможно!
Был такой совет в этой гостевой 2007-08-24 10:34:58
incognito http://www.stuff.xost.ru
dics писал:
Здаравствуйте!Подскажите как писать по русски в Turbo Pascal 7.0,а то у меня
только по английски пишет.
----------------------
зайди на http://www.stuff.xost.ru/pages/soft/dev.shtml у меня там специально для
этого патч написан, вручную ничего делать чтоб не надо было :)
А я сделал так: изменил в реестре:
;[HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlKeyboardLayoutDosKeybCodes]
;"00000409"="ru"
И, возможно, понадобиться - у меня не понадобилось
в файле autoexec.nt, расположенном в Winntsystem32, добавьте строку
;lh %SystemRoot%system32kb16.com ru
|
|
|
|
