Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите составить программу на Паскале
помогите составить программу на Паскале
В кинотеатре 30 рядов кресел. В первом ряду 20 кресел, в каждом следующем на 2 кресла больше, чем в предыдущем. Сколько мест в зрительном зале?
1 | Автор: inn6533 | 2011-01-22, 06:23   |  Репутация: [ + 0 ]
Так это легко! Арифметическая прогрессия!
Вот держи:
Code
Program ryad;
var a, b: integer;
s: real;
begin
a:=20; {В первом ряду}
b:=30; {Всего рядов}
s:=((2*a+2*(b-1))/2)*b;
writeln('Vsego mest:',s);
readln;
end.

Ответ: 1470.

(НЕ ЗАБЫВАЕМ СТАВИТЬ "ПЛЮС")


Тот, кто смеется последним, просто не врубился сразу.)
2 | Автор: Ifrit | 2011-01-22, 11:52 | Изменено: Ifrit - Сб, 2011-01-22, 11:56   |  Репутация: [ + 12 ]
ОГРОМЕННОЕ СПАСИБО =******
Вот только мне учительница говорила, что там должен быть цикл "for"
3 | Автор: inn6533 | 2011-01-31, 13:13 | Изменено: inn6533 - Пн, 2011-01-31, 13:13   |  Репутация: [ + 0 ]
Code
Var
   sum,i: integer;
Begin
   sum:=20;
     For i:=1 to 29 do
       sum:= sum+2;
   writeln('Всего мест ',sum);
   readln;
End.
4 | Автор: -Ali- | 2011-01-31, 20:34   |  Репутация: [ + 3 ]
Спасибо конечно, но эта программа неправильно считает, она вычисляет количество мест в 30 ряду, а надо во всех 30ти:(
5 | Автор: inn6533 | 2011-02-01, 16:23 | Изменено: inn6533 - Вт, 2011-02-01, 16:27   |  Репутация: [ + 0 ]
Да, точно. Только в 30 ряду...
А если так:
Code

Var
   sum,r,i: integer;
Begin
   r:=18;
     For i:=1 to 30 do
     begin
       r:=r+2;
       sum:=sum+r;
     end;
   writeln('всего рядов ',sum);
   readln;
End.
6 | Автор: -Ali- | 2011-02-01, 19:43   |  Репутация: [ + 3 ]
6 | Автор: -Ali- | 2011-02-01, 19:43   |  Репутация: [ + 3 ]
Да, вот теперь верно, спасибо огромное. Можно тебя попросить объяснить, что значат переменные "r" и "sum"
7 | Автор: inn6533 | 2011-02-02, 12:49   |  Репутация: [ + 0 ]
r - количество мест в i ряду
sum - мест всего. С каждым шагом прибавляется новый ряд
8 | Автор: -Ali- | 2011-02-02, 20:05   |  Репутация: [ + 3 ]
Спасибо, завтра понесу сдавать на оценку

Добавлено (03.02.11, 11:44)
---------------------------------------------
А может еще вот эту задачу кто-нибудь сможет сделать "Дана последовательность 5,9,13,17,....Составить программу,определяющую,сколько слагаемых надо взять,чтобы получить сумму,равную 324"

9 | Автор: inn6533 | 2011-02-03, 11:44 | Изменено: inn6533 - Чт, 2011-02-03, 11:45   |  Репутация: [ + 0 ]
9 | Автор: inn6533 | 2011-02-03, 11:44 | Изменено: inn6533 - Чт, 2011-02-03, 11:45   |  Репутация: [ + 0 ]
Code

Uses
   Crt;
Var
   a, sum, n: integer;
Begin
   clrscr;
    a:=1; sum:=0; n:=0;
      while sum<324 do
        begin
          a:=a+4;
          sum:=sum+a;
          n:=n+1;
        end;
    writeln('n=',n);
    readkey;
End.

10 | Автор: -Ali- | 2011-02-03, 21:57   |  Репутация: [ + 3 ]
Составте программу, котрая выводит на экран число сотен в заданном числе, если оно трёхзначное, а в противном случае сообщает: "Число не трёхзначное". помогите пж))

=))))
11 | Автор: Nick97 | 2011-10-06, 15:44   |  Репутация: [ + 0 ]
var
a:integer;
begin
read(a);
if a>=100 then writeln(a div 100) else writeln('Число не трёхзначное');
end.

"Спасибо" принимается в види повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
12 | Автор: Berestovskiy | 2011-10-07, 17:04   |  Репутация: [ + 211 ]
Помогите пожалуйста составить програму, в Паскале просто полный ноль...

" Составить програму, подбирающую окончания к слову "гриб" для первого десятка"

