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

maildaemon

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

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

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

Харесвания

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

Всичко за maildaemon

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

Контакти

  • ICQ
    0
  1. Лекция по теоретични основи на информатиката бла.

    1. Помощ за задачи на 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 потребители

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

    ×

    Информация

    Този сайт използва бисквитки (cookies), за най-доброто потребителско изживяване. С използването му, вие приемате нашите Условия за ползване.