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

28 септември 200817 г.

zdraveite moje li da mi pomognete da si napravq programata v Pascal?eto yslovieto

Да се въведат произволни реални стойности за елементите на едномерен масив Р[M].Да се определи средната стойност на всички елементи, по-малки от променливата АТ, за която предварително е въведена реална стойност. Да се изведат входния масив, получената средна стойност и брой елементи.

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

Написах ти основата на кода. За съжаление, времето ми е ограничено, а желанието да помогна - не, затова ще ти копирам това, което съм написал. Трябва му лека доработка (Проверката и изчисляване на средната стойност!). Ако се върнеш малко страници назад в темата, ще установиш бързо, че съм публикувал не един такъв код. Публикувано изображение

Program Nikito;

var
		P: array[1..m] of Real; // Vhoden masiv
		K: array[1..n] of Real; // Masiv s po-malki ot AT stoinosti
		n,m: Real;
		c: Integer; // Vsi4ko stoinosti

Procedure VHOD;
begin
				writeln('Vyvedete stoinostite na masiva P: ');

				for m:=1 to m do
				readl(P[m]);

				write('Vyvedete stoinostta na provero4nata AT: ',a);
				readln(a);
end;

Procedure PROVERKA;
begin
		if a < P[m] then
				begin

				... // Trqbwa da se dopylni!

				end
		else
				begin
				write('Provero4nata A e po-malka ot vsqka stoinost na masiva!');
				end;


end;

Procedure IZHOD;
begin
		for n:=1 to n do
		  for m:=1 to m do
				writeln('Va6iqt vhoden masiv be: ',P[m]);
				writeln;

				writeln('Va6iqt masiv ot malki stoinosti e: ',K[n]);
				writeln;

				writeln('Vsi4ko stoinosti: ',c);
end;

BEGIN
VHOD;
PROVERKA;
IZHOD;
END.

Забележка!

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

Успех!

Поздрави!

Редактирано 28 септември 200817 г. от BoByS (преглед на промените)

Цитирай

7 октомври 200817 г.

трябва да написха програма на паскал, чието условие е:

Да се състави програма на паскал, която с данните:

-име на студента (string);

-ЕГН;

-факултетен номер;

-масив от 5 избираеми дисциплини;

извършва следните действия:

-създава файл с данни, добавя данните на новите студенти и изтрива данните на напуснали студенти( по зададен факултетен номер);

-отпечатва имената на всички студени;

-Изчислява броя на избраните дисциплини и ги отечатва(име-бр. дисциплини);

-извежда имената и факултетните номера на студентките, родени през зададен месец;

прогрмата да работи с меню.

моля помогнете ми. благодаря предварително.

Цитирай

9 октомври 200817 г.

Привет!

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

Като цяло ти остава само проверката на фамилията, за да определиш дали е студент или студентка. Предполагам се досещаш, че женските фамилии в България завършват обикновено на гласна. Тъй като това е по-трудния вариант, може да се добави допълнително поле - за въвеждане на пол.

Поздрави и лек ден!

Задача 9.1: Да се състави програма, която изпълнява следните дейности: 
•	в масив записва следната информация за студенти: име, факултетен номер, среден успех;
•	извежда на екрана информация за всички студенти в масива;
•	променя успеха на студент по зададен факултетен номер.
Анализ
Входни данни: k - цяло - вид дейност на програмата:
		 1 - добавяне на студент към масива, 
		 2 - информация за всички студенти,
		 3 - промяна на успеха,
		 0 - изход.
	При въвеждане информация за студент: 
		name - низ от символи - име на студент, 
		fn - дълго цяло - факултетен номер, 
		estim - реално - факултетен номер.
	При промяна успеха на студент: 
		fn - факултетен номер, 
		estim - успех.
