Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal В полученном векторе заменить первый положительный элемент на минимальное значение элемента массива Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением. В полученном векторе заменить первый положительный элемент на минимальное значение элемента массива.Если можно через процедуры. Зарание спасибо. Добавлено через 14 часов 9 минут дайте ответ,плиз) https://www.cyberforum.ru/ turbo-pascal/ thread1126286.html	Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением. В полученном векторе найдите количество чисел кратных К Turbo Pascal переделайте ее пожалуйста) uses crt; const nmax=50; type mas=array of integer; procedure sort(var x:mas;l,r:integer); var i,j,x1,y1,m: integer; begin i:=l; j:=r;
Turbo Pascal Отсортировать строки файла по длине слова https://www.cyberforum.ru/ turbo-pascal/ thread1126171.html дан текстовый файл. в первом столбце порядковый номер от 1 до 10. во втором столбце по одному слову разной длины. надо отсортировать по длине слова.	Turbo Pascal Описать функцию Arctg1(x,n) вещественного типа Описать функцию Arctg1(x,n) вещественного типа (параметры x, eps — вещественные, \|x\| < 1, eps > 0), находящую приближенное значение функции arctg(x): . В сумме учитывать все слагаемые, большие по модулю eps. С помощью Arctg1 найти приближенное значение arctg(x) для данного x при шести данных значениях eps. https://www.cyberforum.ru/ turbo-pascal/ thread1126162.html
Turbo Pascal Найти самого старшего и самого младшего участника соревнований Помогите ,пожалуйста)) Имеются два массива: в первом – фамилии участников соревнований, во втором – их возраст. Найти самого старшего и самого младшего участника.	Turbo Pascal Международная АТС. Найти общую стоимость разговоров по каждому городу https://www.cyberforum.ru/ turbo-pascal/ thread1126013.html На международной АТС информация о разговорах содержит: название города, время разговора(в минутах), тариф. Данные должны хранится в текстовом файле. Предусмотреть возможность вывести в новый текстовый файл: 1. Общую стоимость разговоров по каждому городу 2. Время разговора по вводимому пользователем городу 3. Название города, в котором минимальный тариф 4. Количество городов, тариф которых...
Turbo Pascal Вычесть из матрицы А единичную матрицу program vichitanie; const n=50; type Matrix=array of real; {Матрица} var A:Matrix; C:Matrix; https://www.cyberforum.ru/ turbo-pascal/ thread1126012.html	Turbo Pascal Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле: аi =2* аi-1 + i , где а1 = 1, i=2,3,4,5, …
Turbo Pascal Каким методом нужно считать коэффициенты полинома https://www.cyberforum.ru/ turbo-pascal/ thread1125961.html подскажите пожалуйста, каким методом нужно считать коэффициенты? как составить программу для их вычисления? Вложение удалено!	Turbo Pascal Написать программу,обновляющую файл о сдаче экзаменов на основе файла о пересдаче https://www.cyberforum.ru/ turbo-pascal/ thread1125879.html Помогите пожалуйста составить программы: 1)Имеется внешний файл,содержащий сведения о студентах первого курса:ФИО,номер группы,название экзаменов,оценки.Написать программу,обновляющую файл о сдаче экзаменов на основе файла о пересдаче.
Turbo Pascal Оформить программу с использованием модулей. Организовать движение звезд В общем, на скрине всё написано. Спасибо!	Turbo Pascal Вычислить значение выражения, используя оператор case https://www.cyberforum.ru/ turbo-pascal/ thread1125825.html Здравствуйте. Просьба помочь с решением задачи.

CodeR

Фрилансер

3418 / 2815 / 3000

Регистрация: 08.02.2012

Сообщений: 8,587

Записей в блоге: 1

22.03.2014, 13:13

Заменить первый отрицательный элемент на максимальное значение элемента массива - Turbo Pascal - Ответ 5934713

22.03.2014, 13:13. Показов 1358. Ответов 2

Метки (Все метки)

Сообщение было отмечено make7Dast как решение

Решение

Pascal

Type mas=array[1..100] of integer;
Var A:mas;
    i,n,imax,ik:integer;
Procedure Poisk(A:mas;n:integer;Var ik:integer);
Var i:integer;
Begin
    ik:=0;
    For i:=1 to n do
     if A[i]<0 then 
     Begin
       ik:=i;
       break;
     End;
End;
Begin
    write('n: ');readln(n);
    writeln('Исходный массив');
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      if i=1 then imax:=1
       else if A[i]>A[imax] then imax:=i;
      write(A[i]:4);
    End;
    Poisk(A,n,ik);
    writeln;
    if ik=0 then writeln('Нету отрицательных элементов')
    else
    Begin  
      writeln('Преобразованный массив');
      A[ik]:=A[imax];
      For i:=1 to n do
       write(A[i]:4);
    End;
    readln;
End.

Вернуться к обсуждению:
Заменить первый отрицательный элемент на максимальное значение элемента массива Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

22.03.2014, 13:13

Готовые ответы и решения:

Заменить первый отрицательный элемент на максимальное значение элемента массива
Доброго всем времени суток. Подскажите пожалуйста. Дано условие задачи: заменить первый...

Заменить первый отрицательный элемент на максимальное значение элемента массива A(N)
Заменить первый отрицательный элемент на максимальное значение элемента массива A(N). З.Ы....

Заменить первый отрицательный элемент на максимальное значение элемента массива A (N)
Заменить первый отрицательный элемент на максимальное значение элемента массива A(N). сделал...

Заменить первый отрицательный элемент на максимальное значение элемента массива
Заменить первый отрицательный элемент на максимальное значение элемента массива A(N). В массиве...

	22.03.2014, 13:13

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

22.03.2014, 13:13

Помогаю со студенческими работами здесь

Бинарный поиск. Заменить первый отрицательный элемент на максимальное значение элемента массива
1).Заменить первый отрицательный элемент на максимальное значение элемента массива A(N).

Заменить первый положительный элемент на минимальное значение элемента массива A(N)
Заменить первый положительный элемент на минимальное значение элемента массива A(N).

Заменить первый положительный элемент на минимальное значение элемента массива
Заменить первый положительный элемент на минимальное значение элемента массива A(N).

Заменить первый положительный элемент на минимальное значение элемента массива A(N)
Заменить первый положительный элемент на минимальное значение элемента массива A(N)

Наверх