Программа, для обработки двухмерных матриц, Язык - Паскаль
Напишите программу, реализующую обработку двухмерных массивов. Дана матрица размера M x N. В каждом ее столбце найти количество элементов, больших среднего арифметического всех эл…
Вопросы по тегу: pascal
- 0 ▲1 ответ.
- -5 ▲1 ответ.
Программа в Паскаль - Обработка строк
Напишите программу, реализующего обработку строк. Даны строки S и S0.Удалить из строки S первую подстроку, совпадающую с S0.Если совпадающих нет то без изменений S.Язык програмиро…
- 0 ▲1 ответ.
Pascal-Нет перегруженной подпрограммы с такими типами параметров
помогите пожалуйста, выдает ошибку и не даёт решить пример,помогите пожалуйста!! program sistema; var x, D: real; begin write('введите значение x'); read(x); if x<=0 then D:=co…
- -2 ▲2 ответ.
у меня ошибка в паскале вылезает
program tabulation; const a = -3; // начальное значение x b = 3; // конечное значение x h = 0.3; // шаг var x, min_x, min_fi, fi: real; begin fi := 0.0; min_fi := fi(a); // инициа…
- 0 ▲0 ответ.
Программа завершается раньше времени ,не работает dispose паскаль
uses Crt; type Node = record valuev:real; next:^Node; prev:^Node; end; var header:^Node; NewNode:^Node; curNode:^Node; command:integer; procedure Create_List(List:^Node); var flag…
- 0 ▲2 ответ.
Работа с текстовыми полями Edit1.Text из своих процедур в Lazarus
Хочу сделать функцию очистки текстовых полей, т.к. одно и то же действие предполагается делать при помощи двух кнопок (кнопкой очистить и после сохранения текстового файла) - то э…
- -5 ▲1 ответ.
Перевод кода из паскаля в с++
Кто может перевести код из Паскаля в с++ Сама задача заключается в том, чтобы упорядочить массив по возрастанию. Помогите, пожалуйста var mass:array [1..100] of real; i, j, n: int…
- 0 ▲1 ответ.
Не могу обратиться к объекту по индексу
Нужно реализовать в программе на Pascal ABC.NET класс одномерный массив и унаследовать от него двумерный массив. Для двумерного массива перегрузил операцию [] через индексное свой…
- -4 ▲1 ответ.
Как написать этот код на питоне? Код у меня не работает. Какой из них я должен изменить?
// Pascal var n:integer; begin write('score = '); read(n); case n of 1..59: writeln(2); 60..69: writeln(3); 70..89: writeln(4); 90..100: writeln(5); else writeln('The score is in …
- 0 ▲1 ответ.
При изменении значений в pascal программа перестаёт работать
Есть код program qqq; const n=10; var a:array[4..n] of integer; k, i:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(6)+4; write(a[i], ' '); end; writeln; k:=0; for …
- 0 ▲1 ответ.
Два минимальных элемента в строке. Седловые элементы
Pascal(lazarus). Дана задача на седловые элементы( Во 2 примере даны входные данные и в одной строке может быть 2 минимальных элемента. С такими данными, как седловые у меня вывод…
- 3 ▲1 ответ.
Как организовать подсчет итоговых параметров персонажа из экипировки в RPG?
Возможно ли создать метод, автоматически ищущий поле класса по имени этого поля. Делаю RPG. Пример: персонаж одевает вещь, она дает прибавку урона и здоровья(тут все просто), но у…
- 0 ▲1 ответ.
Pascal полноэкранная программа
Есть код программы, которая создаёт арену из символов "*", по границам которой бежит символ "#", до тех пор, пока не нажмём какую-либо клавишу. Как только нажи…
- -2 ▲1 ответ.
Пишет Встречено 'else', а ожидалось ';'
Пишет Встречено 'else', а ожидалось ';' я только учусь программированию. Можете описать как это исправить простым кодом begin var player := 1; begin var sum1 := 0; var sum2 := 0; …
- 0 ▲2 ответ.
Какие есть библиотеки для 2D графики в Delphi?
Хочу написать курсач, надо сделать его на Delphi. Нужно, используя какую-то библиотеку для 2D графики (что-то простое чтобы просто к пикселям на экране обращаться), написать свой …
- 0 ▲0 ответ.
Lazarus. And в большом условии
Создаю пятнашки на паскаль, язык изучаю недавно Есть данное условие: if(Button1.Top = 0) and (Button1.Left = 112) then begin if((Button2.Top <> 0) and (Button2.Left <>…
- -3 ▲1 ответ.
Pascal полноэкранная программа в терминале
смотрите, есть код программы. Она рисует арену звёздочек и по контуру ходит символ решётка, пока пользователь не нажмёт какую-либо клавишу. Работает не совсем так как мне хотелось…
- -3 ▲1 ответ.
Не получается протабулировать функцию F на интервале Xstart до Xfinish с шагом dX
Задание такое: Мой код ниже(для варианта 21). Компилятор ругается. Не пойму что не так main.p(22,44) Error: Incompatible types: got "Double" expected "ShortInt"…
- -2 ▲1 ответ.
АВЛ-деревья на pascal
Здравствуйте! Помогите реализовать задачу на Pascal.Нужно завести АВЛ-дерево и организовать в нем действие по вставке элементов .
- -1 ▲1 ответ.
Задача Паскаль не могу прийти к иному(верному решению)
Решал, решал и "дорешался"...(целый день занимался решением задач) Чтобы ввести в курс дела - Собственно сама задача: Даны числа от 1 до N. Вычислять: S=1/1+1/2+1/3 ..... + 1/N, в…
- 0 ▲1 ответ.
Вывести с файла прозвища учеников по их росту
В файле содержатся данные об учениках: рост и фамилии. Вывести фамилии учеников в порядке возрастания их роста. я так думаю нужно на типизированных файла ( привязка росту к прозви…
- 0 ▲2 ответ.
Усовершенствовать код для прохождения теста на сайте
Дано два двухзначных числа. Определить, есть ли у них одинаковые цифры. Вывести YES, если одинаковые цифры есть в заданных числах и NO - в противном случае. Входные данные: Во вхо…
- 0 ▲1 ответ.
Вывести только те элементы массива на печать, за которыми следует четный элемент
var i, n: integer; a: array[1..1000] of integer; begin readln(n); for i := 1 to n do begin read(a[i]); if a[i] mod 2=0 then write(a[i-1],' '); end; end. Почему выскакивает ошибка?
- 0 ▲1 ответ.
Ошибка в простой задаче: пишет ожидался оператор, а встретил else
Pascal. Ошибка в простой задаче: пишет ожидался оператор, а встретил else. program MaxIn_3; var x, y, z, res: real; begin writeln('Введите целые числа: X, Y, Z'); readln(x, y, z);…
- 0 ▲1 ответ.
Как сделать автоматическое нажатие клавиши?
Как сделать автоматическое нажатие клавиши, например, сочетание клавиш Ctrl+f?
- 0 ▲1 ответ.
Аналог функций LeftStr и RightStr Паскаля в Си
Здравствуйте! Мне нужно переписать на си программу на паскале. В ней используются функции: function LeftStr(s: string; count: integer): string; Возвращает первые count символов ст…
- 0 ▲1 ответ.
Метод Рунге-Кутта 4 порядка на паскале
Не могу сделать, чтобы задавать начальное условие y(x0)=1, если быть точнее, то не получается сделать ввод х0. Если кто может, исправьте, пожалуйста. var k1,k2,k3,k4,x,y: array [0…
- 0 ▲1 ответ.
Написать функцию подсчёта гласных Pascal
Здравствуйте! Нужно написать функцию на паскале, которая считает количество гласных в тексте. Функция получает var t:text;. С алгоритмом проблем нет. Какой синтаксис считывания си…
- 0 ▲1 ответ.
Поиск двух минимальных цифр в составе числа
Не могу найти ошибку. Одна из минимальных цифр находится, а вторая нет. Writeln ('a='); Readln (a); min1:=a mod 10; While a<>0 do begin a:=a div 10; n:=a mod 10; if n<min…
- 0 ▲1 ответ.
Рекурсия для подсчета числа вершин
Помогите написать рекурсивную функцию Level(T,n) для подсчёта числа вершин на n-м уровне дерева T (считать, что 1-й уровень соответствует корню дерева, а уровень любой другой верш…