Четверг, 26.06.2025
Мой сайт
Меню сайта
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Гостевая книга [ Добавить запись ]

Страницы: « 1 2 ... 6 7 8 9 10 ... 123 124 »
Показано 106-120 из 1848 сообщений
1743. Иван   (14.04.2009 14:30)
0  
Хочу выразить благодарность создателям сайта, и тем кто писал программы в разделе "программы" очень помогают.

1742. вовка   (12.04.2009 17:29)
0  
Здраствуйте, помогите пожалуйста с задачкой.
Дано трёхзначное число переставить местами вторую и третью цыфры.
ПОЖАЛУЙСТА!!!!!!!!!!!
Ответ: Вот двумя способами:
http://borlpasc.narod.ru/Boris/VOV.PAS

1741. Серега   (11.04.2009 12:46)
0  
Здраствуйте, опять нужна ваша помощь... Дали новую лабораторную работу (надеюсь последнюю)выглядит она так

Заполнение случайными значениями из диапазона [-50;50]. Размеры массива M или/и N взять постоянными, равными целым числам от 5 до 10. Требуется выводить на экран массив до сортировки (исходный массив) и после сортировки (сортировачный массив).
Сама Задача:
Дана целочисленная прямоугольная матрица размера M*N. Отсортировать каждый столбец матрицы с чётным номером по неубыванию, а каждую строку с нечетным номером-по невозрастанию. Метод сортировки-пузырьковая. дано целое K. Найти в каждой строке матрицы координаты элемента, равного K (если он там есть). Метод поиска-последовательный.

Также надо саму программу + блок-схему. Прошу помочь с этим заданием. Пишите на мыло(вашу работу готов вознаградить, да и задание не легкое(по моему мнению))
Спасибо!

1740. Анатолий   (11.04.2009 05:05)
0  
http://borlpasc.narod.ru/Boris/ANAT01_N.PAS Борис что т не загнружается скажите еще раз адрес ссылки
Ответ: http://borlpasc.narod.ru/Boris/ANAT01.PAS
Да, извините, вот правильный адрес первой задачи

1739. Анатолий   (10.04.2009 19:05)
0  
три однотипных спасательных катера находящихся в акватории в точках с координатами ( X0,Y0) i=1,2,3, получили сигнал SOS от судна находящегося в той же акватории в точке с координатами (X0,Y0). определите какой из катеров быстрей других сможет оказать помощь?

1738. Анатолий   (10.04.2009 19:03)
0  
Вычислите значения функции z = (a + b + ci ) / i, если a изменяется от 0 с шагом 1,
b изменяется от 5 с шагом 1, ci является элементом массива C(N) . При этом a и b
изменяются одновременно с i.
Ответ: Посмотрите
http://borlpasc.narod.ru/Boris/ANAT01_N.PAS

1737. Анатолий   (09.04.2009 18:48)
0  
Здравствуйте Борис! не получается сделать лабораторную название ее таково: алгоритмы реализуемые с помошью циклов. само задание 1)вычислить значение функции Z=(A+B+Ci)/i, если А изменяется от 0 с шагом 1, B изменяется от 5 с шагом 1, Ci является элементом массива C(N). при этом A и B изменяются одновременно с i.пояснение Сi- це итое.
2)три однотипных спасательных катера, находящиеся в акватории в точках с координатами (Xi,Yi), i=1,2,3, получили сигнал SOS от судна находящегося в той же акватории в точке с координатами (X0,Y0). Определитеб какой из катеров быстрей других сможет оказать помощь?
первое задание необходимо мне сдать вобяз. посмотрите пожалуйста Борис.

1736. Сергей   (08.04.2009 21:53)
0  
большое спасибо..извините если загрузил вас

1735. Сергей   (08.04.2009 19:49)
0  
непонятные слова наблюдаются после слова Begin и writeln в {} скобках
Ответ: Тогда это текст на русском
Вот текст программы:

CONST
N = 40;
m = 100;
m1 = m div 2;
VAR
ar: array[1..N] of real;
i, min, max: Integer;
BEGIN
{Заполним случайными числами от -50 до 49}
Randomize;
for i:=1 to N do ar[i] := (random - 0.5)*m;

for i:=1 to N do write(ar[i]:10:4);
WriteLn;

{Индексы минимального и максимального элементов}
min := 1; max := 1;
for i:=1 to N do begin
if ar[i] < ar[min] then min := i;
if ar[i] > ar[max] then max := i;
end;
WriteLn(''Минимальный элемент: индекс '',min,'' значение:'',ar[min]:10:4);
WriteLn(''Максимальный элемент: индекс '',max,'' значение:'',ar[max]:10:4);
WriteLn(''Разность: '', ar[max] - ar[min]:10:4);
END.

1734. Сергей   (07.04.2009 22:02)
0  
Большое спасибо за ценную информацию, только непонятно одно, что это занепонятные знаки в программе?
Ответ: Вероятно, почему-то не отображаются русские буквы?
Я пересылал на baffal этот-же адрес. Вы не получали?
--
Только что скачал файл - у меня все отображается нормально. Поясните, где значки не понятные?

1733. Сергей   (06.04.2009 23:07)
0  
Да, все устраивает, все отлично. Еще раз большое спасибо! Всё-таки номер кошелька можете скинуть на мыло, хоть пошлю немного, но все-таки вам будет приятно, а то как-то не удобно, Вы старались, потратили своё время, хотя наверняка и без меня много работы...

1732. Сергей   (06.04.2009 22:21)
0  
Очень нужна помощь..в TurboPascal нужно составить программу:
Дано n вещественных чисел..Нужно найти разность между максимальным и минимальным из них..
Горю!!!!Заранее спс
Ответ: http://borlpasc.narod.ru/Boris/SERG_N.PAS
Вот тут решение этой несложной задачи :)

1731. Сергей   (05.04.2009 21:45)
0  
Спасибо большое за работу. Выручили просто.
Скажите номер веб-кошелька, хоть немнога,но положу,так как любой труд должен вознаграждаться... так сказать на развитие сайта! И если не возражаете, то и в дальнейшем буду обрашаться?8)
Ответ: Конечно, обращайтесь. В этот раз попали неудачно - срочной работы было больше крыши. В следующий раз постараюсь пошустрее.
Да, самое главное, блок-схема устраивает? В нее, для сокращения объема я не включал блоки отображения исходной матрицы

1730. Сергей   (05.04.2009 19:57)
0  
Всем привет. Помогли найти програму по заданию:" Получить новую матрицу путем вычитания всех элементов данной матрицы из её наибольшего по модулю элемента" (http://borlpasc.narod.ru/Boris/SERG_M.PAS)

Нехватает блок-схемы, если кто-нибудь знает как сделать, или уже иммется схема, то прошу поделиться. Заранее спасибо!!!Скора надо будет уже сдавать... прошу помочь.
Ответ: Посмотрите здесь:
http://borlpasc.narod.ru/Boris/SERG_M.doc

1729. BaDos   (31.03.2009 22:57)
0  
Здравствуйте!
Предлагаю обмен ссылками.
http://bados.in.ua
http://bados.in.ua/forum/


Имя *:
Email *:
WWW:
Код *:
Поиск
Друзья сайта
  • Создать сайт
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Все проекты компании
  • Copyright MyCorp © 2025
    Конструктор сайтовuCoz