Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal дан массив размера N т чтсло K (o<k<5,k<n). осуществить циклический сдвиг элементов массива в лево 1/ вправо 2/ https://www.cyberforum.ru/ turbo-pascal/ thread722489.html дан массив размера N т чтсло K (o<k<5,k<n). осуществить циклический сдвиг элементов массива в лево 1/ вправо 2/	Turbo Pascal Если их значение упорядочны по возростанию или убыванию то удвоить их ; в пративном случае заменить значение каждой перемной на противоположеной Даны три переменные :X.Y.Z Если их значение упорядочны по возростанию или убыванию то удвоить их ; в пративном случае заменить значение каждой перемной на противоположеной
Turbo Pascal Дано натуральное число. Определить: а) есть ли в нем цифра 3; б) есть ли в нем цифры 2 и 5. Дано натуральное число. Определить: а) есть ли в нем цифра 3; б) есть ли в нем цифры 2 и 5. Напишите плс срочно надо) Заранее спасибо https://www.cyberforum.ru/ turbo-pascal/ thread722486.html	Turbo Pascal Напечатать таблицу значений функций Напечатать таблицу значений функций sin х и cos х на отрезке с шагом 0.1 в следующем виде (считать, что при печати на каждое вещественное число отводится по 6 позиций строки): х sin(x) cos(x) 0.0000 0.0000 1.0000 0.1000 0.0998 0.9950 ……………………….……. 1.0000 0.8415 0.5403 Пожалуйста помогите https://www.cyberforum.ru/ turbo-pascal/ thread722484.html
умножение на промежутке в одномерном масиве Turbo Pascal В одномерном массиве В состоящим N целых элементов, вычислить: a) кол-во элементов,равных по значению первому; b) произведение на промежутке .	Turbo Pascal Ввести в виде таблицы данные о количестве студентов по отделениям https://www.cyberforum.ru/ turbo-pascal/ thread722431.html Всем добрый вечер!) помогите доделать программу (или исправить) Сформировать два файла А и Б. В файл А записать названия отделений, в файл Б - количество студентов в группе и названия учебных групп. Использовав сформированы файлы, ввести в виде таблицы данные о количестве студентов по отделениям. В программе есть таблица, файл А и Б(вложил), помогите сделать программу) uses crt; type...
Turbo Pascal Интерполяционный многочлен Лагранжа Доброй ночи!Необходимо написать программу,которая строит многочлен Лагранжа по заданной таблице данных,вот что я сделала,а сделать сам многочлен не получается,перечитала,много литературы и все рано не могу додумать,помогите,кто знает,пожалуйста... PROGRAM lab3; Uses Crt; Const Max_Num_Usel=20; Type Matrix_Line=Array of Real; Var Max:Byte; X,F:Matrix_Line; L,Ln:real; ... https://www.cyberforum.ru/ turbo-pascal/ thread722426.html	Turbo Pascal Массив {X} размерностью n Помогите пожалуйста, нужен полный программный код, забросил на 2 года программировать вот потихоньку возвращаюсь Дано массив {X} размерностью n. Требуется: Преобразовать его так, что бы с начала массива находились отрицательные элементы в порядке возрастание из по значению, а после них положительные элементы в порядке їх убывание по значению, если (!!!) все положительные элементы...
Turbo Pascal В заданном натуральном N-разрядном числе упорядочить цифры так, чтобы получить наибольшее число , записанное теми же цифрами помогите пожалуйста решить задачи!!! 2. В заданном натуральном N-разрядном числе упорядочить цифры так, чтобы получить наибольшее число , записанное теми же цифрами. https://www.cyberforum.ru/ turbo-pascal/ thread722266.html	Turbo Pascal Написать программу, которая выделяет из этого массива только натуральные числа и выводит их на экран https://www.cyberforum.ru/ turbo-pascal/ thread722263.html помогите пожалуйста решить задачи!!! 3.Задан массив, в котором записаны как литерные величины действительные и натуральные числа. Написать программу, которая выделяет из этого массива только натуральные числа и выводит их на экран
Turbo Pascal Напечатать все слова, которые состоят только из латинских букв, и в них чередуются гласные и согласные буквы помогите составить прогу Напечатать все слова, которые состоят только из латинских букв, и в них чередуются гласные и согласные буквы. я сколько пробовал писать ниче не получилось.Program stroka; uses crt; var str:string; q,g,h,t,y,k,r,f,j,s,n,i:longint; function glas(ch:char):boolean; begin glas:=ch in ; end;	Turbo Pascal Написать программу, которая отыскивает все N-разрядные натуральные числа, которые делятся на каждую из своих цифр https://www.cyberforum.ru/ turbo-pascal/ thread722169.html помогите пожалуйста решить задачи!!! 1. Написать программу, которая отыскивает все N-разрядные натуральные числа, которые делятся на каждую из своих цифр

