|
|
Другие темы раздела | |
Pascal ABC Калькулятор не работает Всем привет, пишу в первый раз. Знаю темы про калькулятор были, но не нашел того, что мне надо. Вот код. У меня выбивает ошибку. Можете объяснить что неправильно.Спасибо! Program MamaMia9; var a,b,c:real; znak:char; Begin while true do writeln('x= '); readln(a); writeln('Действие'); readln(znak); writeln('y= '); readln(b); https://www.cyberforum.ru/ pascalabc/ thread1673822.html |
Описать тип записи Zodiak Pascal ABC type zodiac = record fi: string; zodiac: string; dr:arrayof integer; end; var z: array of zodiac; i, j: integer; zodiac2: string; |
Pascal ABC Написать программу рисования на экране треугольника и вычисления его площади
https://www.cyberforum.ru/ pascalabc/ thread1673725.html Написать программу рисования на экране треугольника и вычисления его площади. Для рисования треугольника по его координатам используйте процедуру Triangle, для вычисления площади функции Geron, LengthLine, Pifagor. |
Pascal ABC Определить радиус и центр окружности, проходящей по крайней мере через три различных точки множества точек Условие: Определить радиус и центр окружности, проходящей по крайней мере через три различных точки заданного множества точек на плоскости и содержащей внутри наибольшее количество точек этого множества.(Координаты точек считываются из файла, нарисовать получившийся ответ для проверки) Не могу найти ошибку в программе уже около недели. Ошибка где-то между 45 и 70 строчками. Координаты точек... https://www.cyberforum.ru/ pascalabc/ thread1673722.html |
Определить, сколько из чисел удовлетворяет заданному условию Pascal ABC Напишите программу, которая вводит последовательность целых чисел, заканчивающуюся нулем, и определяет, сколько из этих чисел удовлетворяет условию: сумма значений цифр десятичной записи чисел равна 10. ни каких усложненных вариантов. |
Pascal ABC Сортировка двумерного массива методом прямого выбора Помогите пожалуйста с заданием. Выполнить сортировку главной диагонали двумерного массива случайных целых чисел по возрастанию методом прямого выбора.:help: https://www.cyberforum.ru/ pascalabc/ thread1673698.html |
Pascal ABC В массиве определить сумму R элементов третьей строки
https://www.cyberforum.ru/ pascalabc/ thread1673591.html В массиве D(1:3, 1:4) определить сумму R элементов третьей строки и каждый элемент четвертого столбца умножить на R |
Pascal ABC Отсортировать положительные элементы массива, стоящие на четных местах по убыванию методом простого выбора Отсортировать положительные элементы массива, стоящие на четных местах по убыванию методом простого выбора. const n = 5;//константа type//описание массива omas = array of integer;//описание массива procedure init(var a: omas);//Название процедуры и Описание формальных параметров переменных var//Описание локальных переменных i: integer;//Описание локальных переменных |
Pascal ABC Определите индекс указанного пользователями элемента массива Определите индекс указанного пользователями элемента массива.Если такого элемента нет,сообщите об этом пользователю.Я написала программу но не знаю что вставить в 13 строчке после if. var a: array of integer; i,ind,n: integer; begin for i := 1 to 5 do begin write('a = '); readln(a); end; write('Введите элемент: '); https://www.cyberforum.ru/ pascalabc/ thread1673534.html |
Pascal ABC Если число f равно 26, то увеличить его на 9, иначе уменьшить на 19
https://www.cyberforum.ru/ pascalabc/ thread1673515.html помогите, пожалуйста, написать команду "если...то...иначе" для решения следующей задачи: если число f равно 26, то увеличить его на 9, иначе уменьшить на 19 |
Pascal ABC Составьте программу нахождения гласной, чаще всего встречающейся в слове Х Помогите. Составьте программу нахождения гласной, чаще всего встречающейся в слове Х. |
Pascal ABC Записать в типизированный файл число посимвольно, удалить все четные цифры здравствуйте, помогите написать программу. программа должна записать в типизированный файл число посимвольно, удалить все четные цифры, вывести полученное число. Program vJOBivatel; var chislo, i, j,c:integer; f:file of integer; Begin writeln('Ââåäèòå ÷èñëî'); readln(chislo); Assign (f,'c:/New folder/f.txt'); ReWrite(f); https://www.cyberforum.ru/ pascalabc/ thread1673262.html |
0 / 0 / 1
Регистрация: 01.02.2016
Сообщений: 4
|
|
08.03.2016, 02:28 [ТС] | 0 |
Перевести код с Turbo Pascal - Pascal ABC - Ответ 885198208.03.2016, 02:28. Показов 633. Ответов 1
Метки (Все метки)
Ответ
0
|
08.03.2016, 02:28 | |
Готовые ответы и решения:
1
Перевести код с Turbo Pascal Перевести код с Turbo Pascal Переписать код из Turbo Pascal в pascal ABC Переписать код из Turbo Pascal в Pascal ABC |
08.03.2016, 02:28 | |
08.03.2016, 02:28 | |
Помогаю со студенческими работами здесь
0
Переписать код из Turbo Pascal в Pascal ABC Переписать код из Turbo Pascal в Pascal ABC Переписать код из Turbo Pascal в Pascal ABC Перевести в код Pascal ABC из кода Pascal Delphi |