Изходни данни: Меню с дейностите на програмата, полетата на елементите-записи в масива, различни съобщения: за грешен избор от менюто, за липса на студенти в масива и т.н. 
Алгоритъм: Програмата ще работи циклично, като ще завърши при избор за изход от менюто (k = 0). При всяко завъртане в този цикъл ще изпълнява една от своите дейности според избора от менюто. 
Програма 
program student_info;
	uses WinCrt;
	const max = 100;
	type
		student = record
			name: string[50];
			fn: longint;
			estim: real
		end;
		group = array[1 .. max] of student;
	var
		k, n: integer;		 { k - избор от менюто, n -брой студенти в масива }
		g: group;				 { масив от студенти } 
	procedure dobavi(var g: group; var n: integer);	{ Добавяне на студент към масива }
		begin
			if n = max
				then writeln('Масивът със студенти е пълен !')
				else begin
					n:= n + 1;
					write('Име на студент:');
					readln(g[n].name);
					write('Факултетен номер:');
					readln(g[n].fn);
					write('Среден успех:');
					readln(g[n].estim);
				end
		end;
	procedure info(g: group; n: integer);	{ Извеждане на информация за всички студенти }
		var i: integer;
		begin
			if n = 0
				then writeln('Масивът със студенти е празен !')
				else
					for i := 1 to n do begin
						writeln('Име на студент:', g[i].name);
						writeln('Факултетен номер:', g[i].fn);
						writeln('Среден успех:', g[i].estim:5:2);
						readln
					end
		end; 
	function change(var g: group; n: integer): boolean;	{ Промяна на ср. успех на студент }
		var
			i: integer;
			fn: longint;		 { факултетен номер на търсения студент }
			find: boolean;	 { показва дали е открит студент с указания факултетен номер }
		begin
			find:= false;
			write('Факултетен номер на търсения студент:');
			readln(fn);
			for i := 1 to n do
				if fn = g[i].fn
					then begin
						find:= true;
						writeln('Име на студент:', g[i].name);
						writeln('Стар среден успех:', g[i].estim:5:2);
						write('Нов среден успех:');
						readln(g[i].estim)
					end;
			change := find
		end; 
	begin			 { Главна програма }
		n:= 0;		 { няма студенти в масива }
		repeat
			writeln('Меню');
			writeln('1. Добавяне на студент');
			writeln('2. Информация за всички студенти');
			writeln('3. Промяна на среден успех');
			writeln('0. Изход');
			write('Изберете:');
			readln(k);
			case k of
				0:;		 { празен оператор }
				1: dobavi(g, n);
				2: info(g, n);
				3: if not change(g, n)
						then writeln('Няма такъв студент !');
				else writeln('Грешен избор !')
			end
		until k = 0
	end. 
Забележка: Програми от този вид се наричат информационни системи. Информационните системи се характеризират с това, че притежават архив (в този случай масива g) и имат средства за допълване (дейност 1) и промяна на единиците на архива (дейност 3), а също така могат да извършват справки в архива (дейност 3).

Цитирай

21 октомври 200817 г.

Здравейте на всички, искам да помоля ако може някой малко да ми помогне с 1 доста кофти задача на паскал(за ваша радост съм написал по-голямата част :wors: ) Ето го и условието на задачата

Да се състави програма за обработка на масива А(11,11), където данните са цели числа в интервала 0-1000. Съответните програми да извършват следните действия: Отпечатване на условието на зад. и името на автора. Въвеждане и отпечатване на входните данни. а) Да се образува нов масив C елементите на който са сума от цифрите на съответните елементи в масива А(Ето това е частта която ме затруднява, значи искат ако A[1,1]=54, то C[1,1]=5+4) b)Да се намери макс елемента от масива C както и номера на реда и стълба, на който лежи(Това мисля,че съм го направил само без да намира номера на ред и стълб)

Много ще съм благодарен ако някой ми помогне с а) подусловие и прегледа задачата ми за грешки. А ето и до къде съм стигнал:

Program kursova_rabota;


Const max=11;

Var a:array[1..max,1..max] of integer;
c:array[1..max] of integer;
n:byte;


