|
Решения задач на Паскале!Срочно нужно!
|
|
|
у 6 два делителя 2+3=5, у восьмерки 2+4=6
|
|
|
|
Кэп где-то рядом))
Я к примеру привёл, правильно ли я понял)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
ну аке)
я скоро освобожусь - приступлю к написанию:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Berestovskiy) Quote (RamilX)
Вычислить
сумму элементов
последовательности
1+ 1/(2 в квадрате)+1/(3 в квадрате)+…+1/(
n в квадрате) с точностью до
0,001.
var
i,n:integer;
summa,kvadrat:real;
begin
summa:=0;
read(n);
for i:=1 to n do begin
kvadrat:=i*i;
kvadrat:=1/kvadrat;
summa:=summa+kvadrat;
end;
writeln(summa:1:3);
end.
Спасибо большое)
|
|
|
|
Обращайся ещё)))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
всему своё время))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
я тебя понимаю, но у меня тоже дела есть и всем "очень срочно нужно", тогда мне пришлось бы полностью всё своё время проводить тут!
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Var i,n,b,x:integer;
begin;
Writeln('введите n');
Read(n);
Writeln('вводите числа');
For i:=1 to n do
Begin
Read(x);
If x=0 then b:=b+1
End;
writeln('количество нулей ',b);
End .
Вот я правильно написал. Нужно найти количество нулей в последовательности. Заранее спасибо:-)
|
|
|
|
Правильно:)
Только сделай после begin
b:=0;
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Berestovskiy) Правильно:)
Только сделай после begin
b:=0;
Зачем? он же и так по идее равен нулю, я уже давно заметил, что если к нулю надо прировнять то необязательно писать:-)Добавлено (18.03.12, 15:28)
---------------------------------------------
*приравнять. От слова равный. Торможу немного:-D
|
|
|
|
Я раньше тоже так думал)))
Это называется иницаализация, если этой переменной ничего не присвоить, то в неё может попасть любое значение из памяти, например код будет такой:
var
a:integer;
begin
writeln(a);
end.
Вывод может быть не 0, а 14275 или любое другое число))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
дан целочисленный массив А размера n, переписать в новый целочисленный массив В того же размера, в начале все элементы исходного массива с четными номерами, затем с нечетными Добавлено (19.03.12, 12:49)
---------------------------------------------
дан массив А размера n целочисленный, сформировать новый массив В того же размера по следующему правилу bk=сумме элементов массива А с номерами от 1 до k Добавлено (19.03.12, 12:50)
---------------------------------------------
дан целочисленный массив А размера n, переписать в новый целочисленный массив В, все четные числа из исходного массива в обратном порядке, вывести размер В и его содержимое
|
|
|
|
Quote (Marina_l) дан целочисленный массив А размера n, переписать в новый целочисленный массив В того же размера, в начале все элементы исходного массива с четными номерами, затем с нечетными
var
a,b:array[1..100]of integer;
i,j,n:integer;
begin
read(n);
j:=1;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if i mod 2=0 then begin b[j]:=a[i];j:=j+1;end;
for i:=1 to n do
if i mod 2<>0 then begin b[j]:=a[i];j:=j+1;end;
for i:=1 to n do
write(b[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Marina_l) дан массив А размера n целочисленный, сформировать новый массив В того же размера по следующему правилу bk=сумме элементов массива А с номерами от 1 до k
var
a,b:array[1..100]of integer;
i,j,c,n,summ:integer;
begin
read(n);summ:=0;c:=1;
for i:=1 to n do
read(a[i]);
for i:=1 to n do begin
for j:=1 to i do
summ:=summ+a[j];
b[c]:=summ;
c:=c+1;
summ:=0;end;
for i:=1 to n do
write(b[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Marina_l) дан целочисленный массив А размера n, переписать в новый целочисленный массив В, все четные числа из исходного массива в обратном порядке, вывести размер В и его содержимое
var
a,b:array[1..100]of integer;
c,n,i,j:integer;
begin
read(n);j:=1;
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do begin
b[j]:=a[i];j:=j+1;
end;
for i:=1 to n do
if b[i] mod 2<>0 then b[i]:=0;
for i:=1 to n do
for j:=1 to n-1 do
if b[j]<b[j+1] then begin c:=b[j];b[j]:=b[j+1];b[j+1]:=c;end;
c:=0;
for i:=1 to n do
if b[i]<>0 then c:=c+1;
writeln('razmernost` : ',c);
for i:=1 to n do
if b[i]<>0 then write(b[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите с решением пожалуйста не могу решить задачу
Составить программу, подсчитывающую число гласных и согласных букв в заданном тексте и определяющую, каких букв больше (гласных и согласных).
program pr;
const k=30;
var
n,s,g,i:integer;
a:array[1..k] of char;
begin
writeln('введите колличиство букв');
readln(n);
writeln('введите буквы');
for i:=1 to n do readln(a[i]);
g:=0;
for i:=1 to n do
begin
if (a[i]=' ') or (a[i]='®') or (a[i]='Ґ') or
(a[i]='г') or (a[i]='Ё') or (a[i]='о') or
(a[i]='п') or (a[i]='н') or (a[i]='л') or (a[i]='ш')
then inc(g)
end;
s:=n-g;
if s=g then writeln('гласных и согласных одинаковое количество');
if s>g then writeln('согласных больше');
if s<g then writeln('гласных больше');
readln
end.
постоянно выдает один и тот же ответ
|
|
|
|
помогите решить задачи на Паскале Очень нужно СРОЧНО ГОРЮ!!!!!!!!
1 Составить программу вычисления и выдачи на печать суммы (или произ¬ведения) N элементов бесконечного числового ряда.y=1(-3)9(-27)81...
2 Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, выполняющую задачу в соответствии свариантом Найти номера первых двух рядом стоящих одинаковых элементов в массиве. Так, если А={2,6,4,4,2,5,5,4}, результат: 3 и 4 (равные значения 4 и 4).
3Составить программу вычисления числового ряда для известного числа членов ряда N. Перед программированием следует выявить и написать аналитические соотношения, описывающие все имеющиеся зависимости.Y=(7+35/1)(8-3-4/2)(9+33/3)(10+3-2/4)...
4. Выполнить действия над массивами. В таблице при формулировании задания для разъяснения его сути справа отображены примеры исходных Х и результирующих Y массивов с конкретными числами. Программа, естественно, должна обрабатывать любые числа для векторов размерностью N. Программа должна предъявлять исходные и новые массивы.Заполнить массив Y произведениями соседних двух элементов Х.
-2 4 3 2 6 3 Х
-8 6 18 Y
|
|
|
|
