+ Ответить в теме
Страница 1 из 2 1 2 ПоследняяПоследняя
Показано с 1 по 20 из 27

Тема: помогите решить задачи в Pascal. Срочно

  1. #1
    Новичок Евгешка кто это?
    Регистрация
    20.10.2009
    Возраст
    32
    Сообщений
    1
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    Exclamation помогите решить задачи в Pascal. Срочно

    №1.Вычислить длину окружности, площадь круга и объём шара одного и того же заданного радиуса.
    №2.Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N).

  2. #2
    Мастер Paralax кто это? Аватар для Paralax
    Регистрация
    16.10.2006
    Сообщений
    871
    Поблагодарил(а)
    215
    Получено благодарностей: 298 (сообщений: 178).

    По умолчанию

    1 задача

    Код:
    uses Crt;
    var R,Pi:real;
    
    begin
     ClrScr;
     Pi := 3.141592653;
     Write('PadNyc?');
     ReadLn(R);
     WriteLn('Dlina okrujnosti -',2*Pi*R:10:4);
     WriteLn('Ploschad okruj -',Pi*R*R:10:4);
     WriteLn('Shar -',(4/3)*Pi*R*R*R:10:4);
    end.
    2 задача

    Код:
    uses Crt;
    
    const N = 10;
    
    var  A :array [1..N] of integer;
         i :integer;
         Neg,Pos,K1,K2 :integer;
    
    begin
     ClrScr;
     Randomize;
     for i:=1 to N do
       begin
          A[i]:=Random(11)-5; {-5 to 5}
          write(A[i],' ');
       end;
       WriteLN;
    
     Neg:=1; Pos:=0; K1:=0; K2:=0;
     for i:=1 to N do
       begin
            if A[i]>=0 then
              begin
                Pos:= Pos + A[i];
                inc(K1)
              end
            else
              begin
                Neg:= Neg * A[i];
                inc(K2);
              end;
    
       end;
    
     WriteLn('Positive',Pos:15,K1:5);
     WriteLn('Negative',Neg:15,K2:5);
    end.
    Последний раз редактировалось Paralax; 31.10.2009 в 11:19.

  3. 1 пользователь сказал cпасибо Paralax за это полезное сообщение:

    rr3 (04.11.2009)

  4. #3
    Новичок надежда2 кто это?
    Регистрация
    12.02.2010
    Возраст
    30
    Сообщений
    2
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    найти лучший результат в забеге на 100 м трёх спортсменов

    Добавлено через 4 минуты
    найти лучший результат в забеге на 100 м трёх спортсменов

    Добавлено через 14 минут
    найти лучший результат в забеге на 100 м трёх спортсменов
    Последний раз редактировалось надежда2; 12.02.2010 в 03:12. Причина: Добавлено сообщение

  5. #4
    Новичок максимилианус кто это?
    Регистрация
    11.03.2010
    Возраст
    33
    Сообщений
    2
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию Массив

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

  6. #5
    Юзер v_b кто это?
    Регистрация
    15.02.2007
    Сообщений
    185
    Поблагодарил(а)
    134
    Получено благодарностей: 51 (сообщений: 37).

    По умолчанию массив

    Код:
    var
    i:integer;
    p:real;
    a:array [1..10] of real;
     
    begin
    writeln('vvedite massiv');
    for i:=1 to 10 do
    readln(a[i]);
     
    for i:=1 to 5 do
    begin
     p:=a[i];
     a[i]:=a[11-i];
     a[11-i]:=p;
    end;
     
    for i:=1 to 10 do
    write(a[i]:2:0);
    readln;
    end.
    наверно так

  7. #6
    Новичок максимилианус кто это?
    Регистрация
    11.03.2010
    Возраст
    33
    Сообщений
    2
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    огромное спасибо кстати,помогите еще решить,Дан массив А состоящий из 20 целых чисел первое на возрастание,второе на убывание

    Добавлено через 3 минуты
    и вот еще одна,Напишите программу которая организует решение в массиве 15 различных введенных с клавиатуры целых чисел.После этого содержимое массива сортируется по возрастанию

    Добавлено через 15 минут
    вот еще одна,Напишите программу которая организует решение в массиве 15 различных введенных с клавиатуры целых чисел.После этого содержимое массива сортируется по возрастанию
    Последний раз редактировалось максимилианус; 11.03.2010 в 22:29. Причина: Добавлено сообщение

  8. #7
    Новичок ivan_chornovus кто это?
    Регистрация
    05.05.2010
    Возраст
    31
    Сообщений
    1
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    Помогите решить програму. Дано текст. Ясли певим символом тексту эсть цифра,то все цифры, што входять в текст, заменить символом *

  9. #8
    Дед щукарь Berkut_mk Разбег по полосе Berkut_mk Разбег по полосе Berkut_mk Разбег по полосе Berkut_mk Разбег по полосе Berkut_mk Разбег по полосе Berkut_mk Разбег по полосе Berkut_mk Разбег по полосе Berkut_mk Разбег по полосе Berkut_mk Разбег по полосе Berkut_mk Разбег по полосе Berkut_mk Разбег по полосе Аватар для Berkut_mk
    Регистрация
    07.08.2006
    Возраст
    41
    Сообщений
    1,967
    Поблагодарил(а)
    2,138
    Получено благодарностей: 800 (сообщений: 490).

    По умолчанию

    Цитата Сообщение от ivan_chornovus Посмотреть сообщение
    Помогите решить програму. Дано текст. Ясли певим символом тексту эсть цифра,то все цифры, што входять в текст, заменить символом *
    Вот как ты написал задание - так тебе решение коряво и напишут.
    Рыбалка - это диагноз: почти не лечится и очень заразно

  10. #9
    Джедай Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Аватар для Castor
    Регистрация
    17.06.2007
    Адрес
    Тикси
    Сообщений
    3,744
    Поблагодарил(а)
    897
    Получено благодарностей: 1,349 (сообщений: 867).

    По умолчанию

    Цитата Сообщение от ivan_chornovus Посмотреть сообщение
    Помогите решить програму. Дано текст. Ясли певим символом тексту эсть цифра,то все цифры, што входять в текст, заменить символом *
    Код:
    sed -e 's/^[0-9].*/\*/g'
    С тебя пиво. Если в Паскале напишу, то ваще не расплатишься.
    Последний раз редактировалось Castor; 07.05.2010 в 11:25.
    Это призыв к насилию, разжиганию межнациональной розни и другим аморальным действиям.

  11. #10
    Новичок pycckuu кто это?
    Регистрация
    05.12.2010
    Возраст
    30
    Сообщений
    1
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    ПОМОГИТЕ ПОЖАЛУЙСТА!!! СРОЧНО НАДО! СПАСИБО ЗАРАНЕЕ.
    Задан одномерный массив C(N) (N<=60). Вычислить сумму положительных элементов, этой суммой заменить максимальный элемент и последний элемент массива. Массив С напечатать.

  12. #11
    Джедай Пиратка Лечу Пиратка Лечу Пиратка Лечу Пиратка Лечу Пиратка Лечу Пиратка Лечу Пиратка Лечу Пиратка Лечу Пиратка Лечу Пиратка Лечу Пиратка Лечу Аватар для Пиратка
    Регистрация
    18.03.2006
    Адрес
    Москва
    Возраст
    35
    Сообщений
    3,278
    Поблагодарил(а)
    437
    Получено благодарностей: 569 (сообщений: 296).

    По умолчанию

    ой............не туда зашла-ушла

  13. #12
    Новичок Денс кто это?
    Регистрация
    04.12.2011
    Возраст
    30
    Сообщений
    2
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    плис помогите оч срочно вот задачи на паскаль,или мя с универа вигонят вот фотографии заданий,нада разрешить до вторника етого
    Нажмите на изображение для увеличения
