|
|
Другие темы раздела | |
PascalABC.NET Нужно вывести сообщение о том, что все элементы массива одинаковые
https://www.cyberforum.ru/ pascalabc-net/ thread694003.html b:=a; for i:=1 to n do begin for j:=1 to m do if b=a then t3:=true; end; Помогите пожалуйста, уже не знаю, что делать... проблема в том, что если дана матрица 4 4 4 3 3 3 |
Переменной Т присвоить значение true если сочетание день. месяц образует правильную дату PascalABC.NET 2. Составить программу, которая бы реализовала следующий алгоритм: переменной Т присвоить значение true если сочетание день. месяц образует правильную дату, и значение false- иначе(учитывая количество дней в месяце и название месяца). |
PascalABC.NET Нужно заново запросить ввод N и M, если они больше 20 или меньше 1, или равны 1 одновременно Проблема в том, что когда ввожу 1, происходит запрос заново. Например, ввожу 1 и 5. А когда 20, то всё хорошо. Помогите разобраться, пожалуйста. Вот фрагмент: Repeat WriteLn ('Введите размерность массива N*M (1<=N,M<=20) через пробел, нажмите Enter: '); ReadLn (n,m); Until ((N>=1) or (N<=20)) and ((M>=1) or (M<=20)) and ((N<>1) and (M<>1)); https://www.cyberforum.ru/ pascalabc-net/ thread693886.html | PascalABC.NET Вычислить сумму элементов в массиве после первого отрицательного Дан массив из n чисел. Вычислите сумму элементов в массиве после первого отрицательного. Program a6_2_8; const n=15; var a:array of integer; x,i,m,c:integer; begin randomize; for i:=1 to 15 do begin https://www.cyberforum.ru/ pascalabc-net/ thread693866.html |
PascalABC.NET По трем введенным сторонам определить площадь треугольника 1. Составить программу, которая вводит 3 числовых значения a, b, c и, рассматривая их как длины сторон треугольника, подсчитывает его площадь по формуле Герона: S = sqrt (p*(p-a)* (p-b)* (p-c)), где p = (a+b+c) / 2. В программе должен быть предусмотрен контроль правильности исходных данных. |
PascalABC.NET В матрице переставить набиольший элемент в верхний левый угол, а минимальный элемент в правый нижний угол Помогите разобраться... Пишет ошибку, когда считывает элементы массива из файла. И еще куда вставить проверку, что файл пуст и что элементы в массиве одинаковые?! Очень нужна помощь!!! const nmax=200; var a:array of integer; n,m,i,j,imax,jmax,imin,jmin,k:integer; f,g:text; begin repeat write('введите кол-во элементов в строке, N='); readln(n); until n in ; https://www.cyberforum.ru/ pascalabc-net/ thread693194.html |
PascalABC.NET Отсортировать слова в заданном списке по алфавиту
https://www.cyberforum.ru/ pascalabc-net/ thread692595.html добрий вечер! помогите решить задачу! напишите код програмы пожалуйста! буду очень благодарен! |
Во всех словах текстового файла первую букву слова заменить заглавной PascalABC.NET В этой задаче столкнулся с проблемой. В одном моменте надо переместить каретку назад. А в текстовом файле нельзя использовать seek. var f:text; i:byte; s:string; ch:char; begin writeln('Ââåäèòå òåêñò'); readln(s); |
PascalABC.NET Треугольная пирамида. Углы между основанием и боковой гранью
https://www.cyberforum.ru/ pascalabc-net/ thread692137.html Площадь полной поверхности правильной треугольной пирамиды равна S. Зная, что угол между основание и боковой гранью пирамиды равен F, составить программу, которая определяет, какой из двух углов больше: угол между основание и боковой гранью или же плоский угол при вершине пирамиды. |
PascalABC.NET Принадлежность точки множеству Составить программу, которая определяет, принадлежит ли точка Z(X,Y) множеству точек плоскости, произведение расстоянии от которых до осей координат равно модулю разности этих плоскостей. https://www.cyberforum.ru/ pascalabc-net/ thread692128.html |
Задача считалочка по олимпиаде PascalABC.NET имя входного файла mult.in имя выходного файла mult.out максимальное время работы на одном тесте 1 секунда ограничение по памяти 64 мб Машенька любит умножать целые числа.Ай да Машенька,умница девочка!Олимпиадница! Формат входных данных входной текстовый файл mult.in содержит не менее 1 и не более 10000 строк.В каждой строке записано одно целок число xi (-100000000< xi<100000000).... |
PascalABC.NET Найти определитель матрицы методом Гаусса
https://www.cyberforum.ru/ pascalabc-net/ thread690591.html Написать программу нахождение определителя матрицы методом Гаусса |
Фрилансер
|
||||||
11.11.2012, 09:17 | 0 | |||||
Дан массив из n чисел. Все четные элементы умножить на 3, а к нечетным прибавить 2 - PascalABC.NET - Ответ 368135711.11.2012, 09:17. Показов 2298. Ответов 1
Метки (Все метки)
Ответ
Вернуться к обсуждению: Дан массив из n чисел. Все четные элементы умножить на 3, а к нечетным прибавить 2 PascalABC.NET
1
|
11.11.2012, 09:17 | |
Готовые ответы и решения:
1
Дан массив целых чисел из 10 элементов.Все элементы кратные 10 заменить 0;Все нечетные элементы удвоить, а четные уменьшить на 2; Дан массив целых чисел. Все его элементы умножить на последний элемент Дан массив целых чисел. Напечатать все четные элементы дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b |
11.11.2012, 09:17 | |
11.11.2012, 09:17 | |
Помогаю со студенческими работами здесь
0
В матрице, записанной в файл, четные элементы разделить на 4, а к нечетным прибавить 10 Дан массив из n целых чисел.Удвоить все элементы послед-ти, значения которых четные. Дан массив целых чисел. Все четные элементы заменить на их квадраты, а нечетные удвоить Дан массив целых чисел. Вывести все четные элементы массива, стоящие на нечетных местах |