Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела

Turbo Pascal Написать программу, которая выводит на экран узор Написать программу, которая выводит на экран узор, изображенный ниже. Контур прямоугольников окружностей должен быть разного цвета (см. таблицу кодировки цветов). Прямоугольники должны быть разного цвета. Использовать заливку каждому квадрату. При нажатии на клавишу Tab стирать экран, при нажатии на Enter продолжать рисовать, при нажатии на Esc выполнить завершение программы. https://www.cyberforum.ru/ turbo-pascal/ thread535504.html

Turbo Pascal Запись в txt с процедуры
Мне нужно что бы в txt файл otvet.doc записалось то, что выводиться с помощью процедуры "Перегляд" на экране...Если считывать с файла - все норм, но если вручную - не получается...Подскажите кто знает Вот исходник: program menu; uses crt; Const punkt:array of string=('‚ўҐ¤Ґ**п § Є«*ўi*вгаЁ','‚ўҐ¤Ґ**п § д*©«г','ЋЎа®ЎЄ*','ЏҐаҐЈ«п¤' ,'‡ЎҐаҐЈвЁ г д*©«','Џа® Їа®Ја*¬г','‚Ёеi¤'); nVertex=50;...

Turbo Pascal Создать связанный список из записей, содержащих сведения о студентах (№ группы, фамилия, год рождения), реализовать операции со связанным списком: https://www.cyberforum.ru/ turbo-pascal/ thread535495.html
Uses Crt; Type SType = string; Link = ^Rec; Rec = record Gryppa:SType; KlvP:String; KlvG:String; Next:Link; end;

Turbo Pascal Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле аi =i* аi-1 + аi-2 , где а1 = а2 = 1, i=3,4 Составьте косвеную рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле аi =i* аi-1 + аi-2 , где а1 = а2 = 1, i=3,4,5, … https://www.cyberforum.ru/ turbo-pascal/ thread535466.html

Подсчитать количество символов в словах Turbo Pascal
Условие В файле находятся слова, состоящие из латинских букв ('a'..'z', 'A'..'Z'), знаков подчёркивания ('_') и цифр ('0'..'9'). Слова отделены друг от друга единственным символом: пробелом либо переводом строки. Последним символом в файле также является пробел либо перевод строки. Для каждого слова требуется вывести его длину. Ответы требуется разделять символом перевода строки. Длина...

Turbo Pascal Составить функцию поиска первого отрицательного элемента в одномерном массиве https://www.cyberforum.ru/ turbo-pascal/ thread535451.html
Составить функцию поиска первого отрицательного элемента в одномерном массиве.

Turbo Pascal Автозаправка: Описать структурную и функциональную схемы системы условие: Одноканальная СМО представляет собой автозаправку. Заявки - авто, поступающих в систему из двух автотрасс с частотой 24 ± 4 мин. и 66 ± 2 мин. соответственно. Среднее время обслуживания 18 ± 2 мин. Максимальная величина очереди - 6 авто. Все стохастические величины подчиняются равномерному закону распределения (сгенерировать ряд согласно алгоритму Лемера). Описать структурную и... https://www.cyberforum.ru/ turbo-pascal/ thread535446.html

Нахождение целых и вещественных чисел Turbo Pascal
Начальный вклад в банке равен 1000руб.Через каждый месяц размер вклада увеличивался на Р процентов от имеющейся суммы (Р-вещественное число, О<Р<25). По данному Р определить,через сколько месяцев размер вклада превысит 1500руб,и вывести найденное кол-во месяцев К(целое число) и итоговый размер вклада 5(вещественное число). Для вывода вещественных чисел применяйте формат: 10 знаков под число,4...

Turbo Pascal Выяснить, имеются ли в матрице ненулевые элементы https://www.cyberforum.ru/ turbo-pascal/ thread535377.html
1)дана действительная квадратная матрица порядка 15. выяснить,имеются ли в матрице ненулевые элементы,и если имеются,то указать индексы всех ненулевых элементов. 2)даны натуральные числа i и j,действительная матрица размерами m*n(1<=i<j<=n).Поменять в матрице местами i-й и j-й столбцы. 3)Дана действительная квадратная матрица порядка n, натуральные числа i и j(1<=i<=n,1<=j<=n)/Bp матрицы...

