bekas
Долгожитель
|
Аналогично - ищите в интернете (если сами не изобретете что-то вроде "пузырька"), там алгоритмов сортировки - туча.
|
Всего сообщений: 379 | Присоединился: январь 2006 | Отправлено: 3 янв. 2009 18:15 | IP
|
|
Serega1992
Новичок
|
Bizarius, по поводу ребуса: 185368-92684=92684. Существуют программы для решения таких ребусов.
|
Всего сообщений: 50 | Присоединился: апрель 2008 | Отправлено: 3 янв. 2009 20:29 | IP
|
|
Konruseyd
Новичок
|
Здравствуйте...я новичек в паскале много болел и многое пропутил..чтобы не скатится мне дали задание. Сформировать квадратную матрицу размерности М<20 след вида. 1 0 0 . . 2 1 0 . . 3 2 1 . . . . . . . . М М-1 М-2 по логике я все понял получаятся что-то на подобие for i:= 1 to 19 do ... for j:= 1 to 19-i do ... Мои мысли. Если брать по строкам то надо отнимать по .1. тогда получитс желаемый результат но я застопарился и тупо стал смотреть в синий экран и дальше Begin никуда не ушел. Задание предельно простое по логике и сложное в написании для меня( Прошу помочь мне написать эту программу. Буду очень благодарен. Зарание Спасибо. (Сообщение отредактировал Konruseyd 12 янв. 2009 18:33)
|
Всего сообщений: 1 | Присоединился: январь 2009 | Отправлено: 12 янв. 2009 18:32 | IP
|
|
Old
Долгожитель
|
Цитата: Konruseyd написал 12 янв. 2009 18:32 Здравствуйте...я новичек в паскале много болел и многое пропутил..чтобы не скатится мне дали задание. Сформировать квадратную матрицу размерности М<20 след вида. 1 0 0 . . 2 1 0 . . 3 2 1 . . . . . . . . М М-1 М-2 по логике я все понял получаятся что-то на подобие for i:= 1 to 19 do ... for j:= 1 to 19-i do ... Мои мысли. Если брать по строкам то надо отнимать по .1. тогда получитс желаемый результат но я застопарился и тупо стал смотреть в синий экран и дальше Begin никуда не ушел. Задание предельно простое по логике и сложное в написании для меня( Прошу помочь мне написать эту программу. Буду очень благодарен. Зарание Спасибо. (Сообщение отредактировал Konruseyd 12 янв. 2009 18:33)
Program Konruseyd; var //j,j: integer; - здесь ошибка, должно быть: i,j: integer; a: array[1..19,1..19] of integer; begin for i:=1 to 19 do //внешний цикл пробегает по строкам begin for j:=1 to i do //внутренний цикл пробегает по столбцам до равенства индексов a[ i,j ]:=i-j+1; end; end. (Сообщение любезно отредактировал KMA исправив ошибки синтаксиса ) (Сообщение отредактировал KMA 15 янв. 2009 14:03) (Сообщение отредактировал Old 15 янв. 2009 14:47)
|
Всего сообщений: 285 | Присоединился: ноябрь 2006 | Отправлено: 13 янв. 2009 14:41 | IP
|
|
kstsen
Новичок
|
Народ. Помогите разобраться с задачой. Ввод множеств я сделал а отальное не получается «» усовие »» Даны три множества Х1, Х2, Х3, содержащие целые числа из диапазона 1..100. Известно, что мощность каждого множества равна 10. Сформировать новое множество Y в соответствии с заданием, выданным преподавателем. На экран вывести исходные и полученное множества. Значения элементов исходных множеств ввести с клавиатуры. Задание №13 Y = (X1 - X2) - (X2 - X3). Из множества Y выделить подмножество Y1, которое состоит из чисел, кратных 255. Определить мощность множества Y1. «»Код»» program lab2_1; uses dos,crt; type digits=set of 1..100; var x1,x2,x3,y,y1:digits; m,i:integer; f1,f2,f3:text; BEGIN clrscr; assign(f1,'d:\1\x1.txt'); assign(f2,'d:\1\x2.txt'); assign(f3,'d:\1\x3.txt'); {writeln('vvediti chisla');} y:=[];y1:=[]; reset(f1); reset(f2); reset(f3); for i:=1 to 10 do begin readln(f1,m); x1:=x1+[m]; readln(f2,m); x2:=x2+[m]; readln(f3,m); x3:=x3+[m]; end; CLOSE(F1); CLOSE(F2); CLOSE(F3); for i:=1 to 100 do if i in x1 then writeln('mn1= ',i); for i:=1 to 100 do if i in x2 then writeln('mn2= ',i); for i:=1 to 100 do if i in x3 then writeln('mn3= ',i); {______________________________vschislenie++++++++++++++++++++++++++++++++} for i:=1 to 10 do begiN y:=(x1-x2)-(x2-x3); write('y=',y); enD; read(i); END.
|
Всего сообщений: 1 | Присоединился: январь 2009 | Отправлено: 20 янв. 2009 2:00 | IP
|
|
BuHT
Новичок
|
Огромная просьба, помогите плиииз с задачей по паскалю, срочно нужно сдавать, никак не могу сделать.... Задача: Даны две целочисленные квадратные матрицы порядка 6. Найти последовательность из нулей и единиц b1...b6 такую, что bi=1, когда i-e строки первой и второй матриц содержат вместе не более трёх положительных элементов
|
Всего сообщений: 1 | Присоединился: январь 2009 | Отправлено: 21 янв. 2009 17:15 | IP
|
|
aly17
Участник
|
помогите пожалуста решить!!!!оч прошу!!!)) Составить главную программу и функцию. В функции для двух век-торов А(N) и В(М), состоящих из целых чисел, найти самое большое простое число, которое имеется в обоих векторах заранее огромное спасибо!!!
|
Всего сообщений: 107 | Присоединился: декабрь 2008 | Отправлено: 21 янв. 2009 20:39 | IP
|
|
KatenaN
Новичок
|
kstsen мой вариант и решение с коментариями. подправить думаю не так сложно Даны три множества Х1, Х2, Х3, содержащие целые числа из диапазона 1..100. Известно, что мощность каждого множества равна 10. Сформировать новое множество Y в соответствии с заданием, выданным преподавателем. На экран вывести исходные и полученное множества. Значения элементов исходных множеств ввести с клавиатуры. Y = (X1 + X2) * (X2 – X3). Из множества Y выделить подмножество нечетных чисел и найти его мощность. 2. Программа. program kontr21; {множества вводятся с клавиатуры; используемые переменные: х1,х2,х3 – начальные множества, y – искомое множество, y1 – подмножество нечетных чисел, m – мощность нечетного подмножества} Type Mnoj=set Of 1..100; var x1,x2,x3,y,y1,nech:Mnoj; i,a,n,m:integer; procedure chtenie(var x:Mnoj); {процедура ввода множеств} begin for i:=1 to 10 do begin read(a); x:=x+[a]; end; end; procedure vyvod(x:Mnoj); {процедура вывода множеств} begin m:=0; for a:=1 to 100 do if a In x then begin write(a,' '); m:=m+1; end; if m=0 then write('mnojestvo pustoe'); end; begin {ввод множеств} writeln('vvedite znacheniya elementov pervogo mnojestva'); chtenie(x1); writeln('vvedite znacheniya elementov vtorogo mnojestva'); chtenie(x2); writeln('vvedite znacheniya elementov tretego mnojestva'); chtenie(x3); {формирование нового множества} y:=(x1+x2)*(x2-x3); n:=1; {формирование множества нечетных чисел} while n<100 do begin nech:=nech+[n]; n:=n+2; end; {вывод результатов} writeln('mnojestvo X1'); vyvod(x1,m); writeln; writeln('mnojestvo X2'); vyvod(x2,m); writeln; writeln('mnojestvo X3'); vyvod(x3,m); writeln; writeln('mnojestvo Y'); vyvod(y,m); writeln; y1:=y*nech; {выделение подмножества нечетных чисел из множества y} y1:=y*nech; {вывод результатов} writeln('podvnojestvo nechetnyh chisel'); vyvod(y1,m); writeln; writeln('moschnost podmnojestva = ',m); readln; readln end.
|
Всего сообщений: 4 | Присоединился: январь 2009 | Отправлено: 24 янв. 2009 23:28 | IP
|
|
Old
Долгожитель
|
Цитата: BuHT написал 21 янв. 2009 17:15 Огромная просьба, помогите плиииз с задачей по паскалю, срочно нужно сдавать, никак не могу сделать.... Задача: Даны две целочисленные квадратные матрицы порядка 6. Найти последовательность из нулей и единиц b1...b6 такую, что bi=1, когда i-e строки первой и второй матриц содержат вместе не более трёх положительных элементов
----------------------- Program BuHT; var a,c: array [1..6,1..6] of integer; b: array [1..6] of integer; count: integer; begin for i:=1 to 6 do //внешний цикл пробегает по строкам матриц begin //1 count:=0; //перед внутренним циклом счетчик числа положительных элементов обнуляем for j:=1 to 6 do //внутренний цикл пробегает по столбцам матриц begin //2 if a[ i,j ]>=0 then count:=count+1; //счет неотрицательных эл-тов if c[ i,j ]>=0 then count:=count+1; end; //2 if count<4 then b[ i ]:=1 else b[ i ]:=0; //формирование вектора b[ i ] end; //1 end.
|
Всего сообщений: 285 | Присоединился: ноябрь 2006 | Отправлено: 25 янв. 2009 14:43 | IP
|
|
mity99
Новичок
|
Простенькая задачка Начав тренировку спорцмен в первый день пробежал 10 км, каждый день он увеличивал дневную норму на 10 % от предыдущего дня. Какой суммарный путь он пробежал за семь дней ? Если можно то напишите программый код (Сообщение отредактировал mity99 29 янв. 2009 16:27)
|
Всего сообщений: 12 | Присоединился: декабрь 2008 | Отправлено: 29 янв. 2009 16:25 | IP
|
|
|