procedure uslovie;
begin
Write('Uslovie na zada4ata : Da se sastavi programa za obrabotka na masiva A [11, 11]');
Writeln('kadeto dannite sa tzeli chisla v intervala [0, 1000].');
Write('Da ima saotvetnite podprogrami: ');
Writeln('-otpechatvane na uslovieto na zadachata');
writeln('-otpechatvane avtora na zadachata');
writeln('-otpechatvane na vhodnite danni');
writeln('-a) da se obrazuva nov masiv C,elementite na koito sa suma');
writeln('-ot cifrite na suotvetnite elementi na masiva A');
writeln('-b) da se nameri max element na masiva C kakto i nomera na reda i nomera na stulba,');
writeln('-na koito toi leji');
writeln('-otpechatvane na poluchenite rezultati sled obrabotka A i sled obrabotka B');
writeln('-rezultata da se zapishe vav file sas ime MAXR.dat');
writeln;
end;

procedure autor;
begin
writeln('|-----------------------------------------------------------------------------|');
writeln('| Petko  |');
writeln('|-----------------------------------------------------------------------------|');
writeln;
end;

procedure entermatrix;
var i,j:byte;
begin
writeln;
repeat
n:=11;
until (n<=max) and (n>0);
writeln;
writeln('Vuvejdane na elementite na matricata A[N,N] : ');
for i:= 1 to n do
for j:= 1 to n do
repeat
write('A[',i,',',j,'] = ');
readln(A[i,j]);
until (A[i,j] > -1) and (A[i,j] < 1001);
end;

procedure displaymatrix;
var i,j:byte;

begin
for i := 1 to n do
begin
write('|');
for j := 1 to n do
if a[i,j]>99 then write(a[i,j],' |')
else if a[i,j]>9 then write(a[i,j],' |')
else if a[i,j]<-99 then write(a[i,j],' |')
else if a[i,j]<-9 then write(a[i,j],' |')
else if a[i,j]<0 then write(a[i,j],' |')
else write(a[i,j],' |');
writeln;
end;
end;

procedure initializec;
var i,j:byte;
begin
for i := 1 to n do
begin
c[i]:=-1;
for j := 1 to n do
if a[j,i]>c[i] then c[i]:=a[j,i];
end;

end;

procedure printc;
var i:byte;
begin
for i:=1 to n do write(c[i],' ');
writeln;
end;

procedure sortc;
var i,j:byte;
r:integer;
begin
for i:= 1 to n do
r:=-1;
for j:=1 to n do
if c[j]>r then r:= c[j];
writeln('Maximalna stoinost na masiva C =',r)
end;

procedure writefile;
var i:byte;
outfile:text;

begin
assign(outfile,'MAXR.dat');
rewrite(outfile);
for i:=1 to n do write(outfile,c[i],' ');
writeln(outfile);
close(outfile);
end;

Begin
writeln;
uslovie;
autor;
entermatrix;
displaymatrix;
initializec;
writeln('C predi obrabotkata...');
printc;
sortc;
writeln('C sled obrabotkata...');
printc;
writefile;
End.

Тази задача трябва да я предам в четвъртък, незнам дали изобщо тая тема е актуална, но ще си пробвам късмета :wors:

Цитирай

22 октомври 200817 г.

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

Program zadachа;

Const max=11;

Var 
a:array[1..max,1..max] of integer;
c:array[1..max,1..max] of integer;
n:byte;


procedure uslovie;
begin
Write('Da se sustavi programa za obrabotka na masiva A [11, 11]');
Writeln('kudeto dannite sa celi chisla v intervala [0, 1000].');
Write('da ima suotvetnite podprogrami: ');
Writeln('-otpechatvane uslovieto na zadachata');
writeln('-otpechatvane na avtora');
writeln('-otpechatvane na vhodnite danni');
writeln('-a) Da se obrazuva nov masiv C, elementite na koito sa suma ot cifrite na suotvetnite elementi na А');
writeln('-b) Da se nameri elementa s nai-visoka stoinost v C, kakto i reda i stulba na koito leji');
writeln('-Otpechatvane na poluchenite rezultati sled obrabotka a) и b)');
writeln('-rezultata da se zapishe v fail RES.dat');
writeln;
end;

