KMA 
Долгожитель
|
      
Продолжение двух предыдущих форумов решения задач по Pascal.
Создан с целью антиспама.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 13 окт. 2009 17:25 | IP
|
|
XakMaster
Новичок
|
Пожалуйста укоротите код задачи решеной.....
1.
program Prokect1;
{$APPTYPE CONSOLE}
uses
windows,
sysutils;
var f_in, f_out:textfile;
n:integer
i:integer
kil:array of integer;
max1,max2:integer;
i_1,i_2:integer
i_3,i_4:integer;
begin
assign(f_in,'c2.in');
reset(f_in)
assign(f_out,'c2out');
rewrite(f_out);
read(f_in,n);
SetLength(kil,n)
for i:=0 to n do
begin
read(f_in,kil);
end;
max1:=0;
max2:=0;
for i:=0 to n-1 do
begin
if (kil+kil[i+1]> max1) then
begin
max1:-kil+kil[i+1];
i_1:=i;
i_2:=i+1;
end;
end;
for i:=0 to n-1 do
begin
if ((i<>i_1) and (i<>i_2)) then
begin
if(kil+kil[i+1];
i_3:=i;
i_4:=i+1;
end;
end;
end;
write(f_out,kil[i_1],' ',kil[i_2],' ',kil[i_3],' ',kil[i_4]);
close(f_in);
clode(f_out)
end.
2.
program Prokect1;
{$APPTYPE CONSOLE}
uses
windows,
sysutils;
var f_in,f_out:textfile;
x1,y1,x2,y2:integer
x3,y3,x4,y4:integer;
begin
assign(f_in, 'c1.in');
reset(f_in;
assign(f_out, 'c1.out');
rewrite(f_out);
read(f_in,x1,y1,x2,y2);
x3:=x1;
y3:=y2;
x4:=x2;
y4:=y1;
write(f_out,x3,' ',y3,' ',x4,' ',y4);
close(f_in);
close(f_out);
end.
|
Всего сообщений: 1 | Присоединился: октябрь 2009 | Отправлено: 13 окт. 2009 23:43 | IP
|
|
39 93
Новичок
|
здраствуйте!
помогите пожайлуста уже какой час голову ломаю над програмкой, впринципе написать саму программу легко но вот с выведением формулы затрудняюсь!задание:написать рекурсивную программу которая вычисляет произведение P(n)=1*4*7*...*(3n-2)
|
Всего сообщений: 3 | Присоединился: октябрь 2009 | Отправлено: 14 окт. 2009 1:07 | IP
|
|
39 93
Новичок
|
program ira;
var i:integer;
function f(n:real):real;
begin
if n=0 then f:=0 else
(здесь нужна формула )
end;
begin
writeln('vvedite kol-vo 4isel: ');
readln( i );
writeln(f( i ));
end.
|
Всего сообщений: 3 | Присоединился: октябрь 2009 | Отправлено: 14 окт. 2009 1:09 | IP
|
|
Dale
Участник
|
 
Цитата: 39 93 написал 14 окт. 2009 1:09
program ira;
var i:integer;
function f(n:real):real;
begin
if n=0 then f:=0 else
(здесь нужна формула )
end;
begin
writeln('vvedite kol-vo 4isel: ');
readln( i );
writeln(f( i ));
end.
uses crt;
var i:integer;
k:integer;
function f(n:integer):real;
var c:real;
begin
if n=0 then c:=0 else begin
c:=1;
for i:=1 to n do c:=c*(3*i-2);
end;
f:=c;
end;
begin
clrscr;
writeln('Введите количество чисел');
readln(k);
writeln(f(k):5:2);
readkey;
end.
(Сообщение отредактировал Dale 14 окт. 2009 11:57)
|
Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 14 окт. 2009 11:56 | IP
|
|
Dale
Участник
|
XakMaster
Вы хотя бы написали условия задач
И, главное, ставьте пробелы до и после i, если i у вас в квдратных скобках!!!
|
Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 14 окт. 2009 14:22 | IP
|
|
39 93
Новичок
|
спасибо большое!
|
Всего сообщений: 3 | Присоединился: октябрь 2009 | Отправлено: 14 окт. 2009 16:10 | IP
|
|
ilya
Новичок
|
Помогите пожалуйста решить 2 задачи:
|
Всего сообщений: 5 | Присоединился: октябрь 2009 | Отправлено: 14 окт. 2009 17:03 | IP
|
|
SleepLess
Новичок
|
Помогите пожалуста с решением задачи. Условие:
Составте программу для решения следующих задач,используя обращение к процедуре и функции.
Даны массивы Х(8),У(10),Z(10),W(15)елементы которых определяються по формулам:
xi=a1i2-a2(5-i); yi=b1sin(2i)+b2ei-5;
zi=c1(і-4)+c2sin2(1,5i); wi=d1ln(0,1i)+d2cos3(і-2,5).
Значение коофициентов
a1=3,а2=9,b1=6,b2=5,c1=6,c2=5,d1=6,d2=10
Сформировать новые массивы,которые состоят из чотных элементов массивов Y,Z,W.
Зарание спасибо!!! 
|
Всего сообщений: 4 | Присоединился: октябрь 2009 | Отправлено: 14 окт. 2009 21:15 | IP
|
|
Dale
Участник
|
ilya, переведите условие задач на русский(ничего не понятно).
SleepLess У вас формулы
xi=a1i2-a2(5-i); yi=b1sin(2i)+b2ei-5;
zi=c1(і-4)+c2sin2(1,5i); wi=d1ln(0,1i)+d2cos3(і-2,5).
нечитаемы. Сделайте картиинку, например
Или хотя бы расставьте пробелы, скобки и знаки умножения где надо.
(Сообщение отредактировал Dale 14 окт. 2009 23:55)
|
Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 14 окт. 2009 23:41 | IP
|
|
|
Форум
Решение задач на Pascal. Форум 3.
