Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на Pascal. Форум 3.
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ]
Модераторы: paradise, KMA
  

KMA



Долгожитель

Продолжение двух предыдущих форумов решения задач по Pascal.
Создан с целью антиспама.

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 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

Отправка ответа:
Имя пользователя   Вы зарегистрировались?
Пароль   Забыли пароль?
Сообщение

Использование HTML запрещено

Использование IkonCode разрешено

Смайлики разрешены

Опции отправки

Добавить подпись?
Получать ответы по e-mail?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да   Нет
 

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ]

Форум работает на скрипте © Ikonboard.com