Новые сообщения · Правила  
Страница 15 из 38«1213141516173738»
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Решения задач на Паскале!Срочно нужно!
Пусть x1=y1=1; x[i] = 0.3 * x[i-1];
y[i] = x[i-1] + y[i-1]; i=2,3,....
Дано натуральное n. Найти:
n
╔══ x[i]
╠ ──────────
╚══ 1 + │y[i]│
281 | Автор: M@RECS | 2011-12-19, 22:19   |  Репутация: [ + 0 ]
Помогите пожалуйста решить несколько задач.

1. В массиве чисел А(N) найти максимальное число, принадлежащее интервалу [–3; 2]. Все отрицательные числа, которые не принадлежат этому интервалу, занести в массив В. Если максимальное число оказалось отрицательным, то его тоже занести в массив (последний
элемент).

2. В матрице Z(5,6) первый отрицательный элемент каждого
столбца заменить суммой следующих за ним значений. Отрицательные
элементы до замены вывести в массив.

3. Зашифровать текст так, чтобы каждый символ-цифра был заменен его порядковым номером в таблице ASCII (ord (s)).
282 | Автор: xDefx | 2011-12-21, 07:34   |  Репутация: [ + 0 ]
Для заданной квадратной матрицы найти такие k , что бы k - я строка матрицы совпадала с k - м столбиком матрицы.
Помогите пожалуйста!!!
283 | Автор: mastero | 2011-12-22, 17:48   |  Репутация: [ + 0 ]
ребятки, помогите, пожалуйста, решить задачу в паскале:
найти среднее арифметическое элементов каждой из четных строк этой матрицы
:3
284 | Автор: ninja777 | 2011-12-22, 21:32   |  Репутация: [ + 0 ]
Помогите дописать программу.Вот учсловие программы.
Удалить элемент массива вещественных чисел, который
меньше среднего арифметического элементов массива.А фот сомапрограмма.
Program lab9;
uses crt;
Var a:array[1..10] of integer;
j,k,n,i:integer;
s:real;
Begin
clrscr;
Writeln('Введите размерность массива'); Readln(n);
For i:=1 to n do
Begin Write('a[',i,']='); Read(a[i]);
End;
s:=0;
For i:=1 to 10 do s:=s+a[i];
Writeln('Среднее арифметическое =',s/n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i]:=0;
end;
for i:=1 to n do
begin
if a[i]<>0 then
writeln(a[i]);
end;
end;
end.
285 | Автор: M@RECS | 2011-12-23, 18:13   |  Репутация: [ + 0 ]
Будьте добры,помогите, пожалуйста, решить в паскале,учусь на филолога,вообще не понимаю....

1)Определить количество пассажиров, которые могут поместиться на борт самолета, если его грузоподъемность 8 т. Вес каждого пассажира вводится пользователем.

2)Джонатан Смит играет с машиной в итальянские кости. Условия игры такие: машина задумывает число от 0 до 50 и запрашивает последовательно ввод трех чисел, а Джонатан вводит их с клавиатуры. Если сумма чисел отличается от задуманного числа не более чем на 10% - Джон выиграл, нет - проиграл. Составить программу, реализующую игру.
286 | Автор: mari | 2011-12-23, 18:40   |  Репутация: [ + 0 ]
1)
var
a:array[1..1000]of integer;
i,n,s:integer;
begin
s:=0;
read(n);
for i:=1 to n do begin
writeln('Wvedite ves ',i,'-togo pasajura:');
read(a[i]);end;
i:=1;
repeat begin
s:=s+a[i];
i:=i+1;
end;
until s<>8000;
writeln('Mojet pomestitsya: ',s);
end.