procedure autor;
begin
writeln('|-----------------------------------------------------------------------------|');
writeln('| Petko  |');
writeln('|-----------------------------------------------------------------------------|');
writeln;
end;

procedure entermatrix;
var 
i,j:byte;
begin
writeln;
repeat
n:=11;
until (n<=max) and (n>0);
writeln;
writeln('Vuvedete elementite ot masiva A[N,N] : ');
for i:= 1 to n do
for j:= 1 to n do
repeat
write('A[',i,',',j,'] = ');
readln(A[i,j]);
until (A[i,j] > -1) and (A[i,j] < 1001);
end;

procedure displaymatrix;
var 
i,j:byte;
begin
for i := 1 to n do
begin
write('|');
for j := 1 to n do
if a[i,j]>99 then write(a[i,j],' |')
else if a[i,j]>9 then write(a[i,j],' |')
else if a[i,j]<-99 then write(a[i,j],' |')
else if a[i,j]<-9 then write(a[i,j],' |')
else if a[i,j]<0 then write(a[i,j],' |')
else write(a[i,j],' |');
writeln;
end;
end;

procedure initializec;
var 
i,j:byte;
ln,rn,s,x:integer;
begin
for i := 1 to n do
for j := 1 to n do
begin
s:=0;
ln:=a[i,j] div 10;
rn:=a[i,j] mod 10;
while ln>0 do
begin
s:=s+rn;
x:=ln;
ln:=x div 10;
rn:=x mod 10;
end;
s:=s+rn;
c[i,j]:=s;
end;

end;

procedure printc;
var 
i,j:byte;
begin
for i:=1 to n do
begin
for j:=1 to n do write(c[i,j],' ');
writeln;
end;
end;

procedure maxc;
var 
i,j:byte;
r,col,row:integer;
begin
r:=c[1,1];col:=1;row:=1;
for i:=1 to n do
for j:=1 to n do
if c[i,j]>r then
begin
	 r:= c[i,j];row:=i;col:=j;
end;
writeln('Maksimalnata stoinost v masiva: C =',r,'  Red:',row,'  Stulb:',col)
end;

procedure writefile;
var 
i,j:byte;
outfile:text;
begin
assign(outfile,'RES.dat');
rewrite(outfile);
for i:=1 to n do
for j:=1 to n do write(outfile,c[i,j],' ');
writeln(outfile);
close(outfile);
end;


Begin
writeln;
uslovie;
autor;
entermatrix;
displaymatrix;
initializec;
writeln;
printc;
writeln;
maxc;
writefile;
readln;
End.

Искам да отбележа, че тъй като в случая стойностите в масива немогат да надвишават 1000, процедурата за намиране на максималната стойност от масива C (maxc) можеше да се напише с 2-3 реда, но аз съм я направил така, че да може да се използва с всички числа.

Редактирано 23 октомври 200817 г. от vex01 (преглед на промените)

Цитирай

22 октомври 200817 г.

Браво! Най-сетне се появи културен участник в темата.

Цитирай

22 октомври 200817 г.

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

Цитирай

22 октомври 200817 г.

Може ли някой да напише една програма която да намира кое от 20 въведени числа е най-голямо и кое най-малко. Мерси предварително.

Трябва да ползвам масив...

program chokoev;
var
a:array[1..20] of integer;
i:byte;
n:integer;

procedure enter;
begin
n:=20;
writeln('Vuvedete 20 chisla');
for i:= 1 to n do
repeat
write('a[',i,'] = ');
readln(a[i]);
until i<=n;
end;

procedure max;
var
m:integer;
begin
m:=a[1];
for i:= 1 to n do
if A[i] > m then
begin
m:= A[i];
end;
writeln('Max = ',m)
end;

