Вече я направих Благодаря Ви. Помогнахте ми

Здравейте!Трябва ми една простичка задача на Паскал но незнам как да я реша: а, б ако а>б -> си остават ако а<б -> се разменят Благодаря предваително!

Здравейте!Трябва ми една простичка задача на Паскал но незнам как да я реша:

а, б ако а>б -> си остават

ако а<б -> се разменят

Благодаря предваително!

if a<b then
begin
  t:=a;
a:=b;
b:=t;
end;

if a<b then
begin
  t:=a;
a:=b;
b:=t;
end;

Благодаря за помощта но май трябва да се напише още нещо, защото така ми дава грешка за ";".Изобщо ме няма в Паскал.

Благодаря за помощта но май трябва да се напише още нещо, защото така ми дава грешка за ";".Изобщо ме няма в Паскал.

Прочети поне, какво представлява структурата на една програма в Pascal.

Прочети поне, какво представлява структурата на една програма в Pascal.

Добре, Благодаря!Радвам се, че ми помогнахте

Moля ако някой може да ми помогне с тези задачи. Трябват ми за понеделник или вторник.

1.Съставете блок схема на алгоритъма за изчисляване на заплатите, съгласно следните правила:

Ако стажа на работника е по малък от 5 години – заплатата е 500лв.

При стаж от 5 до15 години – 700лв., и при стаж над 15 години заплатата се увеличава с 25 лв. За всяка година.

2.По време на голямото междучасие гладен ученик отишъл в стола за да си купи 5 сандвича. Пари за такова количество сандвичи обаче нямал в себе си. Ученикът, който бил до него, го посъветвал да използва такъв алгоритъм:

• Докато не изчезне чувството за глад да повтаря.
• Купува 1 сандвич.
• Край на цикъла.
• Яде сандвич.

2.1Намерете грешките и начертайте блок схема на правилният алгоритъм, така че ученика да не си тръгне гладен от столовата.

3.Да се състави блок схема на алгоритъма за намиране на сумата на четните числа от 50 до 500.

ПП: много ще сам Ви задължен!!! Благодаря предварително !!!

здр от скоро почнах да уча паскал и имам затруднения, имам да правя задача на паскал с процеури за създаване на списък, разпечатване, добавяне на елемент в списъка, изтриване не елемент от списъка, сортиране, обхождане до 1-ви срещнат и обхождане по дадено условие. Знам, че не сте длъжни да ми направите задачата, но ще съм благодарен ако някои удари едно рамо да каже как да продължа нататак. Благодаря за отделеното време Ето до къде сам стигнал: ---------> program firstsp; type tse=record i1:integer; i2:char; p16:string; n:^tse {te=^tse} end; var h, w:^tse; y:char; procedure newsp(var fh:^tse) begin writeln('iskash li nov el.'); readln(y); if y<>'n' then begin new(fh); w:=fh; while y<>'n' do begin readln(fh^.i1,fh^.i2,fh^.p16); writeln('iskash li now '); readln(y); if y<>'n' then begin new(w^.n); w:=w^.n; end; else w^.n; end; end; end; procedure print(fh:^tse); begin w:fh; while w<>nil do begin writeln(w^.i1,w^.i2,w^.p16); w:=w^.n end; end.

Редактирано 20 ноември 201114 г. от san4o1989 (преглед на промените)

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

Здравейте колеги,

имам да пиша програма на pascal, имам идея как ще стане но стигам до задънена улица и немога да продаължа. Ако можете да помогнете ще съм ви много благодарен.

Ето и заданието:

Ако потребителят задава две произволни естествени числа A и B, да се състави блок-схема и програма на Pascal разпределящи числата разположени между A и B в два масива mas1 и mas2 така че:

- в пурвият масив се постават тези числа, на които сумата от цифрите е четно число.

- вув вторият масив се поставят тези числа, на които всички цифри са нечетни.

здравейте колеги, написах малко от програма та но зациклих, написах функцията за отделяна на цифрите на числото, но незнам как ще стане да отделя в границата на двете числа а то само отделя на първото.

Ето и кода

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.

моля помогнете ...

След въвеждане на двете числа A и B, определи кое от тях е по-малко и организирай един цикъл от A до B.

Това са числата разпшоложени между двете крайни.

Изнеси кода за проверяване на числата в отделни процедури. В тях ще определяш кое число към кой масив да се добави.

За всяко число в цикъла извикваш тези процедури, подавайки числото като параметър.

Примерно :

program Project;
var
  EvenSumsArrayCounter: integer;
  OddDigitsArrayCounter: integer;
  counter, a, b, c: integer;
 
  EvenSumsArray: array[1..100] of integer;
  OddDigitsArray: array[1..100] of integer;