Нужна помощь? Сюда: vkontakte.ru/berestovskiy
287 | Автор: Berestovskiy | 2011-12-24, 15:09   |  Репутация: [ + 211 ]
2)
uses crt;
var
z,q,w,e:integer;
begin
randomize;
z:=random(51);
read(q);read(w);read(e);
q:=q+w+e;
if (q+0)+(q+1)or(q+2)or(q+3)or(q+4)or(q+5)or(q-1)or(q-2)or(q-3)or(q-4)or(q-5)<>z then
writeln('false') else writeln('true');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
288 | Автор: Berestovskiy | 2011-12-24, 15:13   |  Репутация: [ + 211 ]
Прошу помочь с такой задачей:
1) Скласти програму для побудови графіка функції на
заданому проміжку.

$$\frac{1}{\sqrt{1-x^{2}}}$$

2)Ввести з клавіатури послідовність N однобайтних чисел в
шістнадцятковому форматі. Обчислити контрольну суму цієї
послідовності, використовуючи наступну рекурентну
формулу:
B[N+1]=B[N+1] and (B[i] or 25h) якщо i парне;
B[N+1]=B[N+1] or (B[i] xor 25h) якщо i непарне.
Вивести на екран послідовність B[i] і контрольну суму
B[N+1].

3)Створити файл довільних символів (символи вводься із клавіатури). Всі знайдені програмою букви російського алфавіту перенести в початок файлу, а цифри - у кінець. Всі символи, що не є буквою російського алфавіту або цифрою переписати в інший файл. Внести на екран вміст файлів.

у меня вышло что то такое но оно не до конца делает то что нужно

Program L9R;
uses crt;
var
f1,f2:text;
a,z:byte;
q,w,v,s:string;
k,d:integer;

Procedure Num_detekt(Var s:string;Var v:String;Var z:byte);
Var x:Byte;
Begin
z:=1;
for x:=1 to LENGTH(s) do
if not (s[x] in ['0'..'9']) then
Begin
s[z]:=s[x];
z:=z+1
End
Else
v:=v+s[x]