procedure min;
var
k:integer;
begin
k:=a[1];
for i:= 1 to n do
if A[i] < k then
begin
k:= A[i];
end;
writeln('Min = ',k)
end;

begin
enter;
max;
min;
readln;
end.

Piece of cake Публикувано изображение Вече съм загрял с тия масиви :blink:

Редактирано 23 октомври 200817 г. от vex01 (преглед на промените)

Цитирай

23 октомври 200817 г.

Мерси за предишната задача... сега имам друг проблем трябват ми 2 блок схеми. Програмите ги имам. Ето условията и самите програми:

program p1;

const
  lenA = 4;
  min = -99.9;
  max = 99;

var
  A: array[1..lenA, 1..lenA] of Real;
  I, J, Count: Integer;
  Sum: Real;

begin
  Writeln('Da se systavi programa za obrabotka na dva masiva A[4,4],B[8,8]');
  writeln('kudeto dannite sa realni chisla v intervala [-99.9-99.9].');
  Writeln('Syotvetnite podprogrami da izvurshvat slednite deistviq:');
  Writeln('otpechatvane na uslovieto na zadachata i imeto na avtora na programata;');
  Writeln('vuvejdane na vhodni danni;');
  Writeln('otpechatvane na vhodni danni;');
  Writeln('a)da se nulira elementa v masiva A, koito sa po golemi');
  writeln('ot sredno aritmetichnoto ot elementite na masiva B;');
  writeln('b)da se operdeli broq na promenlivite elementi v masiva A;');
  writeln('otpechatvane na poluchenite rezltati sled obrabotka a) i sled obrabotka b).');
  Writeln;

  Writeln('ime nomer grupa');
  Writeln;

  Writeln('Molq vyvedete vhodnite danni:');
  for I := 1 to lenA do
	for J := 1 to lenA do
	begin
	  repeat
		Write('A[', I, ',', J, '] = ');
		Readln(A[I, J]);
	  until (A[I, J] >= min) and (A[I, J] <= max);
	end;

  Writeln('Vhodni danni:');
  for I := 1 to lenA do
	for J := 1 to lenA do
	begin
	  Writeln('A[', I, ',', J, '] = ', A[I, J]:4:2);
	end;


  Writeln('Nulirane na elementite na masiv A...');
  Count := 0;
  for J := 1 to lenA do
  begin
	Sum := 0;
	for I := 1 to lenA do
	  Sum := Sum + A[I, J];

	for I := 1 to lenA do
	  if A[I, J] > Sum / lenA then
	  begin
		A[I, J] := 0;
		Count := Count + 1;
	  end;

program p2;

const
  lenE = 10;
  maxlenC = lenE * lenE;
  min = -1000;
  max = 1000;

var
  E: array[1..lenE, 1..lenE] of Real;
  C: array[1..maxlenC] of Real;
  I, J, lenC: Integer;
  T: Real;

