Премини към съдържанието

Hois

Потребител
  • Публикации

    5
  • Регистрация

  • Последно онлайн

Харесвания

0 Неутрална репутация

Всичко за Hois

  • Титла
    Новобранец
  1. Hois

    Помощ за задачи на Pascal (merged)

    Здравейте(отново) имам лек проблем(от незнание или объркване нямам представа вече) с една задачка.Ето го и условието: Да се състави главна програма за обработка на два двумерни масива А[10,10] и B[12,12]. Данните и в двата масива са в интервала [-500 - 500]. Съответните подпрограми да извършват следните обработки: · извеждане на условието на задачата и името на автора · въвеждане на входните данни; · извеждане на входните данни; · минималните елементи на всеки ред да се изнесат в първата колонка, а максималните - в последната колонка; Да се определи броя на максималните елементи по-големи от зададено число М и броя на минималните елементи по-малки от зададено число N; · да се изведат резултатите; · резултатите да се запишат във външен файл на диск С: с име DATA07.DAT. До къде съм стигнал: program sedem; const p=4; q=3; var z,x:integer; A:array[1..p,1..p] of integer; B:array[1..q,1..q] of integer; i,j:integer; k,l:integer; n:byte; Procedure autor; begin writeln('uslovieto :'); writeln('avtor'); end; procedure enterMass; begin for i := 1 to p do for j := 1 to p do repeat writeln('A[',I,',',J,'] = '); readln(A[I,J]); until ((A[I,J] >= -500) and (A[I,J] <= 500)); writeln; for K := 1 to q do for l:=1 to q do repeat writeln('B[',K,',',L,'] = '); readln(B[K,L]); until ((B[K,L] >= -500) and (B[K,L] <=500)); writeln; end; procedure outmass; begin for I :=1 to p do begin for J:=1 to p do write(A[I,J],'|'); writeln; end; writeln; for K:=1 to q do begin for l:=1 to q do write(B[K,L],'|'); writeln; end; end; procedure filee; var i:byte; outfile:text; begin assign(outfile, 'Data.dat'); rewrite(outfile); for i:=1 to n do write(outfile,A[I,J],' '); writeln(outfile); close(outfile); end; begin autor; entermass; outmass; readln; filee; end. Та, нямам си представа как да го направя това с подреждането.Ясно е, че трябва да се сортира всеки ред, но това ми е слабо и то много, също така ми е мъгла това с броячът как се прави(предполагам е лесно, но за кой предмет да ча 1-во ).Също така нещо неще да изписва масива А във файлът Дата.дат, създава го, но не пише, ще съм много благодарен ако пак има някаква помощ
  2. Hois

    Помощ за задачи на Pascal (merged)

    @Melmak ®; kardjaliplus Леле благодаря ви страшнооо много, направо не ми се мисли какво щях да правя, мерси мерси мерси, дано някой ден се видим някъде да ви почерпя(най-малкото), мерси пак.ОбичАм ви @kardjaliplus да за жалост къде попаднах и аз незнам , а ти кой си, къде си
  3. Hois

    Появи се нов Linux, досущ като Vista

    И MS кой ще съдят? това е чарът на свободният софт
  4. Hois

    Помощ за задачи на Pascal (merged)

    Можеби трябва да се направи файл в който се записват данните и от там да се четат за А и С масивът нямам си и аз никаква представа
  5. Hois

    Помощ за задачи на Pascal (merged)

    Здравейте, имам да правя курсова задача с масиви, но има 2 неща които ме притесняват в нея тъй като въобще не сме ги учили в училище, а и на лекцийте все още не сме ги взели, та ще съм ви много благодарен ако някой ми помогне до колкото може с нея : Да се състави програма за обработка на масива Е[10,10] където данните са реални числа в интервала -1000,1000 Съставената програма да извършва следните действия: ¤Отпечатване на условието на задачата и името на автора ¤Въвеждане на входните данни ¤Отпечатване на входните данни ¤А) да се образува едномерен масив С, елементите на който са елементите от масива А със сбор от индексите си четно число ¤Б)Полученият масив да се сортира по големина ¤Отпечатване на получените резултати след обработка ¤Входните данни да се четат от файла с име DATA.DAT До къде съм аз Program KJAHKSH; const k = 10; type typeMas1 = array[1..k,1..k] of real; var A : TypeMas1; I : Real; res : Real; Flag : Boolean; begin for I :=1 to k do repeat write('vavedete chislo A[',I,'] = '); readln(A); until ((A >=-1000) and (A <=1000)); writeln; writeln('vyvedenite stojnosti na masiva E sa: '); writeln; for I := 1 to k do write(A : 4: 2); writeln; repeat flag:=True; if A > A[i+1] then begin Flag:=false; Res:=A A:=A[i+1] A[+1]:=Res end; until Flag; writeln('sortiraniqt masiv C e: '); for I := 1 to m do write(A:4:2]); readln; end. И до тук съм, даже се съмнявам и да има нещо вярно... Срокът ми на предаване е до Сряда, мерси предварително
  • Разглеждащи това в момента   0 потребители

    Няма регистрирани потребители разглеждащи тази страница.

×

Информация

Поставихме бисквитки на устройството ви за най-добро потребителско изживяване. Можете да промените настройките си за бисквитки, или в противен случай приемаме, че сте съгласни с нашите условия за ползване.