Turbo Pascal Сложение, вычитание, умножение многочленов https://www.cyberforum.ru/ turbo-pascal/ thread535351.html
Может быть кому-нибудь пригодится. Программка складывает, вычитает, умножает многочлены и выводит на экран результат. Организованно на линейных динамических списках. {VSFS} program iPolinom; type ukazatel=^element; element=record koef:integer;

Turbo Pascal Матрица. Поменять местами столбец N и столбец, содержащий только отрицательные элементы
Дана матрица размера M.N. Поменять местами столбец с номером N и первый из столбцов, содержащих только отрицательные элементы. Если требуемых столбцов нет, то вывести матрицу без изменений.

Turbo Pascal Создать типизированный файл записей, содержащий данные о книгах Добрый день. Помогите пожалуйста!!! У знакомой курсовая робота... Попросила помочь но у меня самого дипломная робота... Сроки поджимают, буду очень благодарен за содеянную помощь. Вот само задание курсовой роботы. Создать типований файл записей, содержащий данные о книгах. Поля записи - автор, название, год издания, раздел (естественные, точные науки, исторические и т.д.). Справки для поиска:...

MayaNash

1296 / 469 / 151

Регистрация: 24.08.2011

Сообщений: 2,249

31.03.2012, 22:52

Все отрицательные числа массива возвести в квадрат - Turbo Pascal - Ответ 2859170

31.03.2012, 22:52. Показов 1219. Ответов 1

Метки (Все метки)

Сообщение было отмечено ElliotHell как решение

Решение

Pascal

unit matrix;
 
interface
 
type mtx = array [1..500] of integer;
procedure newMatrix(var m: mtx; var n: integer);
function even(const m: mtx; n: integer): longint;
procedure sqrMinus(var m: mtx; n: integer);
 
{----------------------------------------------------------------}
 
implementation
 
procedure newMatrix;
var i: integer;
begin
write('n = '); readln(n);
for i:=1 to n do read(m[i]);
end;
 
function even;
var i: integer;
    tmp: longint;
begin tmp:=1;
for i:=1 to n do
 if not odd(m[i]) then tmp:=tmp*m[i];
even:=tmp;
end;
 
procedure sqrMinus;
var i: integer;
begin
for i:=1 to n do
 if m[i] < 0 then m[i]:=sqr(m[i]);
end;
{----------------------------------------------------------------}
 
begin end.

Файл назовете matrix.pas, обязательно.

Вернуться к обсуждению:
Все отрицательные числа массива возвести в квадрат Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

31.03.2012, 22:52

Готовые ответы и решения:

Возвести в квадрат все нечетные отрицательные числа массива
В массиве А(n), состоящем из целых чисел, возвести в квадрат все нечетные отрицательные числа, а...

Возвести в квадрат все нечетные отрицательные числа
В массиве A(n), состоящий из вещественных чисел, возвести в квадрат все нечетные отрицательные...

Массив. Возвести в квадрат все нечетные отрицательные числа, а положительные четные заменить на единицу
В массиве A(n), состсящим из целых чисел, возвести в квадрат все нечетные отрицательные числа, а...

Возвести в квадрат отрицательные числа и в третью степень
13. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные...

	31.03.2012, 22:52

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

31.03.2012, 22:52

Помогаю со студенческими работами здесь

Возвести в квадрат отрицательные числа, в куб положительные числа
Даны 3 целые числа,возвести в квадрат отрицательные числа,в куб положительные числа.Результат...

Возвести в квадрат отрицательные числа и в третью степень — положительные
Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные...

Найти сумму элементов массива, принадлежащих промежутку от a до b. Отрицательные элементы массива возвести в квадрат
Дан одномерный массив чисел. Найти количество элементов массива, равных заданному числу, и вывести...

Массив. Возвести в квадрат все нечетные отрицательные, а положительные четные заменить на единицу
В массиве А(n), состоящем из целых чисел, возвести в квадрат все нечетные отрицательные числа, а...

Наверх