begin
  Writeln('Da se systavi programa za obrabotka na masiva E[10,10],');
  Writeln('kudeto dannite sa realni chisla v intervala [-1000-1000].');
  Writeln('Suotvetnite podprogrami da izvurshvat slednite deistviq:');
  Writeln('otpechatvane na uslovieto na zadachata i imeto na avtora na programata;');
  Writeln('vuvejdane na vhodni danni;');
  Writeln('otpechatvane na vhodni danni;');
  Writeln('a)da se obrazuva ednomeren masiv C, elementite na koito');
  writeln('sa elementite ot masiva E sus sbor ot indeksite si chetno chislo:');
  Writeln('b)polucheniq masiv da se sortira po golemina;');
  Writeln('otpechatvane na poluchenite rezultati sled obrabotkata i sled obrabotkata a) i sled obrabotkata b).');
  Writeln;

  Writeln('Ime, fak.No grupa');
  Writeln;

  Writeln('Molq vyvedete vhodnite danni:');
  for I := 1 to lenE do
	for J := 1 to lenE do
	begin
	  repeat
		Write('E[', I, ',', J, '] = ');
		Readln(E[I, J]);
	  until (E[I, J] >= min) and (E[I, J] <= max);
	end;

  Writeln('Vhodni danni:');
  for I := 1 to lenE do
	for J := 1 to lenE do
	begin
	  Writeln('E[', I, ',', J, '] = ', E[I, J]:6:2);
	end;

  Writeln('Syzdavane na masiva C...');
  lenC := 0;
  for I := 1 to lenE do
	for J := 1 to lenE do
	  if (I + J) mod 2 = 0 then
	  begin
		Inc(lenC);
		C[lenC] := E[I, J];
	  end;

  Writeln('Masiv C:');
  for I := 1 to lenC do
  begin
	Writeln('C[', I, '] = ', C[I]:6:2);
  end;

  Writeln('Sortirane na masiva C...');
  for I := 1 to lenC - 1 do
	for J := 1 to lenC - I do
	  if C[J] > C[J + 1] then
	  begin
		T := C[J];
		C[J] := C[J + 1];
		C[J + 1] := T;
	  end;

  Writeln('Masiv C:');
  for I := 1 to lenC do
  begin
	Writeln('C[', I, '] = ', C[I]:6:2);
  end;
end.

Видяло се е, че ще трябва да черпя някой

Цитирай

23 октомври 200817 г.

Хмм... какви са тия блок схеми ? Я обясни по-подробно какво точно трябва да се направи. И м/у другото къде учиш и каква специалност си ?

Цитирай

24 октомври 200817 г.

Хмм... какви са тия блок схеми ? Я обясни по-подробно какво точно трябва да се направи. И м/у другото къде учиш и каква специалност си ?

Eто пример за блок схема:

Задачите не са за мен а за един познат. Мисля, че учи е Техническият но не съм 100% сигурен.

Цитирай

26 октомври 200817 г.

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

Ето какво направих аз:

program domashna_rabota;
  uses crt;
  type mas=array[1..5,1..5] of integer;
  var a:mas; n,i:byte;
 Begin
 ClrScr;
   For n:=1 to 5 do
	For i:=1 to 5 do
	 Begin
	 write('Vuvedete stoinost za element [',n,',',i,']: '); readln(a[n,i]);
	 end;
   Readln
 end.

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

Цитирай

26 октомври 200817 г.

Привет!

За намиране на минимум и максимум, е писано много тук. Можеш да прегледаш най-свежото решение тук. Върни малко страници назад, и виж моите мнения... Там съм публикувал доста голям код за намиране на сумата на елементите над главния диагонал.

Поздрави!

Цитирай

26 октомври 200817 г.

Моля помогнете ми трябва да направя програма: Което да въвежда двумерен масиц с равен брой редове , колони и да извежда: а)сумата на елементите по главен диагонал б)минималния и максималния елемент над главния диагонал в)минималния и максималния по главен диалог мерси от сега .. трябва ми спешно плеасе ..

Цитирай

27 октомври 200817 г.

Моля помогнете ми трябва да направя програма:

Което да въвежда двумерен масиц с равен брой редове , колони и да извежда:
а)сумата на елементите по главен диагонал
б)минималния и максималния елемент над главния диагонал
в)минималния и максималния по главен диалог

мерси от сега ..
трябва ми спешно плеасе ..

Здр, ето ти решението назадачата, но НЕ Е ПРОВЕРЕНО С КОМПИЛАТОР. Ако има грешки, то може някоя запетая да съм изпуснал. Ако не можеш да се справиш и ти трябва спешно използвай моя Скайп plamko27

Program dmasiv;
const r=100;
	  k=100;
Uses crt;
var element,suma,malko,golqmo:real;
	broik,broir,diri:integer;
	masiv:array[1..r,1..k];
	izbor:char;
