Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Нахождение длины той части строки s, которая не содержит символы из строки s1 https://www.cyberforum.ru/ turbo-pascal/ thread363067.html
Разработать процедуру или функцию StrCSpn(s,s1) , выполняющую нахождение длины той части строки s, которая не содержит символы из строки s1 . Строка представляется в виде массива элементов типа char (одиночных символов). Индексация массива начинается с 0. Первый элемент массива содержит однобайтный двоичный код числа - текущая длина строки, следующие байты содержат ASCII-коды символов строки,... 		Составить блок схему к готовому коду Turbo Pascal
Нарисуйте блок-схему к этой программе
Turbo Pascal Вывести массив A, затем массив B, потом максимальные элементы массивов поменять местами https://www.cyberforum.ru/ turbo-pascal/ thread363019.html
с помощью подпрограммы вывести массив A ,затем массив B, потом максимальные элементы массивов поменять местами. должно быть 3 подпрограммы: 1-ввод массива 2-найти максимальные элементы 3-вывод массива эти два массива(A и B) должны выводиться 2 раза:(в начале после ввода) и в конце(после перестановки максимума) 		Turbo Pascal написать программу вычисляющие ИМЛ с помощью узлов Чебышева помогите кто чем может https://www.cyberforum.ru/ turbo-pascal/ thread363014.html
Turbo Pascal Найти наибольший общий делитель
даны натуральные числа a и b,найти их: а)наибольший общий делитель б)наименьшее общее кратное 		Turbo Pascal Вывести список телефонный номеров задаваемого подразделения и определить их количество. https://www.cyberforum.ru/ turbo-pascal/ thread362941.html
Файл содержит сведения из телефонного справочника организации: название подразделения, фамилия, имя, отчество и телефонный номер. Вывести список телефонный номеров задаваемого подразделения и определить их количество. ПОМОГИТЕ ВЫВЕСТИ КОЛИЧЕСТВО И СПИСОК!:sorry: Program File; var F: text; Naz,Fio:string; Tel,n,k:integer; Begin k:=0; Writeln('n');...
Turbo Pascal привлекательность и недостатки методов ортогонализации Помогите пожалуйста ответить на вопрос: В чем привлекательность и в чем недостатки методов ортогонализации https://www.cyberforum.ru/ turbo-pascal/ thread362938.html Блок схема case =) Turbo Pascal
Program zadacha_13; uses crt; var n:byte; st:string; begin clrscr; repeat write('Введите возраст от 20 до 69 n='); readln(n); until n in ;
Turbo Pascal Решите проблему... https://www.cyberforum.ru/ turbo-pascal/ thread362901.html
Немогу решить проблему ,,, Помогите плиз! var a:array of integer; b:array of integer; i,j,n:integer; procedure vvod(m:integer;var a1:array of integer); var i1,j1:integer; 		Turbo Pascal Программа не выводит ответ переформировав задачу в цикл с предусловием и постусловием,не выводится ответ. задача вроде легкая,но видимо чего-то я не понимаю. взято из этой темы. Program zadanie_2; {не выводит ответ} var i,kol,n:integer; begin write('введите n: '); readln(n); kol:=0; i:=10; while i<=99 do if (i mod 10)*(i div 10)=n then https://www.cyberforum.ru/ turbo-pascal/ thread362900.html
Turbo Pascal Заданы M строк слов, которые вводим сами. Вводится слог,После каждого слога поставить звездочку.
заданы M строк слов, которые вводятся с клавиатуры. Вводится слог(последовательность букв).После каждого слога в строке поставить звездочку. вот пример программы , текст звучит так:заданы M строк слов, которые вводятся с клавиатуры. Вводится слог(последовательность букв).Удалить данный слог из каждой строки. (вроде бы сделана правельно, если нет прошу исправить ошибки),и на подобии этой... 		Turbo Pascal задача с 4мя циклами Всем здрасти! Тут мне задачку дали выплнить на Turbo Pascal 7: Дана функция f(x)=1/x-1arctg1/x-2 Интервал х Количество точек n=20 Само задание звучит так: Вычислить сумму s значений функции f в точках х(i), которые беруться с заданного интервала через равные отрезки длиной h, h=b-a/n-1. Здесь i-1,2,3,4,5...номер точки; n-задавемое кол-во точек. Вывести на экран вычисление, полученное с... https://www.cyberforum.ru/ turbo-pascal/ thread362862.html
1 / 1 / 0
Регистрация: 13.04.2009
Сообщений: 53
10.10.2011, 18:00  [ТС] 0

