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

diavola90

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

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

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

Харесвания

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

1 Последовател

Всичко за diavola90

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

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

    здравейте колеги, написах малко от програма та но зациклих, написах функцията за отделяна на цифрите на числото, но незнам как ще стане да отделя в границата на двете числа а то само отделя на първото. Ето и кода var i,n,d,:integer; A,B,C,R:longint; mas1:array[1..400] of real; mas2:array[1..400] of real; cif:array[1..400] of real; begin write('v1vedete parvoto chisloto ='); readln(A); write('v1vedete parvoto chisloto ='); readln(B); for i:=1 to 15 do begin if (A<>0) then begin C:=A mod 10; A:=A div 10; cif:=C; end; n:=n+1; end; for i:=1 to 15 do writeln(cif:0:0); readln end. моля помогнете ...
  2. diavola90

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

    Здравейте колеги, имам да пиша програма на pascal, имам идея как ще стане но стигам до задънена улица и немога да продаължа. Ако можете да помогнете ще съм ви много благодарен. Ето и заданието: Ако потребителят задава две произволни естествени числа A и B, да се състави блок-схема и програма на Pascal разпределящи числата разположени между A и B в два масива mas1 и mas2 така че: - в пурвият масив се постават тези числа, на които сумата от цифрите е четно число. - вув вторият масив се поставят тези числа, на които всички цифри са нечетни.
  3. diavola90

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

    Здравейте, намрих подобна задача. Някой ако може да я погледне , защото дава една грешка и незнам каквае, моля някой да помогне. Type Danni=real; Msv1=array[1..50,1..50] of danni; Msv2=array[1..400] of danni; Msv3=array[1..400] of danni; Var F:Msv1; i,M:integer; B:Msv2; Q:Msv3; FromFl:file of Danni; ImeFl:string[20]; procedure SzdRpz; var ch:char; begin Rewrite(FromFl); close(FromFl); writeln; writeln('==========FAJL1T E S1ZDAEN=========='); writeln; end; {procedura za vavejdane na mnogomeren masiv} Procedure InMas(Var El:Msv1); Var BrSt:integer; BrRd:integer; l,k:integer; Begin Write('vav broq na redovete:'); Readln(BrRd); Write('vav broq na stalbovete:'); Readln(BrSt); l:=1;k:=1; For l:=1 to BrRd do {broj redove} For k:=1 to BrSt do {BrSt broj stalbove} begin Write('vavedete element: '); Readln(el[l,k]) end; end; {procedura za smqna na masiva} procedure Smqna(A:Msv2); var El:Msv1; p:real; i,l,k:integer; BrSt:integer; BrRd:integer; begin i:=0; For l:=1 to BrRd do {broj redove} For k:=1 to BrSt do {BrSt broj stalbove} begin p:=El[l,k]; i:=i+1; A:=p end; end; {procedura za sortirane chrez vmakvane} Procedure Vmakvane(n:integer;Var A:Msv2); Var i,j:integer; T:danni; Begin For i:=2 to n do begin j:=i; T:=A; While (j>1) and (T<A[j-1]) do begin A[j]:=A[j-1]; j:=j-1 end; A[j]:=T end End; {procedura za sortirane na chislata razlichni ot 6} procedure Delene(M:Msv3); var A:Msv2; p:real; l:integer; BrSt:integer; BrRd:integer; begin For l:=1 to i do begin p:=A; p:=p/2; if p <> 6 then M[l]:=p end; end; {procedura za dobavqne danni k1m fajla} procedure Dobavqne; begin Reset(FromFl); Seek(FromFl,FileSize(FromFl)); Delene(q); Close(FromFl); writeln; end; {procedura za izpisvane na dannite} Procedure Spis; begin reset(FromFl); Writeln(' ':10,'S1d1rjashta informaciq v fajla'); while not EOF(FromFl) do begin Delene(Q); end; close(fromFl); readln; end; Begin writeln; Write ('zadajte imeto na fajla: '); readln(ImeFl); Assign(FromFl,ImeFl); writeln; SzdRpz; InMas(f); Smqna(B); Vmakvane(M,B); Dobavqne; Spis; End.
  4. diavola90

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

    Здравейте имам да пиша програма на pascal с процедури, но нищо не мога да направя ,ако някой има малко време моля да помоgne. моля помогнете, че нищо не разбирам от това програмиране Да се разработят на програмен език Паскал процедури за: a)Създаване на Многом. масив с елементи от Реален тип; b)Прехвърляне на информацията от създадената в процедура а) структура в Едномер. Масив; c)Сортиране на създадената в процедура b) структура; d)Да се обработи създадената в процедура c) структура като се отстранят всички елементи съдържащи числа, които разделени на 2 са различни от 6.0; e)Запазване на създадената в процедура c) структура като файл. Възстановяване на създадената в процедура e) структура от файл(да се изведе съдържанието на файла);
  • Разглеждащи това в момента   0 потребители

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

×

Информация

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