типа один - гриб
два- грибА
пять - грибОВ
13 | Автор: MashaMasha | 2011-11-26, 23:18   |  Репутация: [ + 0 ]
var
n:word;
begin
read(n);
if n=1 then writeln('1 grib');
if (n>=2)and(n<=4) then writeln(i,'griba');
if (n>=5)and(n<=10) then writeln(i,'gribov');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
14 | Автор: Berestovskiy | 2011-11-27, 12:47   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
14 | Автор: Berestovskiy | 2011-11-27, 12:47   |  Репутация: [ + 211 ]
помогите решить в паскале с помощью цикла
n
y=знак суммы(1/i)n
i=1
n
y= знак суммы(1/i)i
i=1
n
y=знак суммы(1/i)n-i+1
i=1
n
y=знак произведения(1+[1/{i в степени n}])
i=1
15 | Автор: M@RECS | 2011-12-01, 22:10   |  Репутация: [ + 0 ]
Напиши нормально задание для начала...

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
16 | Автор: Berestovskiy | 2011-12-01, 22:19   |  Репутация: [ + 211 ]
Задана матрица а(4х3). Составить программу формирования новой матрицы посредством замены всех положительных элементов на 1, а остальных элементов на 0.
17 | Автор: basyaka23 | 2012-01-09, 15:39   |  Репутация: [ + 0 ]
Помогите решить задания(паскаль)
Срочно нужно;*
№1. дан целочисленный одномерный массив, состоящий из n элементов, и натурвльные числа k,m(k<m<n). Вычислить среднее арифметическое элементов массива с номерами от k до m
№4. дан одномерный массив Х1,Х2...Хn. Есть ли в массиве положительные элементы кратные k.
№8. дано целое число а и массив Х1,Х2...Хn. Из элементов меньших а, сформировать новый одномерный массив.
№9. дано одномерный массив А1,А2...Аn. Все элемениы уменьшить на велечину квадрата наименьшего элемента.
№10. поменять местами первый  максимальный элементы массива.
№11. проверить что масиив упорядочен строго по убыванию.


парадигма^^
18 | Автор: Парадигма | 2013-01-23, 17:51 | Изменено: Парадигма - Ср, 2013-01-23, 17:59   |  Репутация: [ + 0 ]


парадигма^^
18 | Автор: Парадигма | 2013-01-23, 17:51 | Изменено: Парадигма - Ср, 2013-01-23, 17:59   |  Репутация: [ + 0 ]

Цитата (Парадигма)
№1. дан целочисленный одномерный массив, состоящий из n элементов, и натурвльные числа k,m(k
var
a:array[1..100]of integer;
sr,i,k,n,m:integer;
begin
read(n,k,m);
for i:=1 to n do
read(a[i]);
for i:=k to m do
sr:=sr+a[i];
writeln(sr/m-k);
end.

Цитата (Парадигма)
№4. дан одномерный массив Х1,Х2...Хn. Есть ли в массиве положительные элементы кратные k.
var
a:array[1..100]of integer;
i,n,k:integer;
flag:boolean;
begin
flag:=false;
begin
read(n,k);
for i:=1 to n do begin
read(a[i]);
if (a[i]>0)and(a [i]mod k = 0) then flag:=true;end;
if flag then writeln('yes') else writeln('no');
end.

Цитата (Парадигма)
№8. дано целое число а и массив Х1,Х2...Хn. Из элементов меньших а, сформировать новый одномерный массив.
var
arr,b:array[1..100]of integer;
i,j,a,n:integer;
begin
read(n,a);
j:=1;
for i:=1 do begin
read(arr[i]);
if arr[i]<a then begin b[j]:=arr[i];j:=j+1;end;end;
end.

Цитата (Парадигма)
№9. дано одномерный массив А1,А2...Аn. Все элемениы уменьшить на велечину квадрата наименьшего элемента.
var
a:array[1..100]of integer;
i,n,min:integer;
begin
min:=high(min);
read(n);
for i:=1 to n do begin
read(a[i]);
if a[i]>min then min:=a[i];end;
for i:=1 to n do
a[i]:=a[i]-min*min;
for i:=1 to n do
write(a[i],' ');
end.
Цитата (Парадигма)
№10. поменять местами первый  максимальный элементы массива.
var
a:array[1..100]of integer;
i,n,q,w,max:integer;
begin
read(n);
max:=low(max);
for i:=1 to n do begin
read(a[i]);
if a[i]>max then begin max:=a[i];w:=i;end;end;
q:=a[1];
a[1]:=max;
a[w]:=q;
for i:=1 to n do
write(a[i],' ');
end.

Цитата (Парадигма)
№11. проверить что масиив упорядочен строго по убыванию.
var
a:array[1..100]of integer;
i,n:integer;
l:boolean;
begin
l:=true;
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
if a[i]<a[i+1] then l:=true else begin l:=false;break;end;
if l then writeln('yes') else writeln('no');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
19 | Автор: Berestovskiy | 2013-01-23, 18:24   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите составить программу на Паскале
Страница 1 из 11
Поиск: