Помогите плиз с решением задач на Паскале

[FuRiousSp]

Кто знает Паскаль помогите с решением задач Пожалуйста

http://photos.ya1.ru/photos/562282.jpg

[LegeN]

решил самое легкое, остальное просто лень :D

var a,b,c,min:integer;
begin
write('vvedi pervoe chislo='); readln(a);
write('vvedi vtoroe chislo='); readln(b);
write('vvedi tretyo chislo='); readln(c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
write('minimalnoe chislo=',min); readln;
end.

[Googleman]

Оплата?

[Moonlight]

в первой задаче лучше делать цикл и через сравнение вытаскивать минимальное число. Ну это по логике инженерной, чтобы в последующем можно было увеличить количество вводимых чисел без ощутимой перезаписи кода

[wchk]

2 задача нереал =) Чувствую что там вопрос должен быть типа: Сколько различных буквосочетаний можно составить. Да и ваще че то не то, неизвестно сколько букв на 1ом кубике.

А да, и переименуйте тему в не "помогите с решением", а в "прошу решить мне задачи" =)

[NRJ]

2 задача нереал =) Чувствую что там вопрос должен быть типа: Сколько различных буквосочетаний можно составить. Да и ваще че то не то, неизвестно сколько букв на 1ом кубике.


Вероятнее всего 6 граней, так как это кубик :).
Комбинаторику в руки

кол-во букв на одной грани тоже неизвестно, я не говорю уже о словах которые нужно составить, а не бессмысленный набор букв.

Слижком жестко, учитывая уровень первой задачи.

Скорее всего не все так сложно как кажется. Особенно если 1 задача такая легкая. Вероятно все сводится к:

бессмысленный набор букв.

[wchk]

Вероятнее всего 6 граней, так как кубик :).
Комбинаторику в руки

кол-во букв на одной грани тоже неизвестно, я не говорю уже о словах которые нужно составить, а не бессмысленный набор букв.

Слижком жестко, учитывая уровень первой задачи.

[VladiT]

Интересные задачи...

[FuRiousSp]

LegeN,
Спасибо :)

Помогите с решением задач плиз :)

[LegeN]

первый листок, 4 задача:
(если ошибка есть, извини ;D )


var i,s:integer;
begin
for i:=15 to 150 do
if i mod 2=1 then s:=s+i;
write(s); readln;
end.

[Reaper]

3
program ppc;
uses crt;
var ch,s:integer;
begin
clrscr;
ch:=1;
while ch<>0 do begin
readln(ch);
if ch mod 5 =0 then s:=s+ch; end;
writeln(s);
readln;
end.

6
program ppc;
uses crt;
var ch,min,i,t:integer;
begin
clrscr;
readln(ch);
min:=ch mod 10;
while ch<>0 do begin
t:=ch mod 10;
if min>t then min:=t;
ch:=ch div 10;
end;
writeln(min);
end.

[alena720]

Помогите решить:
Вычислить при n<11 y=1!+2!+...+n!

[TRE]

Помогите решить:
Вычислить при n<11 y=1!+2!+...+n!

не совсем понял про n<11, поэтому сделал две программы

program factorial;
uses crt;
var n,i:integer;
y,x:longint;
begin
clrscr;
write('Vvedite n: '); readln(n);
x:=1; y:=0;
for i:=1 to n do begin
x:=x*i;
y:=y+x;
end;
writeln('n=',n);
writeln('y=',y);
readln;
end.
в этой программе пользователь самостоятельно задает значение n

program factorial;
uses crt;
var n,i:integer;
y,x:longint;
begin
clrscr;
randomize;
n:=random(11);
x:=1; y:=0;
for i:=1 to n do begin
x:=x*i;
y:=y+x;
end;
writeln('n=',n);
writeln('y=',y);
readln;
end.
а в этой значение n определяется случайно из диапазона от 0 до 11 (не включая 11)

[alena720]

Вычислить значение функций y(x)=10*cos(2x) и f(x)=5*cos(x)*sin(3x) на интервале [0,10] с шагом dx=0.05 .
Результаты вычисления выдать на экран в следующем виде:
x= 0.00 y=10.00000 f= 0.00000
x= 0.05 y=9.98750 f= 0.74626


Требования: Чтобы можно было просмотреть все результаты программа должна выдавать на экран результаты по 20 строк и дальше ждать нажатия клавиши Enter для выдачи следующих 20 строк.

[fake_akk]

Вычислить значение функций y(x)=10*cos(2x) и f(x)=5*cos(x)*sin(3x) на интервале [0,10] с шагом dx=0.05 .
Результаты вычисления выдать на экран в следующем виде:
x= 0.00 y=10.00000 f= 0.00000
x= 0.05 y=9.98750 f= 0.74626
Требования: Чтобы можно было просмотреть все результаты программа должна выдавать на экран результаты по 20 строк и дальше ждать нажатия клавиши Enter для выдачи следующих 20 строк.

ну и в чем проблема то?

[sTeLs]

Вычислить значение функций y(x)=10*cos(2x) и f(x)=5*cos(x)*sin(3x) на интервале [0,10] с шагом dx=0.05 .
Результаты вычисления выдать на экран в следующем виде:
x= 0.00 y=10.00000 f= 0.00000
x= 0.05 y=9.98750 f= 0.74626


Требования: Чтобы можно было просмотреть все результаты программа должна выдавать на экран результаты по 20 строк и дальше ждать нажатия клавиши Enter для выдачи следующих 20 строк.


uses crt;
const dx=0.05;
var x,y,f:real; i:integer;
begin
x:=0;
i:=0;
while x<=10 do
begin
i:=i+1;
y:=10*cos(2*x);
f:=5*cos(x)*sin(3*x);
writeln('x= ',x:3:2,' y= ',y:5:5,' f= ',f:5:5);
x:=x+dx;
if (i=20) then
begin
readln;
clrscr;
i:=0;
end;
end;
writeln('End.');
readln;
end.

[alena720]

Здравствуйте,
Создать динамический графический объект - летающая тарелка на звездном небе

[alena720]

Вычислить полином 10-й степени по формуле Горнера на паскале