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

maildaemon

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

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

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

Харесвания

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

Всичко за maildaemon

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

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

    Здравейте всички. Курсовата ми задача беше за днес, но малко от несъобразителност се хванах да разучавам Pascal чак хммм 6h вчера сега съм ядосан понеже не успях да си я направя и реших поне да разбера езика. Така че започвам с задачата ми и докъде съм стигнал. Кодът ми предполагам е ужасен, но той и без това не тръгва за сега Да се състави програма за обработка на масива А[8,8], където данните са реални числа в интервала [-1000,1000]. Съответните подпрограми да извършват следните действия: * отпечатване на условието на задачата и името на автора;(пропускам го) * въвеждане на входните данни; * отпечатване на входните данни; * а) да се образува едномерен масив C[N], елементите на който са сумата от елементите на съответния ред от масива А, б) получения масив да се сортира по големина; * отпечатване на получените резулатати след обработката на а) и след обработката на б); * входните данни да се прочетът от файл; program zadacha; const N=4; //слагам го 4 за да върви по бързо debug-a var i,j,k:integer; F:boolean; x,s:real; A:array [1..N,1..N] of real; C:array [1..N] of real; begin for i:=1 to N do for j:=1 to N do begin writeln ('A[',i,',',j,']= '); readln (A[i,j]); end; for i:=1 to N do for j:=1 to N do writeln ('A[',i,',',j,']= ',A[i,j]:6:2); k:=1; repeat for i:=1 to N do begin s:=0; for j:=1 to N do begin s:=s+A[i,j]; C[k]:=s; k:=k+1 end; end; until k>N; for k:=1 to N do writeln ('C[',k,']= ',C[k]:6:2); repeat F:=true; for k:=1 to N do if C[k]>C[k+1] then begin x:=C[k]; C[k]:=C[k+1]; C[k+1]:=x; F:=False; end; until F; for k:=1 to N do writeln ('C[',k,']= ',C[k]:6:2); end. До тук я докарах продължавам нататък...
  • Разглеждащи това в момента   0 потребители

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

×

Информация

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