function SumOfDigitsIsEven(number: integer): boolean;
var
  Sum: integer;
  tempNumber: integer;
begin
  Sum := 0;
  tempNumber := number;
  while tempNumber > 0 do
  begin
    Sum := Sum + (tempNumber mod 10);
    tempNumber := tempNumber div 10;
  end;
  Result := not Odd(Sum);
end;

function OddDigits(number: integer): boolean;
var
  tempNumber: integer;
  OddDigit: boolean;
begin
  OddDigit := True;
  tempNumber := number;
  while (tempNumber > 0) and OddDigit do
  begin
    OddDigit := Odd(tempNumber mod 10);
    tempNumber := tempNumber div 10;
  end;
  Result := OddDigit
end;  
 
 
begin
  Write('Въведете първото число:');Readln(A);
  Write('Въведете второто число:');Readln(B);  
  if A > B then
  begin
    C := A;
    A := B;
    B := C;
  end;
  if (B - A) < 100 then
  begin
    EvenSumsArrayCounter := 0;
    OddDigitsArrayCounter := 0;
    for counter := A to B do
    begin
	  if SumOfDigitsIsEven(counter) then
	  begin
	    Inc(EvenSumsArrayCounter);
	    EvenSumsArray[EvenSumsArrayCounter] := counter;
	    memo1.Lines.Add(inttostr(counter));
	  end;
	  if OddDigits(counter) then
	  begin
	    Inc(OddDigitsArrayCounter);
	    OddDigitsArray[OddDigitsArrayCounter] := Counter;
	    memo2.Lines.Add(inttostr(counter));	    
	  end;
    end;
  end else
    Writeln('Разликата между числата не може да е по-голяма от 100 !');

end.

Здравейте.

Трябва да правя курсова работа по програмиране с Паскал.

Интересното е , че програмния код съм си го написал и работи, но тези блок-схеми въобще не ги разбирам.

Моля ако някой има желание да помогне с блок схемата.

Ето я и задачата.

За група студенти са зададени име,ЕГН,фак,номер,оценките по 10 дисциплини,среден успех.Да се създаде програма , използваща подпрограми за:

1-създаване на масив с информация за групата студенти

2-изчисляване на средния успех на всеки един от студентите

3-определяне броя на студентите който имат повече от една двойка.

Ето го програмния код:

Program KursovaZadacha;

uses dos,crt;

type o=array[1..10] of 2..6;

Stud=record

ime:string;

EGN:string;

FacNo:string;

oc:o;

Su:real;

end;

Var

gr:array[1..50] of stud;

n,i,j,dve :integer;

ch :char;

Procedure ReadStud (var st:stud);

var l,l1:Integer;

begin

writeln;

write('Vuvedete imeto na studenta: ');Readln(st.ime);

repeat

write('Vuvedete facultetniq nomer na studenta: ');Readln(st.FacNo);

l1:=length(st.facno);

if (l1<>6) then writeln ('Vuveli ste greshen nomer ');

until (l1=6);

for j:=1 to 10 do

begin

repeat

write('Vuvedete [',j,'-ta] ocenka: ');Readln(st.oc[j]);

if (st.oc[j]<2) or (st.oc[j]>6) then writeln('Vuveli ste nevalidna ocenka ');

until (st.oc[j]>=2) and (st.oc[j]<=6)

end;

repeat

write('Vuvedete edinen grajdanski nomer: ');Readln(st.EGN);

l:=length(st.EGN);

if (l<>10) then writeln ('Vuveli ste nesushtestvuvashto EGN ');

until (l=10);

end;

Procedure izvedi (var st:stud);

begin

writeln;

writeln('Ime:',st.ime);

writeln('Fac.N:',st.FacNo);

writeln('EGN:',st.egn);

writeln ('Ocenki:');

for j:=1 to 10 do

writeln(j,'-ta ocenka e ',st.Oc[j]);

end;

Procedure vhod;

begin

repeat

write('Vuvedete broq na studentite: ');readln(n);

if (n<=0) or (n>50) then writeln('Broqt trqbva da e ot 1 do 50 studenta');

until (n>0) and (n<=50);

for i:=1 to n do

begin

readstud(gr);

izvedi(gr);

end;

ch:=readkey;

end;

Function SrAr (var oc:o):real;

var s:real;

begin

s:=0;

for j:=1 to 10 do s:=s+oc[j];

SrAr:=s/10;

end;

Procedure SrUspeh;

begin

for i:=1 to n do

begin

gr.su:=SrAr(gr.oc);

writeln;

writeln('Sredniq uspeh na ',gr.ime,' e: ',gr.su:2:2);

ch:=readkey;

end;

end;

Function Broi2 (st:stud):integer;

var br:integer;

begin

br:=0;

for j:=1 to 10 do