Procedure sumadiag;
Begin
suma:=0;
for diri:=r downto 1 do suma:=suma&masiv[diri,diri];
Writeln('Sumata na elementite po glavniq diagonal e: ',suma:7:2);
readln;
end;
Procedure smallbig;
Begin
malko:=0;
golqmo:=0;
for diri:=r downto 1 do						{cikyla zapo4va ot posledniq kym pyrviq element}
	begin
	if malko<masiv[diri,diri] then malko:=masiv[diri,diri];	{tyrsime nai- malkiq element}
	if golqmo>masiv[diri,diri] then golqmo:=masiv[diri,diri];	{tyrsime nai- golqmiq element}
	end;
Writeln('Nai- golqm element v masiva e ',golqmo:7:2,', a nai- malkiq element e ',malko:7:2);
readln;
end;
Procedure gore;
begin
malko:=0;
golqmo:=0;
for r:=2 to r do
	 for k:=r&1 to k do
	begin
	if malko<masiv[r,k] then malko:=masiv[r,k];	{tyrsime nai- malkiq element}
		if golqmo>masiv[r,k] then golqmo:=masiv[r,k];	{tyrsime nai- golqmiq element}
	Writeln('Nai- golqm element v masiva nad glavniq diagonal e ',golqmo:7:2,', a nai- malkiq element e ',malko:7:2);
		end;
end;
Begin
for broir:=1 to r do						{na4alo na cikyl za zapylvane na masiva}
	for broik:=1 to k do
Begin
clrscr;
Write('Vyvedete elemen za ',r:3,' red i ',k:3,' kolona: ');
readln(element);
masiv[k,r]:=element;
end;
Repeat
	Begin								{krai na cikyla}
clrscr;
Writeln('Molq izberete kakva informaciq jelaete da izvyr6ite:');
Writeln('1: Suma na elementite po glavniq diagonal');
Writeln('2: Izvejdane na nai- golqm i nai- malyk element po glavniq diagonal');
Writeln('3: Izvejdane na nai- golqm i nai- malyk element nad glavniq diagonal');
Writeln('4: Izhod ot programata');
Write('Izbora Vi e: ');
Readln(izbor);
case ch of
'1': sumadiag;
'2': smallbig;
'3': gore;
'4': Halt;
end;
Until ch='4';
end.

Цитирай

5 ноември 200817 г.

Здравеите! Може ли някои да ми помогне с една програма на паскал : Да се състави програма на Паскал ,която с данните: -име на студента (string); -ЕГН; -Факултетен номер; -оценки по 10 предмета ; Извършва следните деиствия : -създава фаил с данни,добавя данните на новите студенти и изтрива данните на студент(по зададен факултетен номер); -отпечатва дата на ражданена всички студенти; -изчислява средния успех на всеки студент и го отпечатва(име-ср.успех) -извежда имената и факултетните номера на студентите-мъже с успех по голям от 4,50; Програмата да работи с меню. Благодаря предварително !

Цитирай

5 ноември 200817 г.

http://www.kaldata.com/forums/index.php?showtopic=97424

Цитирай

9 ноември 200817 г.

Моля ви за помощ, знам че ще ви е смешено, но ако някои може да ми помогне. Да се направи програма, която намира по-голямото от четири чисал. Ако някои иска нека ми помогне, нещо яко зациклих и нестава. Мерси предварително

Цитирай

11 ноември 200817 г.

1.Да се направи програма,която въвежда числата a и b и извежда наи-големия им общ делител.

2. Програма,която въвежда последователно n цели числа и ги извежда в ред,обратен на въвеждането (5<=n<=15)

Тея задачи ми бяха на контролно и нищо не напраих Публикувано изображение Може ли някой да ги напише

Редактирано 11 ноември 200817 г. от sssmoky91 (преглед на промените)

Цитирай

11 ноември 200817 г.

Моля ви за помощ, знам че ще ви е смешено, но ако някои може да ми помогне.
Да се направи програма, която намира по-голямото от четири чисал.
Ако някои иска нека ми помогне, нещо яко зациклих и нестава.
Мерси предварително

