Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Работа с файлами. вот программа program n1; Var f: text; a,b,c,k,s:Integer; Begin Assign(f,'C:\1/flower.in'); Rewrite(f); Readln(a,b,c); a:=Seek(f,0); b:=Seek(f,1); https://www.cyberforum.ru/ pascalabc/ thread395832.html	Pascal ABC Нужно составить не трудную программу, плиз очень нужно.. создать структуру односвязного списка: кольцеобразный список, логический тип поля, обработка односвязного списка: удалить элемент справа. За ранее Большое Спасибо
Pascal ABC Вывести на экран таблицу степеней 2 в степени n 1) Составить программу вывода на экран таблицы степеней 2 в степени n, где 0 меньше или равно n, а n меньше или равно 10 2)Составить программу, определяющую принадлежность точки A(x,y) отрезку AB, если A(x1,x2) и B(x2,y2)- Концы отрезка https://www.cyberforum.ru/ pascalabc/ thread395820.html	Pascal ABC Найти элемент с нулевым значением,и индексы элементов кратных трём Составить программу, которая формирует массив из 16 случайных целых чисел от -20 до 20 и: а) находит элементу с нулевыми значениями; б) находит в этом массиве индексы элементов, значении которых кратны трем. https://www.cyberforum.ru/ pascalabc/ thread395756.html
Определить, пересекаются ли окружности Pascal ABC №1 Ввести координаты центров для двух окружностей и их радиусы. Определить, пересекаются ли окружности. №2 Если сумма трех чисел x, y, z меньше единицы, то наименьшее из трех чисел заменить полусуммой двух других; в противном случае заменить меньшее из x и y полусуммой двух оставшихся значений. №3 Ввести два двузначных числа. Вывести «да», если числа состоят из одинаковых цифр.	Pascal ABC Массивы,составить программу вычисления, W=B+(A/ C+1) https://www.cyberforum.ru/ pascalabc/ thread395731.html Составить программу вычисления, W=B+(A/ C+1) A - сумма положительных элементов массива; B - наименьший элемент массива; C - произведение элементов массива с нечетными номерами.
Pascal ABC Вычислить произведение положительных элементов матрицы [20;20], расположенных на главной диагонали и выше ее Вычислить произведение положительных элементов матрицы , расположенных на главной диагонали и выше ее. Закрасить указанные элементы. в чем ошибка??? uses crt; var A:array of integer; https://www.cyberforum.ru/ pascalabc/ thread395730.html	Написать программу поиска двузначных чисел, обладающих свойством Pascal ABC Написать программу поиска двузначных чисел, обладающих следующим свойством: если к сумме цифр числа прибавить квадрат этой суммы, то получится снова данное число.
Pascal ABC В английском слове после каждого символа "n" вставить символ "a" Дано слово на английском языке. После каждого символа "n" вставьте символ "a". Если в слове нет символа "n", то выведите соответствующее сообщение. Удалите последний символ в слове. https://www.cyberforum.ru/ pascalabc/ thread395724.html	Pascal ABC Цикличиский оператор Составить программу, которая вводит 20 символов. Её надо написать 3-мя способами. Заранее спасибо. https://www.cyberforum.ru/ pascalabc/ thread395706.html
Определить, сколько раз данная цифра А встречается в заданном числе Pascal ABC Дано натуральное число. Сколько раз данная цифра А встречается в данном числе (А вводится с клавиатуры).	Pascal ABC Pascal ABC написать программы с использованием подпрограмм (процедуры или функции). 1. Дано натуральное число. Найти первую и последнюю цифры числа. https://www.cyberforum.ru/ pascalabc/ thread395668.html

versa4e

trainspotting

1086 / 486 / 384

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

Сообщений: 773

30.11.2011, 19:07

Вывести на экран сначала сам массив а потом числа, находящиеся в нем в порядке возрастания - Pascal ABC - Ответ 2231845

30.11.2011, 19:07. Показов 1717. Ответов 2

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

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

Решение

Pascal

const
  n=10;
type
  mas=array[1..n] of real;
var
  a:mas;
  i,j:integer;
  buf:real;
  sort:boolean;
begin
  randomize;
  writeln('Massiv A:');
  for i:=1 to n do
    begin
      a[i]:=random*10;
      write(a[i]:4:1);
    end;
  writeln;
  sort:=true;
  while sort do
    begin
      sort:=false;
      for i:=1 to n-1 do
        if a[i]>a[i+1] then
          begin
            buf:=a[i];
            a[i]:=a[i+1];
            a[i+1]:=buf;
            sort:=true;
          end;
    end;
  writeln('Massiv A posle sortirovki:');
  for i:=1 to n do
    write(a[i]:4:1);
end.

Вернуться к обсуждению:
Вывести на экран сначала сам массив а потом числа, находящиеся в нем в порядке возрастания Pascal ABC

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

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

30.11.2011, 19:07

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

Массив: вывести на экран сначало положительные числа в порядке возрастания, а потом отрицательные в порядке возрастания.
Надо "Создать динамический массив,заполнить случайными числами,затем вывести на экран сначало...

Вывести на экран сначала сумму, потом все эти числа, далее все четные среди них числа в возрастающем порядке
3. Дано натуральное число B (2<B<1950). Составить программу, которая с помощью функции Random...

Файл целых положительных чисел. Сначала располагаются числа, которые делятся на 3 в порядке возрастания, потом
Файл целых положительных чисел. Сначала располагаются числа, которые делятся на 3 в порядке...

Вывести числа, находящиеся в последовательности в порядке возрастания
На вход подаётся последовательность из N (2<=N<=1000) натуральных чисел, в которой присутствуют...

	30.11.2011, 19:07

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

30.11.2011, 19:07

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

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

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

Отсортировать массив и вывести на экран сначала положительные потом отрицательные элементы
В массиве из n чисел (n:real) отсортировать и вывести на экран сначала положительные потом...

Вывести на экран сначала все цифры, входящие в массив, а потом остальные символы
Помогите, пожалуйста, написать сразу с формой: Дан массив из k символов. Вывести на экран сначала...

Новые блоги и статьи
Как программировать под HCL Notes и создавать свои продукты на ее основе InfoMaster 11.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой мощную платформу для разработки корпоративных приложений, которая сочетает в себе функции электронной почты, календаря,. . .	Как работать с SVN (Subversion) InfoMaster 11.01.2025 Введение Система контроля версий является неотъемлемой частью современного процесса разработки программного обеспечения. Она обеспечивает управление изменениями в коде, позволяет отслеживать. . .	Использование GraphQL в JavaScript InfoMaster 11.01.2025 Введение в GraphQL и его преимущества В современной разработке веб-приложений эффективный обмен данными между клиентом и сервером играет ключевую роль. GraphQL представляет собой язык запросов и. . .	Администрирование Git, продвинутые техники работы с Git InfoMaster 11.01.2025 Основы управления репозиторием Эффективное управление Git-репозиторием требует глубокого понимания механизмов контроля доступа и инструментов администрирования. Рассмотрим ключевые аспекты. . .	Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .
Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .	Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .	Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .

Наверх