if st.oc[j]=2 then br:=br+1;

Broi2:=br;

end;

Procedure dvoikadjii;

begin

dve:=0;

for i:=1 to n do

if broi2(gr)>=2 then dve:=dve+1;

writeln;

writeln ('Broq na studentite s poveche ot edna dvoika e: ',dve);

end;

begin

clrscr;

Vhod;

SrUspeh;

dvoikadjii;

writeln;writeln('Natisnete proizvolen klavish za da izlezete ot programata');ch:=readkey;

end.

Благодаря предварително !!

Трябва да правя курсова работа по програмиране с Паскал

помощ

информация за студенти се пази в двоичен файл.

на първия ред от файла се пази цяло число n-брой, за които има има информация

име на студента първи ред,ЕГН на втория

оценки по 20 предмета на третия

да се напише програма, която да помогне за обработка на данните за студентите

да има следните компоненти и да използва записи

*подпрограма, която връща средния успех на студента с определено име

*подпрограма, която извежда списък от имената на студентите с повече от три шестици

*подпрограма която извежда списък от оценките на момчетата и го записва в файл

Здравейте! Имам задачата да създам информационна система. Ще ви бъда много благодарен, ако помогнете, защото не съм много добър в програмирането. Ето условието и част от задачата, която написах. Не съм сигурен дали е правилно. Моля помогнете.

Задача: В училищната библиотека има материали от следните

видове: книги, списания и вестници. Всеки материал

има заглавие и издателство. Книгите се характеризират

с име и на автор и година на издаване; списанията -

с номер, том, година; вестниците - с ден, месец и

година. Да се създаде информационна система за

обработка на наличните в библиотеката материали,

която позволява:

- Извеждане на спицъци за всички: книги,

издадени през дадена година; книги от даден автор;

книги от дадено издателство, списания

от дадена година; вестници от дадена дата;

-сортиране на книгите по година на издаване

-извежда броя на книгите от даден автор.

Program biblioteka;

type Date=record Day:1..31;

Month:1..12;

Year:1901..2100;

end;

type knigi=record

zagl:string[40];

izdatelstvo:string[40];

avtor:string[20];

year:longint;

type spisanie=record

Szagl:string[40];

Sizdatelstvo:string[40];

num:

tom:

Syear:longint;

type vestniik=record

zagl:string[40];

izd:string[40];

DataP:Date;

type TM=array[1..10]of knigi;

var n,k,p:byte;

a:TM;

procedure ReadM(n:byte;var a:TM);

var i,j:byte;

begin

for i:=1 to n do begin

writeln;

write('zagl:'); readln(a.zagl);

write('izdatelstvo:'); readln(a.izdatelstvo);

write('avtor:'); readln(a.avtor);

write('year:'); readln(a.year);

writeln;

write('S.zagl:'); readln(a.S.zagl);

write('S.izdatelstvo:'); readln(a.S.izdatelstvo);

write('avtor:'); readln(a.avtor);

write('num:'); readln(a.num);

write('tom:'); readln(a.tom);

write(' S.year:'); readln(a. S.year);

writeln;

write('V.zagl:'); readln(a.V.zagl);

write('V.izdatelstvo:'); readln(a.V.izdatelstvo);

write('date:'); readln(a.DataP.day,a.datap.month,a.datap.year);

end;

end;

procedure WriteM(n:byte;var a:TM);

var i:byte;

begin

for i:=1 to n do

begin

writeln;

writeln(a.k.zagl:10);

write(a.k.izdatelstvo:10);

writeln(a.k.avtor:20);

writeln(a..k.year:5);

writeln;

writeln(a.S.zagl:10);

write(a.S.izdatelstvo:10);

writeln(a.s.avtor:20);

writeln(a.s.num:5);

writeln(a.s.tom:5);

writeln(a..Syear:5);

writeln;

writeln(a.V.zagl:10);

write(a.Vizdatelstvo:10);

writeln(a.vavtor:20);

write(a.datap.day:3);

write(a.datap.month:3);

writeln(a.datap.year:5);

write;

end;

end;

begin

repeat

write('knigi,spis,vest');

readln(n);

until (n<=10);

repeat

writeln;

writeln('Biblioteka');

writeln('1.Vyvedi informacia');

writeln('2.Izvejda informacia');

writeln;

readln(k);

writeln;

case k of

1:ReadM(n,a);

2:WriteM(n,a);

end;

until k=6;

Begin

repeat

writeln; writeln;

writeln('Komandi na meniuto'); writeln;

writeln('1.Vuvedete danni za knigi');

writeln('2.Vuvedete danni za spisanie');

writeln('3.Vuvedete danni za vestnik');

writeln('4.Izhod');

writeln('5.Izvejdane na spisuci za vsichki knigi, izdadeni prez dadena godina');

