|
помогите составить программу на Паскале
|
|
|
В кинотеатре 30 рядов кресел. В первом ряду 20 кресел, в каждом следующем на 2 кресла больше, чем в предыдущем. Сколько мест в зрительном зале?
|
|
|
|
Так это легко! Арифметическая прогрессия!
Вот держи:
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. |
|
|
|
Спасибо конечно, но эта программа неправильно считает, она вычисляет количество мест в 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.
|
|
|
|
|
Да, вот теперь верно, спасибо огромное. Можно тебя попросить объяснить, что значат переменные "r" и "sum"
|
|
|
|
r - количество мест в i ряду
sum - мест всего. С каждым шагом прибавляется новый ряд
|
|
|
|
|
Спасибо, завтра понесу сдавать на оценку Добавлено (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.
|
|
|
|
Составте программу, котрая выводит на экран число сотен в заданном числе, если оно трёхзначное, а в противном случае сообщает: "Число не трёхзначное". помогите пж))
=))))
|
|
|
|
var
a:integer;
begin
read(a);
if a>=100 then writeln(a div 100) else writeln('Число не трёхзначное');
end.
"Спасибо" принимается в види повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите пожалуйста составить програму, в Паскале просто полный ноль...
" Составить програму, подбирающую окончания к слову "гриб" для первого десятка"
типа один - гриб
два- грибА
пять - грибОВ
|
|
|
|
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
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите решить в паскале с помощью цикла
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
|
|
|
|
Напиши нормально задание для начала...
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Задана матрица а(4х3). Составить программу формирования новой матрицы посредством замены всех положительных элементов на 1, а остальных элементов на 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
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.
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. Из элементов меньших а, сформировать новый одномерный массив.
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. Все элемениы уменьшить на велечину квадрата наименьшего элемента.
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. поменять местами первый максимальный элементы массива.
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. проверить что масиив упорядочен строго по убыванию.
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
|
|
|
|
