Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Даны результаты аттестации группы по нескольким предметам Даны результаты аттестации группы по нескольким предметам. Запрограммировать ввод и удаление результатов их просмотров, поиск результатов по Ф.И.О,расчёт и ввод итогов в порядке убывания средних балов. https://www.cyberforum.ru/ turbo-pascal/ thread2576294.html	Производить ввод и редактирование данных с сохранением в файле Turbo Pascal По данным о наименовании товара, его цене, и кол-ву, разработать проект, позволяющий: 1)Производить ввод и редактирование данных с сохранением в файле. 2)Осуществлять поиск данных по наименованию товара. 3)Расчёт стоимости каждого товара и итоговой суммы.
Turbo Pascal Известны Ф.И.О участников и их результаты по прыжкам в высоту https://www.cyberforum.ru/ turbo-pascal/ thread2576077.html Известны Ф.И.О участников и их результаты по прыжкам в высоту. Запрограммировать добавления участника и его результаты, удаления, просмотр всей таблицы в отсортированном виде(по убыванию результатов),поиск результата по фамилии и фамилий по результату. Работу надо сделать в turbo pascal, пример тоже в нём сделан. По примеру надо изменить там результаты, на результат прыжка в высоту и убрать...	Turbo Pascal Векторы с наибольшем модулем перенести в конец файла Есть вот такое задание - дан файл компоненты которого являются n мерные векторы. Векторы с наибольшем модулем перенести в конец файла. Нужен код программы, буду очень благодарен. вот такое должно быть начало кода: uses crt; const n=5; type vect=arrayof integer; f_v=file of vect; Нужно чтобы с типизированными файлами только работал. Ниже код будет на такое задание, но нужно что то по... https://www.cyberforum.ru/ turbo-pascal/ thread2575654.html
Turbo Pascal Структура MARSH Описать структуру с именем MARSH, содержащую следующие поля: - название начального пункта маршрута; - название конечного пункта маршрута; - номер маршрута. Написать программу, выполняющую следующие действия с помощью процедур или функций: - ввод с клавиатуры данных в файл, состоящий из элементов типа\| MARSH; записи должны быть упорядочены по номерам маршрутов; - чтение данных из этого...	Turbo Pascal Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости https://www.cyberforum.ru/ turbo-pascal/ thread2574789.html Даны действительные числа x, y. Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости
Turbo Pascal Составить программу вычисления значения функций https://www.cyberforum.ru/ turbo-pascal/ thread2574786.html	Вывести строку — название соответствующей цифры на русском языке. Turbo Pascal Дано целое число в диапазоне 0 – 9. Вывести строку — название соответствующей цифры на русском языке (0 — "ноль", 1 — "один", 2 — "два", ...). 95
Turbo Pascal Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости. https://www.cyberforum.ru/ turbo-pascal/ thread2574481.html 1. Составить программу вычисления значения функций: y={(1,при х=>0;0,при х<0;) 2. Даны действительные числа x, y. Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости	Turbo Pascal Определить среднюю скорость движения поезда . https://www.cyberforum.ru/ turbo-pascal/ thread2574459.html Составить программу для соответствующего варианта, отладить программу на компьютере и обработать результаты вычислений. Одно и тоже расстояние поезд прошел в одном направлении со скоростью км/час, а в обратном направлении со скоростью км/час. Определить среднюю скорость движения поезда на два расстояния.
Заменить цепочки одинаковых символов, на цепочку, содержащую специальный знак, символ и количество повторений Turbo Pascal Пожалуйста помогите решить эту задачку на паскале Дан текст не более 255 символов. Заменить цепочки, содержащие не менее 4 одинаковых символов, на цепочку, содержащую специальный знак, символ и количество повторений.	Turbo Pascal В чем ошибка Program n1; type F3=record FIO,Obhegitie:string; GodR,GodK:integer; Ocenattestat,Ocenvstyp:array of integer; end; var F1:file of F3; x:F3; i,k,n:integer; https://www.cyberforum.ru/ turbo-pascal/ thread2573764.html

bormant

Модератор

7769 / 4598 / 2823

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

Сообщений: 13,076

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

28.01.2020, 18:49

Переписать положительные элементы целочисленного массива Х[15] в массив У[15] - Turbo Pascal - Ответ 14210290

28.01.2020, 18:49. Показов 1288. Ответов 4

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

Ответ

ValentinNemo,
задание еще проще, и, строго говоря, решение ему не соответствует вот в этой части:

Сообщение от Викочка3115

Незаполненные элементы массива У считать нулевыми. Вывести массивы Х и У на экран.

Pascal

const n=15;
var
  a, b: array [0..n-1] of Integer;
  i, j: Integer;
begin
  Write('x(',n,'): '); 
  for i:=0 to n-1 do begin
    Read(x[i]);
    if x[i]>0 then begin
      y[j]:=x[i]; Inc(j); 
    end;
  end;
  WriteLn('X='); for i:=0 to n-1 do Write(' ',x[i]); WriteLn;
  WriteLn('Y='); for i:=0 to n-1 do Write(' ',y[i]); WriteLn;
end.

Добавлено через 1 минуту
или даже

Pascal

const W=16; n=15;
var
  a, b: array [0..n-1] of Integer;
  i, j: Integer;
begin
  Write('x(',n,'): '); 
  for i:=0 to n-1 do begin
    Read(x[i]);
    if x[i]>0 then begin
      y[j]:=x[i]; Inc(j); 
    end;
  end;
  WriteLn('X' :W,'Y' :W); for i:=0 to n-1 do WriteLn(x[i] :W,y[i] :W);
end.

Вернуться к обсуждению:
Переписать положительные элементы целочисленного массива Х[15] в массив У[15] Turbo Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

28.01.2020, 18:49

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

Переписать положительные элементы целочисленного массива Х[15] в массив У[15]
Переписать положительные элементы целочисленного массива Х в массив У. (Элементы массива Х вводятся...

Переписать элементы целочисленного массива, кратные пяти, подряд в другой массив
применение процедур переписать элементы целостного массиваN(20),кратные пяти,подряд в массив M,а...

Переписать положительные элементы массива X (30) и Y (30) в массив Z
Переписать положительные элементы массива X(30) и Y(30) в массив Z. Заполнение массива Z в...

В массив B переписать положительные элементы массива A(N)
Помогите сделать,буду благодарен! 1) В массив B переписать положительные элементы массива A(N) -...

	28.01.2020, 18:49

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

28.01.2020, 18:49

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

Из массива А в массив В переписать положительные элементы
Сделайте мне пожалуйста задачу дан масив А из10 чисел ,из масива А в масив В положительные...

Переписать в массив Z положительные элементы массива X
например, нам нужно вычислить положительные элементы массива Х, и переписать их в массив Z....

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а...

Переписать положительные элементы массива Y(10) подряд в массив Z
1.2 Переписать положительные элементы массива Y(10) подряд в массив Z.

Наверх