End;
Function New_String(Var s:String;Var v:String;Var z:Byte):String;
Var x:Byte;
Begin
for x:=1 to LENGTH(s) do s[x+z-1]:=v[x];
New_String:=s
End;
BEGIN
Clrscr;
assign(f1,'f1.txt');
rewrite(f1);
Write('Введите строку:');Readln(s);
writeln(f1,s);
close(f1);
reset(f1);
assign(f2,'f2.txt');
Num_detekt(s,v,z);
Write('Результат работs: ');
Writeln(New_String(s,v,z));
for k:=1 to length(s) do
if (s[k] in ['A'..'Z']) then
begin
w[d]:=s[k];
d:=d+1;
delete(s,k,1);
end;
writeln(s);
writeln(w);
Readln;
END.
289 | Автор: RGeorge | 2011-12-24, 19:50 | Изменено: RGeorge - Сб, 2011-12-24, 19:51   |  Репутация: [ + 0 ]
помогите решить срочно задачку
Дан одномерный вещественный массив D[1..10]. Вычислить количество ненулевых элементов, расположенных перед min элементом.
290 | Автор: Amore | 2011-12-26, 14:36   |  Репутация: [ + 0 ]
Ответ в личку отослал

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
291 | Автор: Berestovskiy | 2011-12-27, 16:50   |  Репутация: [ + 211 ]
Люди плииииииииииз помогите!!!!))) оч нужно..(((

Сведения о статье: автор, название статьи, название журнала, № журнала, год выпуска. Распечатать сведения о всех статьях указанного автора.
292 | Автор: МишаМишка | 2011-12-28, 14:58   |  Репутация: [ + 0 ]
Люди дорогие!помогите пожалуйста...не могу никак понять как выполнить задачи данные!((

1.Найти сумму целых положительных чисел, кратных 4 и меньших 100.
2.Дано действительное число х. Получить целую часть х; затем число х, округлённое до ближайшего целого; затем число без дробных цифр.
3.Дана целочисленная матрица размера 6х7. Найти матрицу, получающуюся из данной: перестановкой столбцов - первого и последнего, второй с предпоследним и т.д.
.

Добавлено (28.12.11, 18:24)
---------------------------------------------
и еще..как вот такую штуку выполнить?!!!???подскажите,оч прошу!
$$\sum_{k=1}^{n}\frac{1}{k^{5}}$$
293 | Автор: AK88 | 2011-12-28, 18:24 | Изменено: AK88 - Ср, 2011-12-28, 18:25   |  Репутация: [ + 0 ]
1.
var
i,s:integer;
begin
for i:=1 to 100 do
if i mod 4=0 then s:=s+i;
writeln(s);
end.

2.
var
x:real;
begin
read(x);
writeln(trunc(x));
writeln(round(x));
writeln(trunc(x));
end.


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


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
294 | Автор: Berestovskiy | 2011-12-29, 12:06   |  Репутация: [ + 211 ]
Народ, кто сможет помочь в решении пары задач на pascal`e??

1. Дан одномерный массив чисел. Удалить все элементы, большие данного числа А (А вводить с клавитуры).

2.Дан целочисленный массив А(n,m). Найти наименьшее целое число k, обладающее таким свойством: хотя бы в одно строке массива все элементы не превосходят k.
295 | Автор: princ93 | 2011-12-29, 15:11   |  Репутация: [ + 0 ]
Помогите пожалуйста с еще одной задачей..ну очень надо!
-Дана целочисленная матрица размера 6х7. Найти матрицу, получающуюся из данной: перестановкой столбцов - первого и последнего, второй с предпоследним и т.д.

296 | Автор: AK88 | 2012-01-04, 23:04   |  Репутация: [ + 0 ]
Quote (princ93)
1. Дан одномерный массив чисел. Удалить все элементы, большие данного числа А (А вводить с клавитуры).


var
s:array[1..100]of integer;
i,a,n:integer;
begin
read(n);
read(a);
for i:=1 to n do
read(s[i]);
for i:=1 to n do
if s[i]<a then s[i]:=low(s[i]);
for i:=1 to n do
if s[i]<>low(s[i]) then write(s[i],' ');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
297 | Автор: Berestovskiy | 2012-01-05, 14:29   |  Репутация: [ + 211 ]
$$\sum_{k=1}^{n}\frac{1}{k^{5}}$$
298 | Автор: AK88 | 2012-01-05, 17:24 | Изменено: AK88 - Чт, 2012-01-05, 17:27   |  Репутация: [ + 0 ]
что-бы crt библиотеку не подключать и не вспоминать некий алгоритм, напишу по лёгенькому))

var
i,n,s:integer;
begin
s:=0;
read(n);
for i:=1 to n do
s:=round(1/(i*i*i*i*i))+s;
writeln(s);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
299 | Автор: Berestovskiy | 2012-01-06, 14:13   |  Репутация: [ + 211 ]
Ребята помогите!!!!! учусь на бухгалтера, а по ходу лепят программистов. Ну не мое это!!! надо написать задачки в паскале по векторам. Мы эти векторы больше 10 лет назад в школе проходили,не помню ничего! 2 дня сижу и результата 0!

Контрольная работа 1

1.1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Посчитать количество элементов, которые делятся на 4. Результаты вывести на экран.

1.2. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Составить новый вектор, записав в него для каждого элемента исходного вектора количество его цифр. Результаты вывести на экран.
Контрольная работа 2

2.1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Удалить из вектора все элементы, у которых сумма всех делителей меньше 20. Результаты вывести на экран.

2.2. С клавиатуры вводятся размеры (<=100x100) матрицы и её (целые) элементы. Составить вектор номеров строк, в которых все элементы чётные. Результаты вывести на экран.

300 | Автор: Kisevich | 2012-01-07, 11:45   |  Репутация: [ + 0 ]
300 | Автор: Kisevich | 2012-01-07, 11:45   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Страница 15 из 38«1213141516173738»
Поиск: