Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Выяснить принадлежность точки закрашенной области Составить программу которая печатает true, если точка с координатами x,y принадлежит заштрихованной области, и false в противным случае. Для первой картинки вот(вроде правильно, для второй не знаю): var x,y:real; z1,z2:boolean; begin writeln ('ВВедите x,y'); readln(x,y); https://www.cyberforum.ru/ turbo-pascal/ thread424982.html Упорядочить по неубыванию массив, содержащий 20 целых чисел. Turbo Pascal
Упорядочить по неубыванию массив, содержащий 20 целых чисел. Пример программы. Дан двумерный массив различных вещ. чисел, содержащий 5 строк и 4 столбца. Строку содержащую макс. элемент, поменять местами со строкой, содержащий минимальный элемент массива. program mas; type mmm=array of real; var m:array of mmm; m1:mmm; max,min:real; maxi,mini,i,j: integer; begin
Turbo Pascal Задача на нахождение 3-х максимальных чисел. Всем доброго времени суток. Всё как ни пытаюсь, не могу решить следующую задачу: В программу вводится 4 произвольных натуральных числа. Нужно сделать так, чтобы программа выдавала 3 максимальных из них по порядку убывания, например (1. 45, 2. 21, 3. 10). Прошу помочь с этой задачей, ибо уже 2-ой день ломаю над ней голову. https://www.cyberforum.ru/ turbo-pascal/ thread424972.html Turbo Pascal Из данной строки удалить цифры и малые латинские буквы https://www.cyberforum.ru/ turbo-pascal/ thread424907.html
1.Из данной строки удалить цифры и малые латинские буквы 2.В линейном массиве вещественных чисел a(n) заменить элементы кратные 5 на их удвоенное значение 3.Удалить наименьший элемент массиваЗапрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
Подарки Деда Мороза(Turbo Pascal) Turbo Pascal
Ириска весит X грамм, мандарин – Y грамм, пряник – Z грамм. Требуется написать программу, которая определит, сколько различных подарков весом ровно W грамм может сделать Дед Мороз.
Turbo Pascal Найти кодовое смещение K и расшифровать предложение. (с объяснением нужно) Дано зашифрованное предложение на русском языке и его расшифрованный первый символ C. Найти кодовое смещение K и расшифровать предложение. (с объяснением нужно) https://www.cyberforum.ru/ turbo-pascal/ thread424858.html
Turbo Pascal Исправить ошибку в табулировании функции Написал прогу табулирования, но есть одна вещь которую я не могу понять. После 2ого условия на синус икса и косинус икса после элса надо чтобы n:=1 и h:=0 но он все равно позволяет вводить свои значения n и h. Что делать??? Вот код programddan; uses crt; var y, x0, x, S, h: real; n, https://www.cyberforum.ru/ turbo-pascal/ thread424844.html Turbo Pascal Изобразить на экране дисплея графики следующих функций
Изобразить на экране дисплея графики следующих функций (A принимает следующие значения: –1, 0.5, 1, 1.5): y=A (3x3 4x2+5x)sin(x) x:=
Turbo Pascal Вычислить значение выражения и определить его тип: succ(round(1.2)) 2. Вычислить значение выражения и определить его тип: succ(round(1.2)) 3. Определить тип выражения: abs(5.0) помогите плиз! ответ пришлите на почту <вырезано> Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема. Не стоит просить выслать ответ в icq или e-mail. Эта просьба все равно не будет выполнена, а сообщение скорее... https://www.cyberforum.ru/ turbo-pascal/ thread424816.html Turbo Pascal Стандартный диаметр цилиндра Стандартный диаметр цилиндра должен равняться d. Имеется набор числовых значений – диаметры партии изготовленных цилинд-ров. Допустимые отклонения диаметра от стандартного не более чем Е. Составить программу, определяющую номера бракованных цилин-дров и их количества. https://www.cyberforum.ru/ turbo-pascal/ thread424762.html
В процедуре неправильно выводится результат Turbo Pascal
Процедура должна выводить сумму при вводе номера, но кроме суммы выводит еще что такого номера нет: if nom<>sh.plat then writeln('Такого расчетного счета нет'); не знаю как исправить, помогите пожалуйста! procedure output; var nom:string; begin writeln('Введите расчетный счет плательщика'); readln(nom);
Turbo Pascal Двумерные массивы, сортировка Сделать 10ые номера. Кому не сложно. Буду очень благодаренКартинки загружайте на форум, во избежание их удаления или потери на сторонних ресурсах. https://www.cyberforum.ru/ turbo-pascal/ thread424746.html
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
09.01.2012, 16:12 0

Подправьте пожалуйста в коде - Turbo Pascal - Ответ 2369446

09.01.2012, 16:12. Показов 911. Ответов 6
Метки (Все метки)

Ответ

Цитата Сообщение от Jin200611 Посмотреть сообщение
Пусть файлы А и В, компоненты которых являются целыми числами,
Вообще-то так пишут о типизированных файлах
Pascal
1
var f:file of integer;


Вернуться к обсуждению:
Подправьте пожалуйста в коде Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.01.2012, 16:12
Готовые ответы и решения:

подправьте цикл пожалуйста
{$f+} program Oo; const n=11; h=0.1; x=1; var sum,funk,sinu,r:real;k:real; ...

Найдите пожалуйста ошибку в коде
program EMV_RZ_1; uses crt; var eps,x,a,b:real; function f(x:real):real; begin ...

найти ошибку в коде, пожалуйста
Нам дан массив с 5 елементами: нужно посортировать в порядке убывания: (3,2;-6.3;-8.3;0.0;1.2), ...

Пожалуйста, нужно исправить ошибку в коде
Моё задание &quot;Даны две строки. Пусть n1 - число слов в первой строке, а n2 - во второй (n1&lt;n2)....

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

Помогите пожалуйста исправить недоработку в коде программы.
program Hermite; var i,j,s,n,k,i1,m,j1,i2,j2: integer; b: array of real; x: array of real; var...

Подправьте программку
Привет всем))решал задачку,программа не запускается в чём ошибка подскажите пожалуйста! УСЛОВИЕ:...

Найти A встепени N(подправьте код плз)
Дано вещественное число A и целое число N (&gt; 0). Найти A в степе- ни N : AN = A•A• . . . •A ...

Подправьте код задачи про среднее арифметическое
Дано n количество деревьев, ввести в цикле у каждого дерева диаметр и посчитать средний диаметр...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru