|
|
Другие темы раздела | |
Turbo Pascal Подставить значения x=sint, y=cost при -\pi \leq t\leq \pi uses Graph,Crt; var x1,x2:real;{границы изменения аргумента функции} y1,y2, :real;{границы изменения значения функции первого графика} y3, y4 :real;{границы изменения значения функции второго графика} x:real;{аргумент функции } https://www.cyberforum.ru/ turbo-pascal/ thread1197062.html |
Turbo Pascal Найти все неповторяющиеся элементы двухмерного массива Помогите с блок схемой!!!! program lab; uses crt; const nmax=20; var a:array of integer; x:integer; n,m,i,j,p,q,k:byte; begin writeln('Поиск неповторяющихся элементов двухмерного массива целых чисел');writeln; |
Turbo Pascal Поиск отрицательных и положительных элементов в массиве - арифметическое переполнение
https://www.cyberforum.ru/ turbo-pascal/ thread1197019.html var A:array of integer; i,j,s,m:integer; begin randomize; for i:=1 to 5 do begin writeln; for j:=1 to 5 do begin A:=random(50)-25; write(A,' '); end; |
Turbo Pascal Определить кто из кандидатов в президенты победит на выборах Определить кто из кандидатов в президенты победит на выборах,если приняли участие в выборах 50% сторонников первого кандидата и 75% сторонников второго?общее число сторонников первого кандидата-N человек,а второго-L человек. https://www.cyberforum.ru/ turbo-pascal/ thread1197018.html |
Допишите код, пожалуйста. Завтра последняя пара перед зачетом Turbo Pascal Сделал 4 из 5 лабораторных. Эту никак не могу. Мне помогли с заданиями 1 и 2 Dencil и Puporev. Нужно написать код к программам 10.3 10.4 10.5 . Помогите пожалуйста. Фотография с заданиями: (Ссылка на сторонний ресурс удалена) Вот код для первых двух: var B:array of integer; i,j:integer; begin randomize; |
Turbo Pascal Ошибка 215 при выполнении программы Не пойму,в чем ошибся с типами данных,выводит ошибку 215,а если исправить,кидает на черный экран. Ошибка в этой строке KN:=KN+1;.Помогите исправить,пожалуйста. PROGRAM ret; TYPE PROC=FUNCTION(X:real):real; TYPE ODN=array of real; VAR A,B,X,Fa,Fb:real; k,y:integer; EPS:ODN; fp1,fp2,fp3:text; FUNCTION FS(x1:real):real;FAR; Begin https://www.cyberforum.ru/ turbo-pascal/ thread1196858.html |
Turbo Pascal Обнулить отрицательные элементы, стоящие в чётных строках
https://www.cyberforum.ru/ turbo-pascal/ thread1196857.html Завтра последняя пара перед зачетом. Два задания я уже сделал. А на этой этом задании и застрял. Помогите, пожалуйста. (Ссылка на сторонний ресурс удалена) Заполните двумерный числовой массив В(6,6) случайными целыми числами в интервале . Выведите значения элементов массива в виде матрицы, причём на каждый элемент отведите 4 позиции. Ответ задачи следует выводить с новой строки и с... |
Turbo Pascal Арифметическое переполнение в двухмерном массиве Как исправить ошибку 215: Арифметическое переполнение. Помогите, пожалуйста program z1; var b:array of integer; s,i,j:integer; Begin s:=0; randomize; for i:=1 to 6 do for j:=1 to 6 do |
Turbo Pascal Создать программу реализующую два алгоритма сортировки одномерного массива: методом Шелла и быстрой сортировки ЗАДАЧА. Создать программу реализующую два алгоритма сортировки одномерного массива: сортировка методом Шелла и быстрой сортировки (Хоара). Предусмотреть пользовательскую возможность выбора метода сортировки. Вывести минимальный и максимальный элементы массива https://www.cyberforum.ru/ turbo-pascal/ thread1196694.html |
Turbo Pascal Составление Блок-схемы
https://www.cyberforum.ru/ turbo-pascal/ thread1196667.html Добрый день! Помогите пожалуйста составить блок-схему {Сортировка списка записей list} procedure SortList(var list:ListOfSports); var imin:byte; i,j:byte; begin with list do begin |
Turbo Pascal Решение нелинейных уравнений методом касательных иначе именуемым (Ньютона) Уважаемые форумчане срочно прошу помощи с решением данной задачи! Необходимо на языке программирования Турбо Паскаль выполнить Решение нелинейных уравнений методом касательных иначе именуемым (Ньютона). 3х4+8х3+6х2-10=0. Метод Ньютона |
Turbo Pascal Выяснить, входит ли данное слово в указанный текст
https://www.cyberforum.ru/ turbo-pascal/ thread1196523.html дан файл содержащий текст на русском языке, выяснить входит ли данное слово в указанный текст, если да, то сколько раз, вывести соответствующее сообщение в другой файл. |
1642 / 1091 / 487
Регистрация: 17.07.2012
Сообщений: 5,345
|
||||||
03.06.2014, 11:55 | 0 | |||||
Составить программу, которая изучает, одного ли знака числа, которые вводятся с клавиатуры - Turbo Pascal - Ответ 626651903.06.2014, 11:55. Показов 1355. Ответов 6
Метки (Все метки)
Ответ
Вернуться к обсуждению: Составить программу, которая изучает, одного ли знака числа, которые вводятся с клавиатуры Turbo Pascal
0
|
03.06.2014, 11:55 | |
Готовые ответы и решения:
6
С клавиатуры вводятся 3 целых числа a, b, c. Составить программу Написать программу которая вводит с клавиатуры 2 целых числа без знака(тип string) и выводит на экран их а)сумму б)произведение. Количество цифр каждо Определить одного ли знака, два числа,вводимые с клавиатуры Определить одного ли знака, два числа,вводимые с клавиатуры |
03.06.2014, 11:55 | |
03.06.2014, 11:55 | |
Помогаю со студенческими работами здесь
0
. Составить программу, которая вычисляет факториал числа n, введенного с клавиатуры Составить программу, которая считывает с клавиатуры числа и записывает их в файл Составить программу, которая выводит на экран все натуральные числа в диапазоне от 1 до n, которые являются степенью числа 2 Составить программу, которая выведет максимальную степень одного числа в другом |