Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Найти максимальную (минимальную) длину строк текстового файла t Написать программу ,которая находит максимальную (минимальную) длину строк текстового файла t. https://www.cyberforum.ru/ turbo-pascal/ thread775572.html Turbo Pascal Организовать циклические процессы с использованием оператора цикла в сочетании с оператором условного перехода
Здравствуйте. Помогите пожайлуста составить программу на Турбопаскале. Задание: Организовать циклические процессы с использованием оператора цикла в сочетании с оператором условного перехода(массивы не использовать) Пусть a(i)=(i-1)/(i+1)+sin(i-1)^3/(i+1), i=1,2... При заданном n среди a(1),a(2),...,a(n) найти все положительные числа среди них выбрать наименьшее число.
Turbo Pascal Составить программу для вывода в обратном порядке слов заданного текста https://www.cyberforum.ru/ turbo-pascal/ thread775531.html
Здравствуйте. Помогите пожайлуста составить программу на Турбопаскале. Задание:нужно составить программу для вывода в обратном порядке слов заданного текста(с блок схемой если не сложно) 		Turbo Pascal Цикл: если грузоподъемность лифта меньше либо равна Вес умножить на Количество,то вывести "Двери закрываются". https://www.cyberforum.ru/ turbo-pascal/ thread775527.html
Доброго дня.Только начала разбираться в общих циклах,как начали давать что-то страшное.Никто толком условие понять не смог,не то чтобы решить(группа в 10 человек ни до чего не дошла) Условие:Есть некая очередь(численностью k людей),причем каждый человек весит P кг(число не является константой,т.е вес у каждого человека разный).Имеется лифт,грузоподъемностью Т кг. При этом 1<k<100 ; 40<P<130...
Посчитать площадь площадь выпуклого четырёхугольника, если известны координаты его вершин. Turbo Pascal
Посчитать площадь площадь выпуклого четырёхугольника, если известны координаты его вершин. Площадь высчитывается по формуле S:= sqrt(p*(p-a)*(p-b)*(p-c)) Помогите пожалуйста !! 		Turbo Pascal Нарисовать весы https://www.cyberforum.ru/ turbo-pascal/ thread775511.html
помогите нарисовать! вообще не умею и не понимаю как это делать( рисунок не идеальный но приблизительно так его и надо нарисовать
Turbo Pascal текстовый файл https://www.cyberforum.ru/ turbo-pascal/ thread775509.html
Var f,g:text; s:string; k,i:integer; Begin Assign(f,'in.txt');Reset(f); While not Eof(f) do Begin readln(f,s); For i:=1 to Length(s) do if s in then inc(k); 		Задача: и 2-й массив и черно-белое изображение Turbo Pascal
Самый простой способ представления изображений в памяти компьютера заключается в том, что для каждого пикселя в файл записывается его цвет. То, как этот цвет представляется в памяти компьютера, зависит от выбора цветовой модели изображения. Так, если изображение черно-белое, цвет каждого пикселя может быть представлен всего одним числом, равным нулю, если пиксель белый, и единице, если пиксель...
Turbo Pascal Если значения двух переменных равны по модулю, то присвоить каждой переменной произведение этих значений по модулю Даны 2 переменные целого типа: A и B. Если их значения равны по модулю, то присвоить каждой переменной произведение этих значений по модулю, а если не равны, то поменять местами значения переменных. Вывести значения. помогите есть примерная похожая задача. но не та . Program N5; Var a,b,s: Integer; Begin Write('Введите A и B: '); Readln(a,b); s:=a+b; begin a:=s; https://www.cyberforum.ru/ turbo-pascal/ thread775476.html Turbo Pascal Динамическая память: вставить в список L новый элемент F перед первым вхождением элемента E народ здраво нужна ваша помощь! нужна написать задачу по условию " Составить программу, которая вставляет в список L новый элемент F перед первым вхождением элемента E, если E входит в L." но написать надо строго вот по этому примеру. ВЫРУЧАЙТЕ) program kama; {$APPTYPE CONSOLE} type compptr=^comp; comp=record data:integer; next:compptr; end; var https://www.cyberforum.ru/ turbo-pascal/ thread775472.html
текстовый файл Turbo Pascal
Дан текстовый файл f. Записать в файл g количество цифр в тексте??? помогите пожалуйста очень нужно, и если можно с блок-схемой?! 		Turbo Pascal Сформировать и вывести на печать матрицу А [10,10] Сформировать и вывести на печать матрицу А .элементы которой заданы произвольно,кроме элементов,расположенных в заштрихованной области,вычисляемых по формуле А(i,j)=-2j+i-5.Упорядочить по возрастанию элементы побочной диагонали. В первом блоке условия ниписано:"i=>11-j and i>j" В первом блоке процесс,который идет вниз,по плюсу:"A=-2i+j-5" Во втором блоке процесс,который находится правее... https://www.cyberforum.ru/ turbo-pascal/ thread775428.html
107 / 107 / 110
Регистрация: 28.02.2011
Сообщений: 978
30.01.2013, 21:42 0

Получить третий массив той же размерности, каждый элемент которого равен большему из соответствующих элементов данного массива. - Turbo Pascal - Ответ 4073670

30.01.2013, 21:42. Показов 2128. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

 program L1;
uses crt;
var A,B,C:array [1..100]of integer;
i,n:integer;
procedure InitMM(k:integer);
begin
for i:=1 to k do
 begin
  a[i]:=random(60)-10;
  b[i]:=random(50)-8;
 end;
end;
 
begin
readln(n);
InitMM(n);
writeln('A');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('B');
for i:=1 to n do
write(b[i]:4);
writeln;
writeln('C');
for i:=1 to n do
if a[i]>b[i] then c[i]:=a[i] else c[i]:=b[i];
for i:=1 to n do
write(c[i]:4);
writeln;
readln;
end.


Вернуться к обсуждению:
Получить третий массив той же размерности, каждый элемент которого равен большему из соответствующих элементов данного массива. Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 30.01.2013, 21:42
Готовые ответы и решения:

Получить третий массив, каждый элемент которого равен большему из соответствующих элементов данных массивов
Даны два целочисленных массива, состоящие из одинакового числа элементов. Получить третий массив...

Получить третий массив такой же размерности, каждый элемент которого равен большему из соответствующих элементов данных массивов
Даны 2 одномерных массива одинаковой размерности. Получить третий массив такой же размерности,...

Получить третий массив той же размерности, каждый элемент которого равен большему из соответствующих элементов данного массива
Плиз, помогите решить задачу!!! Скоро сессия, не успеваю решить все задачи!!! Выручайте!!! Даны...

Получите третий массив той же размерности, каждый элемент которого равен большему из соответствующих элементов
Помогите решить задачу Создать два одномерных массива, состоящие из одинакового числа элементов....

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

Получить третий массив, каждый элемент которого равен большему из соответствующих элементов заданных массивов.
Даны два целочисленных массива, состоящие из одинакового числа элементов. Получить третий массив...

Создать третий массив той же размерности, каждый элемент которого равен сумме соответствующих элементов первых двух.
Даны два двумерных массива одинаковой размерности. Создать третий массив той же размерности, каждый...

Получить третий массив С такой же размерности, каждый элемент которого равен сумме соответствующих элементов массивов А и В.
3. Даны два одномерных массива А и В одинаковой размерности. Получить третий массив С такой же...

Получить третий файл: каждый элемент которого равен большему из соответствующих элементов заданных файлов
Имеются два файла одинакового размера, элементами которых являются числа. Получить третий файл:...

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