Массив - Turbo Pascal - Ответ 2057841

10.10.2011, 18:00. Показов 733. Ответов 15
Метки (Все метки)

Ответ

Цитата Сообщение от Zhexon Посмотреть сообщение
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
33
34
35
36
37
38

uses crt;
const n=5;xn=1;xk=25;
type mas=array[1..n] of integer;
var res,x:mas;
max,min,p,i,j:integer;
a:boolean;
begin clrscr;
 writeln(' Vvedite ',n, ' chisel');
 for i:=1 to n do read (x[i]);
 writeln(' ':10,'Ishodniu massiv ');
 FOR I:=1 TO N DO
 WRITE(X[I]:4); WRITELN;
 readln;
 max:=-maxint;
 min:=maxint;
 j:=0;
 for i:=1 to n do
 if (x[i]<=xk) and (x[i]>=xn) and (odd(x[i])) then begin
 inc (j); res[j]:=x[i];
 end;
repeat
 a:=true;
 for i:=1 to j-1 do if res[i]>res[i+1] then begin
 a:=false;
 p:=res[i];
 res[i]:=res[i+1];
 res[i+1]:=p;
 end;
 until a;
 writeln('massiv otsortirowan :');
 for i:=1 to j do write(res[i],' '); writeln;
 if j>3 then begin
 P:=res[1]*res[2]*res[j]*res[j-1];
 Writeln('P= ',p);
 end
 else writeln('net dostatochnogo kol-wa elementow');
readln
end.

Тут выберает одинаковых макс и мин числа,если не повторяется число макс или мин,то выдает,что "Нет достаточного ко-ва элементов",а надо просто самые большие и маленькие 2 числа

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

Дан массив целых чисел а(12). Переписать в массив х четные, а в массив у нечетные элементы массива а
Помогите пожалуйста решить эту задачу. Массив a выводит на печать. Я пишу a mod 2 = 0 , а он мне 41...

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

Дан массив А. Составить массив В, в котором b[ i ]=a[0]+a[1]+a[2]+....+a[ i ] i=0,1,2,3,4......n-1. Распечатать массив В
Дан массив А. Составить массив В, в котором b=a+a+a+....+a i=0,1,2,3,4......n-1. Распечатать массив...

Массивы. В массив С переписать сначала массив А затем массив В
В массив С переписать сначала массив А(20) затем массив В(20). Вывести все три массива. ...

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

Дан массив А[М] — массив чисел. Получить массив С, элементами которого будут модули сумм рядом стоящих чисел
Реализовать в виде модуля набор подпрограмм для выполне¬ния сле-дующих операций над целыми числами:...

Из заданного текста выбрать цифры и записать в массив N, а буквы- в массив B. Все остальные символы записать в массив S
подскажите как делать Из заданного текста выбрать цифры и записать в массив N, а буквы- в массив...

Считать массив из файла и отсортировать его. Отсортированный массив сохранить в файл
Создать одномерный массив. Сохранить его в файл. Считать массив из файла и отсортировать его....

Квадратный массив C(m,n) преобразовать в массив D(m,n) в котором строки из C поменяются местами со столбцами.
Квадратный массив C(m,n) преобразовать в массив D(m,n) в котором строки из C поменяются местами со...

Вводится массив целых чисел. Сформировать из его элементов новый массив
Вводится массив A(n) целых чисел.Сформировать из его элементов новый массив B(n) в котором:...

Записать в массив Y элементы массива A имеющие четные индексы, а в массив C нечетные
Задание: Выбрать из таблицы функцию в соответствии с вариантом задания. Разработать алгоритм и...

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