Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Turbo Pascal Внесите во второй файл все строки из первого, в конце которых стоит вопросительный знак 1.В редакторе создайте два текстовых файла, внесите в каждый файл по 10 строк произвольного текста. 2.Из двух исходных файлов при помощи программы получите третий файл; внесите в него все строки из первого файла, в конце которых стоит вопросительный знак, и затем первую строку из второго файла, в конце которой стоит восклицательный знак. https://www.cyberforum.ru/ turbo-pascal/ thread1204430.html Turbo Pascal Исправьте пожалуйста код Паскаль
Приветствую. Помогите пожалуйста исправить код в Паскалье. В этом коде он находит "самое маленькое отрицательное число" теперь мне нужно его исправить, и из него сделать программу, которая находит самое большое отрицательное число. Спасибо. Program E5; uses crt; type massiv = array of integer; var i , n , min : integer; mass : massiv; begin
Turbo Pascal Процедуры и функции программиста https://www.cyberforum.ru/ turbo-pascal/ thread1204427.html
Заданы три двумерных массива одинаковой размерности. Организовать ввод и вывод на экран массивов с использованием процедур программиста. 		Turbo Pascal Найти в массиве и вывести на экран сведения о книгах до определенного года издания Объявите тип запись «Книги», состоящую из следующих полей: автор, название книги, год издания, количество страниц. Найти в массиве и вывести на экран сведения о книгах до определенного года издания. Найти в массиве и вывести на экран сведения о книге с наименьшим количеством страниц. https://www.cyberforum.ru/ turbo-pascal/ thread1204426.html
Задан массив .Сформировать новый массив Turbo Pascal
Задан массив В(n).Сформировать новый массив таким образом,чтобы после каждого четного элемента массива вставить дополнительный элемент со значение 1,а после каждого нечетного элемента массива вставить дополнительный элемент со значением -1. 		Turbo Pascal Текстовые файлы. Написать программу подсчета среднего числа букв в книге Помогите пожалуйста написать программу подсчета среднего числа букв в книге. Написать нужно на паскале. И желательно с комментариями, так как я пока что не очень хорошо разбираюсь в программировании. https://www.cyberforum.ru/ turbo-pascal/ thread1204342.html
Turbo Pascal В линейный массив вещественных чисел на k-место https://www.cyberforum.ru/ turbo-pascal/ thread1204335.html
В линейный массив вещественных чисел на k-место вставить элемент,равный среднему арифметическому элементов массива. 		Turbo Pascal Удалить элемент массива целых чисел
Удалить элемент массива целых чисел,удовлетворяющие условию:остаток от деления на 2 равен 3.Если таких элементов нет,выдать сообщение "элементы для удаления не найдены".
Turbo Pascal Найти номер строки и столбца двумерного массива https://www.cyberforum.ru/ turbo-pascal/ thread1204327.html
Найти номер строки и столбца двумерного массива для максимального элемента этого массива. 		Turbo Pascal Найти номера отрицательных элементов,делящихся на 5 с остатком 2 Найти номера отрицательных элементов,делящихся на 5 с остатком 2. https://www.cyberforum.ru/ turbo-pascal/ thread1204322.html
Turbo Pascal Найти сумму положительных элементов
Найти сумму положительных элементов,значения которых меньше числа k(k вводится с клавиатуры). 		Turbo Pascal Определить самую дорогую и самую дешевую деталь из выпускаемых деталей Заданы стоимость различных деталей, выпускаемых разными заводами и их названия. Вывести список деталей в порядке возрастания их стоимости по указанному заводу. Определить самую дорогую и самую дешевую деталь из выпускаемых деталей. помогите решить пожалуйста:wall: https://www.cyberforum.ru/ turbo-pascal/ thread1204298.html
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
10.06.2014, 22:24 0

Организуйте заполнение типизированного файла случайными целыми числами из интервала [-1000; 1000] - Turbo Pascal - Ответ 6301910

10.06.2014, 22:24. Показов 1240. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Valkyr1e как решение

Решение

Цитата Сообщение от Valkyr1e Посмотреть сообщение
Организуйте заполнение типизированного файла случайными целыми числами из интервала [-1000;1000]. Выведите содержимое файла на экран.
это так сложно? Вы как учитесь?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

uses crt;
var f:file of integer;
    i,n,a:integer;
begin
 assign(f,'f.txt');
  rewrite(f);
 write('Êîë-ñòâî êîìïîíåíòîâ ôàéëà n=');
  readln(n);
 writeln('Èñõîäíûé ôàéëà :');
 for i:=1 to n do
  begin
   a:=-1000+random(2001);
   write(f,a);
   write(a:5);
  end;
 close(f);
end.


Вернуться к обсуждению:
Организуйте заполнение типизированного файла случайными целыми числами из интервала [-1000; 1000] Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 10.06.2014, 22:24
Готовые ответы и решения:

Организуйте заполнение типизированного файла случайными целыми числами из интервала [-1000;1000]
Организуйте заполнение типизированного файла случайными целыми числами из интервала . Выведите...

Организуйте заполнение типизированного файла случайными целыми числами из интервала
1) Организуйте заполнение типизированного файла случайными целыми числами из интервала . Выведите...

Заполнение файла n целыми случайными числами в интервале [-54, 33]
Заполнить файл n целыми случайными числами в интервале . Вывести содержимое файла на экран и...

Заполнить массив из 1000 элементов случайными числами
Заполнить массив из 1000 элементов случайными числами. Найти мат ожидание и дисперсию

1
10.06.2014, 22:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 10.06.2014, 22:24
Помогаю со студенческими работами здесь

Заполните массив случайными числами в диапазоне 1000.2000
Заполните массив случайными числами в диапазоне 1000..2000 и подсчитайте коли-чество элементов...

Заполните целочисленный массив А из 10 элементов случайными целыми числами из интервала (10, 20). Найдите в этом массиве
Заполните целочисленный массив А из 10 элементов случайными целыми числами из интервала (10, 20)....

Сформировать и вывести на экран в виде таблицы массив А[1.8,1.6], заполнив его целыми случайными числами из интервала [-10,10]
Сформировать и вывести на экран в виде таблицы массив А, заполнив его целыми случайными числами из...

Рекурсия: заполнение одномерного массива целыми случайными числами без повторений
Помогите, пожалуйста, с задачей. 1. Описать функцию для заполнения одномерного массива целыми...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru