🏠 ⇢ Вопросы и ответы ⇢ Компьютеры, Связь
ДТ
Дмитрий Титов

Прошу помощи с Паскаль! program z2;Var c,d,k,t,P1,P2 : integer;R : real;Procedure PRO (n, a : integer; Var P: real);Var i:integer;BeginP:=1;For i:=1 to 10 doP:=P*(i-a);End;BeginWriteln ('vv 2 cgisla');Readln (c,d);Writeln ('вв 2 ч >= 2');Readln (k,t);PRO(k,c,P1);Pro(t,d,P2);R:=2*(P1/P2);Writeln (R);End.1) Восстановить условие, постановку и алгоитм.2) Переписать программу заменив процедуру функцией

Иг
Игорь

function PRO (n, a : integer) : real;
Var i:integer;
Begin
P:=1;
For i:=1 to 10 do
P:=P*(i-a);
Pro := P
End;
....
p1 := PRO(k,c);
p2 := PRO(t,d)
....

Валерий
Валерий

размер финансового стимулирования для предоставления исходного кода?

Андрей
Андрей

не буду писать типа - отпиши на мыло а потом ...(делают так - потом $ требуют)
а хочу посоветовать очень полезный сайт по паскалю ПаскальГУРУ (вбейте в гугл ПаскальГУРУ) есть много готовых и бесплатных решений

Похожие вопросы
var i, k, N1, N : integer; Begin Writeln('Введите число первого дня'); readln(K); Writeln('Цена за 1 игрушку='); re
Нельзя зайти на сайт h t t p : / / w w w . o d n o k l a s s n i k i . r u / !? На другие доступ есть! Как решить это?
Исправьте пожалуйста! Исправьте пожалуйста программу чтобы при вводе нуля программа писала "Введите число больше нуля",и не выходила ошибка, а продолжала работать. Сам пытался, не получилось. Program qrt; var x,y,z,q: real; begin WriteLn('Введите X ', x); Readln(x); WriteLn ('Введите Y ', y); Readln(y); WriteLn ('Введите Z ', z); Readln(z); z:=Abs((3*sqr(x)+sin(y)/sqrt(z))-cos(x)); if z=0 then begin writeln ('Введите число больше 0 = ',q); end; WriteLn('Ответ=', z); End.
как называется этот фильм? h t t p : / / v k . c o m / v i d e o 7 9 1 9 0 3 2 1 _ 1 6 5 3 2 8 7 2
Паскаль переделать прогу из двух в одну. Заранее спасибо! Как можно слепить 2 проги для вычисления студентов одного имени: №1 это запыс групы и их оценок, что нестоль важно, а №2 выбор одного имени №1program Laba5Prog;uses crt;const size=5;typeStudent = recordsurname,ownname,patronym:string;marks:recordsda,math,prog,alg:byte;end;end;typeSimpleGroup=array[1..size] of Student;var Group:SimpleGroup;function GetFromString(var str:string):string;var i:integer; tmpstr:string;begini:=1;while str[i]' ' doinc(i);tmpstr:=copy(str,1,i-1);delete(str,1,i);GetFromString:=tmpstr;end;procedure InFromFile(var Group:SimpleGroup);var f:text;tmpstr:string;i,err:integer;beginassign(f,'lab5.txt');reset(f);i:=1;while not EOF(f) dobeginreadln(f,tmpstr);tmpstr:=tmpstr+' ';Group[i].ownname:=GetFromString(tmpstr);Group[i].surname:=GetFromString(tmpstr);Group[i].patronym:=GetFromString(tmpstr);val(GetFromString(tmpstr),Group[i].marks.prog,err);val(GetFromString(tmpstr),Group[i].marks.sda,err);val(GetFromString(tmpstr),Group[i].marks.math,err);val(GetFromString(tmpstr),Group[i].marks.alg,err);inc(i);end;end;procedure OutData(const OutGroup:SimpleGroup);var i:integer;beginwriteln('NAME':10,'SURNAME':10,'PATRONYM':10,'PROG':5,'SDA':5,'MATH':5,'ALG':5);for i:=1 to size dobeginwriteln(Group[i].ownname:10,Group[i].surname:10,Group[i].patronym:10,Group[i].marks.prog:5,Group[i].marks.sda:5,Group[i].marks.math:5,Group[i].marks.alg:5);end;end; -----------------------------------------------------------------------------------------------------------------------------------------------------_________________________________________________________________________________________-----------------------------------------------------------------------------------------------------------------------------------------------____________________________________________________________________________________№2 Program z1;Uses crt;Typered=record;name,fam:string;end;vara,b:array[1..15] of red;i,j,k,l,n,kol:integer;cn,cf: string;writeln('Eoia ioai?a o?aieeia n iaeiaeiauie eiaiaie e oaieeeyie: ');for i:=1 to n-1 dobeginkol:=0;for j:=i+1 to n doif (a[i].name=a[j].name)thenbeginif l=1 thenbeginb[l].name:=a[j].name;b[l].fam:=a[j].fam;inc(l);end;k:=l;while k0 dobeginif (a[j].name=b[k].name) and (a[j].fam=b[k].fam) thenbegininc(kol);break;end;dec(k);end;if kol=0 thenbeginb[l].name:=a[j].name;b[l].fam:=a[j].fam;inc(l);end;end;end;writeln(b[l].name,' ',b[n-l].fam);for i:=1 to l dowriteln(b[i].name,' ',b[i].fam);end.
как выполнить сортировку, что бы программа выдавала курс студентов по возрастанию (любая сортировка кроме пузырьком) type studs = record name: string[25]; k,o: integer; w:string; end;var arr_studs: array[1..15] of studs; sum: integer; a: real; i,n: byte;begin write('Количество студентов: '); readln(n); sum := 0; for i:=1 to n do with arr_studs[i] do begin write(i,'-й студент: '); readln(name); write('курс: '); readln(k); write(' Оценка: '); readln(o); sum := sum + o; end; a:= sum / n;writeln; writeln('Студенты с оценкой выше средней: '); for i:=1 to n do if arr_studs[i].o > a then writeln(arr_studs[i].name);readln;end.
В каждом столбце матрицы D[n,m] нулевые элементы переставить в начало столбца (Паскаль) Программа работает неправильно, подскажите как исправитьProgram matr;const N=10;const M=10;var D:array [1..N,1..M] of real;i,j,k:integer;l:real;beginfor i:=1 to n do begin for j:=1 to m do begin D[i,j]:=random(5); if d[i,j]=0 then for k:=i-1 downto 1 do begin l:=d[k+1,j]; d[k,j]:=d[k+1,j]; d[k,j]:=l; end;end;end; for i:=1 to n do begin for j:=1 to m do begin write(D[i,j]:5:2);end; writeln;end; readln;end.
помогите найти ошибку в создании текстового файла пожлуйста вот код:const n=4; type xolod = record virobn:string[50]; nazvanie:string[45]; kamera:real; rik:integer; misce:string[45]; cina:real; kilkist:real; end; var i:integer; tabl:array[1..n] of xolod; f:text; s:string; procedure lin(m:integer); var i:integer; begin for i:=1 to m do write('-'); writeln; end; begin assign(f,'xolodilnik.txt'); append(f); Writeln('Vvedi danni'); For i:=1 to n do begin Write('virobn:'); readln(tabl[i].virobn); Write('nazvanie:'); readln(tabl[i].nazvanie); Write('kamera:'); readln(tabl[i].kamera); Write('rik:'); readln(tabl[i].rik); Write('misce:'); readln(tabl[i].misce); Write('cina:'); readln(tabl[i].cina); Write('kilkist:'); readln(tabl[i].kilkist); writeln(f,tabl[i].virobn,' ',tabl[i].nazvanie,' ', tabl[i].kamera, ' ', tabl[i].rik, ' ' , tabl[i].misce, ' ' , tabl[i].cina , ' ' , tabl[i].kilkist); close(f); end; reset(f); while not eof(f) do begin while not eoln(f) do begin read(f,s); write(s); end; end; close(f); Lin(69); writeln(' | Виробництво | Назва | Обэм Камери | Рік | Місце | Ціна | Кількість|'); Lin(69); For i:=1 to n do begin write(' |', tabl[i].virobn:10,'|');write(tabl[i].nazvanie:10,'|',tabl[i].kamera:13,'|', tabl[i].rik:4,'|', tabl[i].misce:9,'|' , tabl[i].cina:9,'|' , tabl[i].kilkist:9,'|');writeln;Lin(69);end; writeln; writeln('vidsortovano'); Lin(69); For i:=1 to n do begin If (tabl[i].rik = 1993) then beginwrite(' |', tabl[i].virobn:10,'|');write(tabl[i].nazvanie:15,'|',tabl[i].kamera:16,'|', tabl[i].rik:4,'|', tabl[i].misce:9,'|' , tabl[i].cina:9,'|' , tabl[i].kilkist:9,'|'); writeln; Lin(69); end; end; End. ошибка на writeln(f,tabl[i].virobn,' ',tabl[i].nazvanie,' ', tabl[i].kamera, ' ', tabl[i].rik, ' ' , tabl[i].misce, ' ' , tabl[i].cina , ' ' , tabl[i].kilkist); Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта. когда ввел все данные о 2 холодильниках оно в файл записало, а когда 3 начинаешь - выбивает ошибка
h t t p : / / w w w . y o u t u b e . c o m / w a t c h? v = 3 P I R A 6 2 0 q w o (пробелы удалите)
Четкий заработок в инете! h t t p : / / l d t y . a n p a t . r u / 2 2 0 1 0 0 / r 2 3 8 4 0 0 0 Сайт без пробелов