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

stl

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

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

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

Харесвания

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

Всичко за stl

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

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

    някой може ли да ми помогне с една програма на паскал че не разбирам почти нищо : да се състави програма за обработка на масива А[N,N] където данните са реални числа в интервала [-1000-1000].Съответните подпрограмида извършват следните действия: -отпечатване на условието на задачата -отпечатване на автора на програмата -въвеждане на входните данни -отпечатване на входните данни -а)да се образува едномерен масив С, елементите на който са елементите от масива А намиращи се под главниа диагонал,б) получения масив да се сортира по големина -отпечатване на получените резултати след обработка а) и обработка б) Програмата трябва да се направи чрез подпрограми процедури, ето и до къде съм стигнал: program KR2; uses WinCrt; const n=50; type matrix=array[1..n,1..n]of integer; red= array[1..n] of integer; var Z: matrix; D,E:red; w:char; k,s:integer; f1:text; procedure name; begin writeln (' This program was made by xxxxx'); end; procedure uslovie; begin Write('Da se sustavi programa za obrabotka na masiv A[N,N] kudeto'); Writeln('Dannite sa realni chisla v intervala [-1000 , 1000].'); Write('Da se obrazuva ednomeren masiv C, elementite na koito sa elementite na A[N,N]'); Writeln('namirashti se pod glavniq diagonal. Polucheniq masiv da se sortira po golemina.'); Writeln; end; procedure Input( q:integer; var z:matrix); var i,j:integer; label 1; begin for i:=1 to q do for j:=1 to q do begin 1: write('Enter ',w,'[',i,',',j,']: '); readln(z[i,j]); if (z[i,j]>-1000) or (z[i,j]<1000) then begin Writeln ('The valwe is not in the interval [1000,-1000]. Enter it again!'); goto 1; end; end; end;
  • Разглеждащи това в момента   0 потребители

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

×

Информация

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