writeln('6.Knigi ot daden avtor');

writeln('7.Vestnici ot dadena data');

writeln('8.sortirane na knigite po godina na izdavane');

writeln('9.Izvejda broq na knigite ot daden avtor');

write('k='); read(k);

case k of

1.Begin

ReadM;

end;

2.Begin

...

3.Begin

...

end;

5.Begin

...

end;

6.Begin

...

end;

7.Begin

...

end;

8.Begin

...

end;

9.Begin

...

end;

until k=4

end.

Здравейте трябва ми малко помощ трябва да напиша програма за масиви х1,х2.......хn и y1,y2,........yn ,който се съдържат в точка N последователно съединени точките трябва да образуват начупена линия с N-1 отсечки / т.е трябва ми алгоритъм за намиране процентите отсечките с дължина под средната в начупената линия .МОЛЯ ЗА ПОМОЩ ето това успях да направя за 5 часа : Program Kurs1; Uses crt; Const Brprot=20; Type Mas=array[1..Brprot] of real; Var size1,size2:integer; M,N:Mas;

Здравейте . Някой може ли да ми помогне със това :

- Да се състави блок-схема и програма на Паскал за намиране на cosa на равнобедрен триъгълник по зададено бедро b и основа a.

Благодаря предварително !

Здравейте! Имам нужда от малко помощ за една задача. Тя не е трудна, но Паскал нещо не ми се отдава. Ето и условитето: Да се напише програма на Паскал, която въвежда N на брой цели числа и намира и извежда средното аритметично на онези от тях, които са кратни на 7. Предварително благодаря!

Може ли някой да ми помогне много е спешно. Имам задача на Паскал а много не ги разбирам. Задачата е следната: Да се напише програма на Паскал, която въвежда N на брой реални числа и намира и извейда средно аритметично на онези от тях, които имат реални на десетите <= 5. Много ще съм ви благодарна, као можете да ми помогнете!!

За група студенти са зададени име, ЕГН, факултетен №, оценки по 10 дисциплини , среден успех. Да се създаде програма , използваща подпрограми за:

1.Създаване на масив с информация за група студенти , без да се въвежда среден успех.

2.Изчисляване на средния успех на всеки един от студентите.

3.намиране броя на Антоновците, които не са родени на Антоновден (17.01)

Имам г/д представа как трябва да стане, но не и да го формулирам в код, ако може някой да ми помогне ще бъда много благодарен.

Задават се едни и същи въпроси за задачи - а погледнете назад и ще им намерите отговорите

Здравейте! Моля за помощ по курсовата ми работа която не мога да разбера точно как трябва да стане.Благодаря предварително.

Ето и условието :

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

Здравейте,
Имам курсова работа по програмиране със следното условие:
Даден е двумерен масив.Да се състави програма, която преработва масива така,че най-малката стойност в масива да се премести на първа позиция /позиция с индекс 0,0/
Тей като тепърва навлизам в програмирането,нещата ми се виждат доста объркани за момента..успях да намеря програмата,но за едномерен масив.Бихте ли могли да ми покажете как да я преработя,така че да се получи в двумерен..Ето го кодът за едномерния:

Type
Danni=integer;
Msv1=array[0..15] of danni;
Var
i,M:integer; B:Msv1;
Procedure Selekcia(n:integer;Var A:Msv1);
Var i,j,m:integer; T:danni;
Begin
For i:=1 to n-1 do
begin
m:=i;
For j:=i+1 to n do
if A[j]<A[m]
then m:=j;
T:=A[m]; A[m]:=A[i]; A[i]:=T
end
End;
Begin
Write('Брой на елементите: '); Read(M);
Writeln('Стойности на елементите:');
For i:=1 to M do begin Write(' ',i,' '); Readln(B[i]) end;
Selekcia(M,B);
Writeln('Сортираният масив е:');
For i:=1 to M do write(B[i],' ');
Readln
End.

Edit: Оправих се с преработката на кода..но имам нужда от блок схема ;д

Редактирано 12 декември 201213 г. от smoker (преглед на промените)

Здравейте, имам от училище една задача, която незнам точно как да я направя.

Значи трябва да се начертае кординатна система на квадратно уравнение "f(x) = ax² + bx + c" според стойностите му като A, B и C ги въвежда потребителя.

Здравейте
Може ли някой да ми помогне с решението на тези 2 задачи, ще съм ви много благодарна.

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

Зад.2 : Да се напише програма на Паскал, която да извежда по тройки различни числа принадлежащи в интервал [1;5]

за зад. 1

 

var n,p:integer; begin p:=1; repeat write('vavedi chislo: '); readln(n); write(n,'*',p,'='); p:=p*n; writeln(p); until 1<>1; end.