|
|
| Другие темы раздела | |
|
Free Pascal Создание трех типизированных файлов и выборка в них
https://www.cyberforum.ru/ free-pascal/ thread300563.html Привет! у меня есть три БД с информацией о трех марках машин(например,BMW,HONDA,SKODA),размещенные соответственно в трех файлах(f1,f2,f3) В них содержится информация:регистрационный номер(ББ****ББ),цвет,год выпуска авто и адрес владельца. и я совершенно не знаю,как мне написать процедуру для поиска авто заданной марки и цвета с не полностью известными цифрами числовой части регистр.номера ... |
Поменять местами первый и последний элементы непустого списка Free Pascal Доброго времени суток.Прошу помощи в решении задачи,с использованием стека :) Программам меняет местами первый и последний элементы не пустого списка L. Заранее спасибо! |
|
Free Pascal Процедуры во Free pascal
https://www.cyberforum.ru/ free-pascal/ thread299951.html Я начал изучать процедуры во Free Pascal и всё вроде бы шло отлично, но возникла некая проблема: стала появляться какая-то ошибка(при запуске программы появляется информация <расположение программы>exited with exitcode =1). Что это понятия не имею.Кстати такое появляется почти во всех программах с процедурами. Дано n чисел. Найти среди них число с максимальной суммой делителей. Помогите... |
Free Pascal В введённой строке подсчитайте число гласных латинских букв (a, b, i, o, u) и заменить их символами (1 , 2, 3, 4, 5) соответственно.
https://www.cyberforum.ru/ free-pascal/ thread299929.html Доброго времени суток! В введённой строке подсчитайте число гласных латинских букв (a, b, i, o, u) и заменить их символами (1 , 2, 3, 4, 5) соответственно. Вывести на экран количество замен. Добавлено через 18 минут посмотрите какие ошибки содержи программа. uses wincrt; var s : string; |
|
Free Pascal Общая вставка в динам.список procedure Vstavka(var head:hts); var j,k,i:integer; buf,curr,ch:hts; begin Textcolor(White); new(curr); curr:=head; clrscr; write('Введите номер строки, после который хотите вставить новую строку = '); |
Free Pascal Сформировать массив из элементов файла
https://www.cyberforum.ru/ free-pascal/ thread299439.html Создать типизированный файл, куда записать n целых чисел. Из исходного файла сформировать массив, внести в него простые и совершенные числа, расположенные в файле между минимальным и максимальным элементами Внимательнее выбирайте раздел, где собираетесь задать свой вопрос. |
| Free Pascal Додать два минимальных элементов нужно вывести суму двох минимальных элементов. uses crt; Type arr=array of integer; procedure InputMatrix(var ar:arr; var n:byte); var i,j:byte; begin Randomize; repeat https://www.cyberforum.ru/ free-pascal/ thread299318.html |
Паскаль и картинки Free Pascal Скажите можно ли в паскаль вставить какую-нибудь картинку. Без каких-либо сторонних модулей? |
| Free Pascal Для чего нужны {} в программе? Вопрос состоит в вот этом: Для чего нужны {} в программе? При вводе натурального числа программа определяет его делители, но среди них нет делителя который является натуральным числом вот программа: programm Dilniki; Var n,i: integer; Begin Write ('Ввести натуральное число, делители которого будет определять, n=>'); ReadLn (n); https://www.cyberforum.ru/ free-pascal/ thread299066.html | Free Pascal Дана целочисленная прямоугольная матрица. Определить: Здраствуйте, уважаемые форумчане! Помогите, пожалуйста, бедной первокурснице решить задачу!!! Задание Размерности массивов следует задать именованными константами. Все необходимые данные должны передаваться подпрограммам в качестве фактических параметров; все величины, используемые только внутри подпрограмм, должны быть описаны как локальные. Использование глобальных переменных в... https://www.cyberforum.ru/ free-pascal/ thread298708.html |
|
Помогите исправить программу. Данная программа рисует график эпициклоиды. Free Pascal Помогите исправить программу. Данная программа рисует график эпициклоиды. Заранее спасибо! Program grafic; Uses graph; var a,x,y,tmin,tmax,h,t:real; ymin,ymax,cx,cy,b:real; gd,gm,n:integer; |
Free Pascal "Динамические сменные" 1. Составить программу, которая вставляет в непустой список L, элементы которого упорядочены по не убыванию новый элемент Е так, чтобы сохранилась упорядоченность. 2. Составить программу, которая заполняет список последовательностью случайных различных целых чисел. Найти сумму тех его элементов, находящихся между минимальным и максимальным элементами. помогите с задачками недели 2 бьюсь ничего... https://www.cyberforum.ru/ free-pascal/ thread298418.html |
|
0 / 0 / 0
Регистрация: 20.05.2011
Сообщений: 13
|
|||||||
| 0 | |||||||
Сформировать новый массив, каждый из элементов которого равен среднему арифметическому элементов исходного массива - Free Pascal - Ответ 167342520.05.2011, 23:35. Показов 1255. Ответов 2
Метки (Все метки)
Дан Массив из N вещественных чисел.Сформировать новый массив , каждый из элементов которого равен среднему арифметическому элементов исходного массива, без элемента с тем же номером, что и результатирующий.
Вернуться к обсуждению: Сформировать новый массив, каждый из элементов которого равен среднему арифметическому элементов исходного массива Free Pascal
0
|
|||||||
| 20.05.2011, 23:35 | |
|
Готовые ответы и решения:
2
Массив: Составить массив, каждый элемент которого равен среднему арифметическому элементов массивов A B C...
|
| 20.05.2011, 23:35 | |
Наверх