Название: 1.jpg
Просмотров: 20
Размер:	238.1 Кб
ID:	310469Нажмите на изображение для увеличения
Название: 2.jpg
Просмотров: 17
Размер:	307.0 Кб
ID:	310470Нажмите на изображение для увеличения
Название: 3.jpg
Просмотров: 13
Размер:	232.0 Кб
ID:	310471Нажмите на изображение для увеличения
Название: 4.jpg
Просмотров: 13
Размер:	252.9 Кб
ID:	310472

  14. #13
    Новичок Денс кто это?
    Регистрация
    04.12.2011
    Возраст
    30
    Сообщений
    2
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    плис помогите оч срочно вот задачи на паскаль,или мя с универа вигонят вот фотографии заданий,нада разрешить до вторника етого
    Нажмите на изображение для увеличения
Название: 1.jpg
Просмотров: 7
Размер:	238.1 Кб
ID:	310473Нажмите на изображение для увеличения
Название: 2.jpg
Просмотров: 9
Размер:	307.0 Кб
ID:	310474Нажмите на изображение для увеличения
Название: 3.jpg
Просмотров: 7
Размер:	232.0 Кб
ID:	310475Нажмите на изображение для увеличения
Название: 4.jpg
Просмотров: 5
Размер:	252.9 Кб
ID:	310476
    Последний раз редактировалось Денс; 04.12.2011 в 17:48. Причина: Добавлено сообщение

  15. #14
    Диванный аналитик Тычоблин Лечу Тычоблин Лечу Тычоблин Лечу Тычоблин Лечу Тычоблин Лечу Тычоблин Лечу Тычоблин Лечу Тычоблин Лечу Тычоблин Лечу Тычоблин Лечу Тычоблин Лечу Аватар для Тычоблин
    Регистрация
    15.05.2010
    Сообщений
    6,290
    Поблагодарил(а)
    4,829
    Получено благодарностей: 2,152 (сообщений: 1,393).

    По умолчанию

    Цитата Сообщение от Денс Посмотреть сообщение
    плис помогите оч срочно вот задачи на паскаль,или мя с универа вигонят вот фотографии заданий,нада разрешить до вторника етого..
    Зачем Вам этот универ? Такие мучения (образовательные пытки) терпите... Всё равно диплом не пригодится.
    "– Это водка? – слабо спросила Маргарита. Кот подпрыгнул на стуле от обиды. – Помилуйте, королева, – прохрипел он, – разве я позволил бы себе налить даме водки? Это чистый спирт!" (с)

  16. #15
    Новичок fasgen кто это?
    Регистрация
    14.12.2011
    Сообщений
    1
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

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

    1) Приведите 5 задач, которые можно решать с помощью банков данных. Почему эти задачи лучше решать с их помощью?

    2) Даты вводятся в соответствии с шаблоном: две цифры, название месяца (янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек), две цифры года двадцатого века. Запишите выражение, истинное, если первая из двух введенных дат больше второй. Опишите процедуры и функции, которые будете использовать при решении задачи.

  17. #16
    Новичок Никита Стрелец кто это?
    Регистрация
    06.12.2012
    Возраст
    30
    Сообщений
    1
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    1)преобразовать массив Y в массив V по формуле Vj=sin Yj(j=1,9)
    2)определить номер первого положительного элемента массива V и произведение следующих за ним элементов.Оформить подпрограмму выполнения над массивом A(a1,a2,...an)указанных действий.
    3)Преобразоватьодномерный массив v в двумерный w размером 3на3 разрезав массив условно на три поломки и поместив затем под первой полоской вторую и под второй третью.использовать при этом оформленную подпрограмму преобразования одномерного массива А размером 9 в бинарный 3на3.
    4)заменить столбец с наименьшим элементом нулями.Оформить подпрограмму выполнения над массивом В размером m * n указанных действий
    помогите решить кто сможет!!!!!!!!!!!!!!!!!!срочно!!!!!!!!!!!!!!!!!!!! !!!!

  18. #17
    Новичок kabalvlad кто это?
    Регистрация
    15.12.2012
    Возраст
    33
    Сообщений
    1
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    Дан массив целых чисел. Составить новый массив, элементами которого являются числа-перевертыши исходного массива (типо 345 -543 или 1000 -0001 вод чисел случайно через рандом ) . Полученные числа - перевертыша оформить в виде функции пользователя! срочно плиз горит курсач

  19. #18
    Новичок Jokermitya кто это?
    Регистрация
    08.03.2013
    Возраст
    28
    Сообщений
    1
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    Помогите решить задачи в Паскале!
    1. Дано чотири числа b,c,d,e.Перозначити ці числа так,щоб b=max(b,c,d,e),c-min(b,c,d,e) з чисел що залишилися,щоб b було б менше за e.
    2. Відомо координати двох точок A(x1,x2) і B(x2,y2)?а також координати центра O(x,y) кола радіуса R.Якщо точки лежать всередині кола,то знайти периметр трикутника ABO,інакше знайти периметр трикутника,який утворений заданими точкамиі початком координат.
    3. За введеним номером пари (від 1 до 3) визначити назву пари у власній групі в понеділок.

  20. #19
    Юзер v_b кто это?
    Регистрация
    15.02.2007
    Сообщений
    185
    Поблагодарил(а)
    134
    Получено благодарностей: 51 (сообщений: 37).

    По умолчанию

    Цитата Сообщение от Jokermitya Посмотреть сообщение
    Помогите решить задачи в Паскале!
    1. Дано чотири числа b,c,d,e.Перозначити ці числа так,щоб b=max(b,c,d,e),c-min(b,c,d,e) з чисел що залишилися,щоб b було б менше за e.
    2. Відомо координати двох точок A(x1,x2) і B(x2,y2)?а також координати центра O(x,y) кола радіуса R.Якщо точки лежать всередині кола,то знайти периметр трикутника ABO,інакше знайти периметр трикутника,який утворений заданими точкамиі початком координат.
    3. За введеним номером пари (від 1 до 3) визначити назву пари у власній групі в понеділок.
    Значить слухай хлопець, спочатку береш методичку свого викладача, а потім читаєш від початку до кінця і все сам робиш. удачі хлопець, будь молодцем.

  21. 1 пользователь сказал cпасибо v_b за это полезное сообщение:

    Berkut_mk (11.03.2013)

  22. #20
    Новичок praktikant_ya кто это?
    Регистрация
    10.09.2013
    Возраст
    35
    Сообщений
    1
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

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

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

+ Ответить в теме
Страница 1 из 2 1 2 ПоследняяПоследняя

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

     

Похожие темы

  1. помогите решить задачу!
    от Наташа_18 в разделе Языки
    Ответов: 5
    Последнее сообщение: 01.11.2010, 20:22
  2. Помогите пож-та с задачей Pascal
    от Annabelle в разделе Delphi/Pascal
    Ответов: 3
    Последнее сообщение: 30.04.2010, 18:38
  3. помогите решить задачу
    от олеся благодарная в разделе Delphi/Pascal
    Ответов: 0
    Последнее сообщение: 28.04.2010, 15:27
  4. помогите решить 2-е задачи
    от x9aos3 в разделе Delphi/Pascal
    Ответов: 8
    Последнее сообщение: 30.12.2009, 16:36
  5. ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!!!!
    от Firma4 в разделе Языки
    Ответов: 2
    Последнее сообщение: 30.05.2009, 14:19

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
Рейтинг@Mail.ru
Администрация сайта не выражает согласия
с высказыванием участников форума и не несет
ответственности за их содержание.

Копирование любого материала возможно только
при наличии ссылки на сайт.