Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.10.2021, 11:03   #1
wolf2783
Пользователь
 
Аватар для wolf2783
 
Регистрация: 06.10.2021
Сообщений: 15
Восклицание Даны целое число n и вектор X с элементом n:

Даны целое число n и вектор X с элементом n:

Составить блок-схему получения и печти нового вектора Y.
И написать программу на языке Turbo Pascal. элементы которого получаются из вектора, приписывая в нем первому элементу значение величайшего элемента вектора. А величайшему элементу- значение первого элемента.
wolf2783 вне форума Ответить с цитированием
Старый 06.10.2021, 11:26   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

"Величайшим" может быть только король Имеется в виду "наибольший". Но если не россиянин, то простительно. Ну и где слабые попытки самому всё это настрогать?
Ну если совсем никак - вернусь - напишу. Люблю помогать двоечникам
Х предполагается вещественным?
Цитата:
приписывая в нем первому элементу
- имеется в виду прибавление к элементу наибольшего значения ?
Код:
program NiFigaSe
const n=10 ;
var 
  i,im: integer ;
  tmp: real ;
  X,Y: array[1..10] of real ;
begin
   im := 1 ;
   tmp := X[1] ;
   for i := 2 to 10 do
      if X[i] > tmp then
          begin
             tmp := X[i] ;
             im := i
          end ;
   for i := 1 to 10 do
       if (i <> im) then  Y[i] := X[i] + tmp else Y[1] := X[i]
end.
Заполнение массива и вывод предоставляю самому двоечнику.

Последний раз редактировалось digitalis; 06.10.2021 в 11:42.
digitalis вне форума Ответить с цитированием
Старый 06.10.2021, 11:40   #3
wolf2783
Пользователь
 
Аватар для wolf2783
 
Регистрация: 06.10.2021
Сообщений: 15
По умолчанию

digitalis, не россиянин))), спасибо что откликнулся. Х предполагается вещественным? -ответ да.

Последний раз редактировалось wolf2783; 06.10.2021 в 15:53.
wolf2783 вне форума Ответить с цитированием
Старый 06.10.2021, 11:45   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

Цитата:
Сообщение от wolf2783 Посмотреть сообщение
digitalis, Х предполагается вещественным? - ответ да. только целое число
Вот этого я не понял. "Да, мужчина. Только женщина". Таки X,Y - целые или вещественные ?
digitalis вне форума Ответить с цитированием
Старый 06.10.2021, 11:50   #5
wolf2783
Пользователь
 
Аватар для wolf2783
 
Регистрация: 06.10.2021
Сообщений: 15
По умолчанию

digitalis, X,Y вещественные
wolf2783 вне форума Ответить с цитированием
Старый 06.10.2021, 12:42   #6
wolf2783
Пользователь
 
Аватар для wolf2783
 
Регистрация: 06.10.2021
Сообщений: 15
По умолчанию

digitalis, все работает

Последний раз редактировалось wolf2783; 06.10.2021 в 15:54.
wolf2783 вне форума Ответить с цитированием
Старый 06.10.2021, 14:51   #7
wolf2783
Пользователь
 
Аватар для wolf2783
 
Регистрация: 06.10.2021
Сообщений: 15
По умолчанию

digitalis,

Код:
program number1;
uses crt;
var 
  i,im,n: integer ;
  tmp: real ;
  X,Y: array[1..10] of real ;
begin
clrscr;
   Write('Enter n :');
   readln(n);
   for i:=1 to n do
    begin
     Write('X[',i,'] = ');
     readln(X[i]);
    end;
   im := 1 ;
   tmp := X[1] ;
   for i := 2 to n do
      if X[i] > tmp then
          begin
             tmp := X[i] ;
             im := i;
          end ;
    Y[1] := X[im];
    for i:= 2 to n do 
     begin
      if(i = im) then Y[i] := X[1]
      else Y[i] :=X[i];
     end;
    for i:=1 to n do
      Writeln(Y[i] :1 :0);
end.
все работает Спасибо, что выручил
wolf2783 вне форума Ответить с цитированием
Старый 06.10.2021, 19:54   #8
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

Как буквоед, замечу: для вещественных формат :1 :0 как-то не того, будет выводить только целую часть. Не жалей цифр, выводи хотя бы :12 :6

Последний раз редактировалось digitalis; 06.10.2021 в 19:57.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны целое число т и вещественные массивы The_Forgotten Помощь студентам 0 20.09.2020 18:20
Дан вещественный вектор X (x1, x2, …, xN), где N – целое положительное число... testtest01 Паскаль, Turbo Pascal, PascalABC.NET 0 08.06.2012 19:43
Даны последовательность из n целых чисел и целое число a. Solnze2 C# (си шарп) 1 06.06.2011 10:31