program chisla;
var a:array[1..4] of real; {deklarirane na masiva i promenlivite}
 var i:integer;
	 max:real;

 begin

  for i:=1 to 4 do {vavejdane na chislata kato masiv}
   begin
	write('vavedi chislo:');
	readln(a[i]);
   end;

  max:=a[1];

  for i:=1 to 4 do {proverka dali vsqko sledvashto chislo e po-golqmo ot a1 i prisvoqvane na stoinostta mu ako e po-golqmo}
   if max<a[i] then
	max:=a[i];

 writeln('nai-golqmoto ot chetirite chisla e:',max:7:3); {izvejdane na rezultata}
 readln;
 end.

Цитирай

11 ноември 200817 г.

1.Да се направи програма,която въвежда числата a и b и извежда наи-големия им общ делител. 2. Програма,която въвежда последователно n цели числа и ги извежда в ред,обратен на въвеждането (5<=n<=15) Може ли help

Цитирай

12 ноември 200817 г.

1.Да се направи програма,която въвежда числата a и b и извежда наи-големия им общ делител.

2. Програма,която въвежда последователно n цели числа и ги извежда в ред,обратен на въвеждането (5<=n<=15)

Тея задачи ми бяха на контролно и нищо не напраих Може ли някой да ги напише

Ето ти решението на задачата:

Program nodel;
Uses crt;
var a,b:integer;
Begin
Write('Vyvedete dvete 4isla za namerane na NOD: ');
Readln(a,b);
If a<>b then 
repeat
if a>b then a:=a-b else b:=b-a
until a=b;
writeln('NOD na ',a:2:2,' i ',b:2:2,' e: ',a:2:2);
end.

Втората задача ти е:

Program chisla;
Uses crt;
Var a,n:integer;
	  masiv:array[1..100];
Begin
Write('Vyvedete jelaniq broi 4isla, koito jelaete da vyvedete: ');
Readln(n);
for a:=1 to n do
begin
Write('Vyvedete ',a,'-to 4islo: ');
readln(masiv[a]);
end;
writeln(Vyvedohte slednite 4isla:');
for a:=1 to n do write(masiv[a],' ');
writeln('Obratno podredeni te sa:');
for a:=n downto 1 do write(masiv[a],' ');
end.

Цитирай

12 ноември 200817 г.

1.Да се направи програма,която въвежда числата a и b и извежда наи-големия им общ делител.

2. Програма,която въвежда последователно n цели числа и ги извежда в ред,обратен на въвеждането (5<=n<=15)

Може ли help

В другия ти пост го имаш, пратих ти ги

Цитирай

12 ноември 200817 г.

Ето ти решението на задачата:

Program nodel;
Uses crt;
var a,b:integer;
Begin
Write('Vyvedete dvete 4isla za namerane na NOD: ');
Readln(a,b);
If a<>b then 
repeat
if a>b then a:=a-b else b:=b-a
until a=b;
writeln('NOD na ',a:2:2,' i ',b:2:2,' e: ',a:2:2);
end.

Може би трябва да изведе първо :

write('NOD na ',a:2:2,' i ',b:2:2);

и накрая след цикъла :

writeln(' e: ',a:2:2);

Цитирай

12 ноември 200817 г.

Ся ша ги пробвам Публикувано изображение Запалих се мн по тея програми ей

writeln('NOD na ',a:2:2,' i ',b:2:2,' e: ',a:2:2);

изписва грешка че > expected в тоя ред :computer2:

masiv:array[1..100];

expected of иска тука

и като напиша of след него пиша integer

masiv:array[1..100] of integer ------->излиза error:division by zero :shake_puter:

Цитирай

Добре дошли!

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

Featured Replies

Архивирана тема

Разглеждащи това в момента 0

Дарение

Бюлетин

Профил

Навигация

Търсене

Конфигуриране на push известия в браузъра

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)