CodeR

Фрилансер

3418 / 2815 / 3000

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

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

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

07.12.2012, 07:52

Заполнить одномерный массив случайными числами и вывести его на экран - Turbo Pascal - Ответ 3816129

07.12.2012, 07:52. Показов 5723. Ответов 1

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

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

Решение

Сообщение от sweta991

1)заполнить одномерный массив случайными числами и вывести его на экран.Выбрать минимальный элемент в массиве

Pascal

Var A:array[1..100] of integer;
    i,imin,n:byte;
Begin
    Randomize;
    write('Введите размерность: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    imin:=1;
    For i:=1 to n do
     if A[i]<A[imin] then imin:=i;
    writeln;
    writeln('Min = ',A[imin]);
    readln;
End.

Сообщение от sweta991

2)В массиве заданы фамилии 10 студентов и их рост фамилии в символьном массиве ,рост-в числовом.Вывести фамилии тех студентов рост которых больше 185 см.

Pascal

Const n=3;
Var A:array[1..n] of integer;
    B:array[1..n] of string;
    i:byte;
Begin
    Randomize;
    For i:=1 to n do
    Begin
      writeln('Информация о ',i,'-ом ученике ');
      write('Фамилия: ');readln(B[i]);
      A[i]:=random(150)+100;
      writeln('Рост: ',A[i]);
    End;
    writeln('Ученики у которых рост больше 185');
    For i:=1 to n do
     if A[i]>185 then writeln(B[i]);
    readln;
End.

Добавлено через 28 секунд
Один вопрос=одна тема учим правила!

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

07.12.2012, 07:52

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

Одномерный массив заполнить целыми случайными числами и вывести на экран в виде строки
Не могли бы вы мне помочь??? 1.одномерный массив заполнить целыми случайными числами и вывести на...

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

Одномерный массив 15 элементов заполнить случайными значениями, вывести его на экран
Одномерный массив 15 элементов заполнить случайными значениями, вывести его на экран. Определить...

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

	07.12.2012, 07:52

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

07.12.2012, 07:52

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

Заполнить одномерный массив m[n] случайными целыми числами от a до b и вывести его на экран.Значения a,b,c,d,n взять из таблицы.
Заполнить одномерный массив m случайными целыми числами от a до b и вывести его на экран.Значения...

Заполнить одномерный массив случайными числами. Найти и вывести на экран наибольший его элемент и порядковый номер
Help please! Заполнить одномерный массив случайными числами. Найти и вывести на экран наибольший...

Заполнить одномерный массив n случайными числами от -15 до 3. Вычислить и вывести на экран
Заполнить одномерный массив n случайными числами от -15 до 3. Вычислить и вывести на экран

Сформировать динамический одномерный массив, заполнить его случайными числами и вывести на печать
Помогите найти ошибку. Сформировать динамический одномерный массив, заполнить его случайными...

Новые блоги и статьи
Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .	Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .
Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .

Наверх