решите паскаль. очен6ь срочно надо((

1. Символ (14.12.2010 / 13:46)
1) Написать программу которая по заданному натуральному значению n вычисляет результат выражения p=1*2+3*4+..+(2n-1)*2n
2) Написать программу, вычисляющую количество месяцев, на которое хватит N кг сена, если ежемесячно 10 голов скота потребляют 100 кг сена, и каждые два месяца происходит прирост скота на 20%. изначально имеется 10 голов

2. Иван (14.12.2010 / 13:53)
что значат .. (2 точки) в p=1*2+3*4+..+(2n-1)*2n?

Добавлено через 02:11 сек.
1) 
PROGRAM nn;
VAR
p, n: integer;
BEGIN
read (n);
p:=1*2+3*4+(2*n-1)*2*n;
write (p);
END.

Добавлено через 07:06 сек.
вот скрин с аутпутом http://upwap.ru/1177349 Посчитал верно

3. Станислав (14.12.2010 / 14:40)
2. FDesign, это ряд.
.. - это и так далее.

4. Символ (14.12.2010 / 14:53)
я не знаю. да наверно ряд

5. finall2 (14.12.2010 / 15:32)
delet

6. DeadLiftBaby (14.12.2010 / 15:48)
1, какой класс это интересно?smile

7. Анатолий (14.12.2010 / 15:49)
PROGRAM nn; 
VAR 
p, i, n: integer; 
BEGIN 
readln(n); 
for i:=1 to 2*n-1 do
begin
p:=p+i*(i+1);
i:=i+1;
end; 
writeln(p); 
END.

Седьмой класс максимум

8. finall2 (14.12.2010 / 15:54)
С записью в файл
{
Написать программу, вычисляющую количество месяцев, 
на которое хватит N кг сена, если ежемесячно 10 голов скота 
потребляют 100 кг сена, и каждые два месяца происходит прирост скота 
на 20%. изначально имеется 10 голов
}
program mes;
var n,res,noom:integer;
kg:real;
out:text;
begin
readln(n);

noom:=-1;
kg:=100;
while n>kg do begin
noom:=noom+1;
if (noom mod 2 = 0) and not (noom=0) then kg:=round(kg+kg*0.2);
if n>kg then n:=round(n-kg);
end;

assign(out,'outp.txt');
rewrite(out);
writeln(out,noom+1);
close(out);
end.
{ by finall2 }
Без записи в файл
{
Написать программу, вычисляющую количество месяцев, 
на которое хватит N кг сена, если ежемесячно 10 голов скота 
потребляют 100 кг сена, и каждые два месяца происходит прирост скота 
на 20%. изначально имеется 10 голов
}
program mes;
var n,res,noom:integer;
kg:real;
begin
readln(n);

noom:=-1;
kg:=100;
while n>kg do begin
noom:=noom+1;
if (noom mod 2 = 0) and not (noom=0) then kg:=round(kg+kg*0.2);
if n>kg then n:=round(n-kg);
end;
writeln(noom+1);
end.
{ by finall2 }


9. DeadLiftBaby (14.12.2010 / 16:01)
var potreb,skot,n:real; i,month:integer;
begin
i:=0;
skot:=10;
month:=0;
ReadLn(n);
Repeat
if(i=2)then
begin
skot:=skot*1.2;
i:=0
end;
potreb:=skot*10;
n:=n-potreb;
month:=month+1;
i:=i+1;

Until
n<=1;
writeln('Хватит на ',month,' месяца/месяцев');
end.

Мне лично так хватило решить smile
С записью в файл уж сам справишься, если все таки требуется запись в файлsmile

P.S. Называется сколько кодеров столько и вариантов решения smile

10. Валерий (14.12.2010 / 17:09)
Седьмой класс максимум
Мы паскаль только в 10м проходить начали.

11. finall2 (14.12.2010 / 17:19)
10.А мы паскаль вобще в школе не проходили.=\

12. Удаленный (14.12.2010 / 17:31)
dekameron (14 Декабря 2010 / 15:49)
PROGRAM nn; 
VAR 
p, i, n: integer; 
BEGIN 
readln(n); 
for i:=1 to 2*n-1 do
begin
p:=p+i*(i+1);
i:=i+1;
end; 
writeln(p); 
END.

Седьмой класс максимум
паскаль только в 10 nono

13. DeadLiftBaby (14.12.2010 / 17:41)
12, на сколько я знаю с 9-ого изучают smile

14. Денис (14.12.2010 / 18:33)
VB с 9го, потом Pascal

15. Символ (14.12.2010 / 19:06)
6. не повериш это 1 курс универа

Добавлено через 03:52 сек.
а еще 2 из контрольной решите? очень надо

16. Иван (14.12.2010 / 19:10)
b1Ng0 (14 Декабря 2010 / 17:31)
паскаль только в 10 nono
у нас он в 9м только начался...

17. finall2 (14.12.2010 / 19:20)
15.Да кидай.
Для повышения квалификации постараюсь решить))

18. Символ (15.12.2010 / 11:26)
контрольная работа:
1) УСЛОВНЫЙ ОПЕРАТОР IF:
даны числа фбибсю определить является ли число с среднем арифметическим чисел a и b/
2)ЦИКЛЫ
составить программу, которая запрашивает пароль (любое число) до тех пор, пока он не будет правильно введен.
p.s. нужно с объяснениями т.е. что за что отвечает в программе. я в этом просто плохо шарю, да и по другим предметам долгов много., не успеваю все делать(

19. finall2 (15.12.2010 / 14:05)
Ну что такое числа фбибсю я не знаю E
Вторая вот.

program passwords;
var en,go:string;
begin

go:='password'; {Пароль}

while not (go=en) do readln(en);

end.

Можно еще извратиться так
program passwords;
var str,password:string;
var en,go:integer;
begin

str:='password'; { Пароль}
en:=1;

while go<en do begin
inc(go,1);
inc(en,1);
readln(password);
if str=password then exit;
end;
end.


20. Символ (15.12.2010 / 14:28)
это в следующем семестре будет. есть еще варианты решения?

21. Игорь (15.12.2010 / 14:33)
Что такое фбибсю ?)
У нас Pascal в 10 был= )

22. Символ (16.12.2010 / 18:29)
фбибсю это a,b,c. punto switcer перевел раскладку((

23. finall2 (16.12.2010 / 21:06)
22.Если я правильно понял условие.
program abc;
var a,b,c:integer;
begin
read(a,b,c); a:=a+b;
if a/2=c then write('C - среднее арифм.') else write('error');
end.


24. Символ (17.12.2010 / 04:56)
сппасибор сем. щас поосмотрим че правильно что нет. тему пока не кройте

25. DeadLiftBaby (17.12.2010 / 10:51)
24, в том то и дело, что всё правильно smile

26. Символ (22.12.2010 / 12:06)
Uses crt;
Var n,i,p:integer;
Begin
Clrscr;
write('Введите натуральное число ');
readln(n);
p:=0;
for i:=1 to n do
p:=p+(2*i-1)*2*i;
writeln('Значение выражения равно ',p);
end.
кто за плюс решит эту задачу через repeat-untel и whihe. до 8 утра надо сдать мне. выручайте еще

27. Владислав (22.12.2010 / 12:17)
23. ForGotTen_HHTеаm, а в паскале нету тернарного оператора?

28. finall2 (22.12.2010 / 13:15)
27.А фиг его знает.
Я php самоучка,точно так-же как и в паскале =D
По первому причем даж учебников не читал.

while
Program AfigEgoZnaeT;
Uses crt;
Var n,i,p:integer;
Begin
Clrscr;
write('Введите натуральное число ');
readln(n);
p:=0;

while i<n do begin
i:=i+1;
p:=p+(2*i-1)*2*i; end;
writeln('Значение выражения равно ',p);
end.
Until
Program AfigEgoZnaeT;
Uses crt;
Var n,i,p:integer;
Begin
Clrscr;
write('Введите натуральное число ');
readln(n);
p:=0;
i:=1;

Repeat
p:=p+(2*i-1)*2*i;
i:=i+1;
until i>n;

writeln('Значение выражения равно ',p);
end.
26.ЗЫ,я еще ни одного не получил (=

29. Символ (22.12.2010 / 13:59)
Ваш положительный голос за пользователя ForGotTen_HHTеаm успешно оставлен!
В данный момент его авторитет: 51
Всего положительных голосов: 57
Всего отрицательных голосов: 6

30. Символ (23.12.2010 / 09:38)
Uses Crt;
var a:Array[1..100] of integer;
i,j,min,max,b,c,d,n: integer;
begin
Clrscr;
randomize; n:=random(10);
writeln('Введите массив:');
for i:=1 to n do
begin write('a[',i,']='); readln(a[i]); end;
for i:= 1 to n do
begin min:=a[i]; max:=a[i];
for j:=i to n do
begin
if a[j]<min then begin min:=a[j]; b:=j; end;
if a[j]>max then begin max:=a[j]; c:=j; end;
end;
d:=a[i]; a[i]:=a[b]; a[b]:=a[c]; a[c]:=d;
end;
writeln('Преобразованный массив:');
for i:=1 to n do
write('a',i,'=', a[i],' ');
end.
переделайте кто нить задачу что бы работала нормально и массив вводился автоматически.

31. Символ (23.12.2010 / 22:43)
народ ну помогите а то зачета не будет. через 8 часов сдавать уже((((

32. finall2 (24.12.2010 / 01:00)
31.Лучше само задание напиши)

URL: https://visavi.net/topics/16566