|
Решения задач на Паскале!Срочно нужно!
|
|
Пусть 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]│
|
|
|
|
Помогите пожалуйста решить несколько задач.
1. В массиве чисел А(N) найти максимальное число, принадлежащее интервалу [–3; 2]. Все отрицательные числа, которые не принадлежат этому интервалу, занести в массив В. Если максимальное число оказалось отрицательным, то его тоже занести в массив (последний
элемент).
2. В матрице Z(5,6) первый отрицательный элемент каждого
столбца заменить суммой следующих за ним значений. Отрицательные
элементы до замены вывести в массив.
3. Зашифровать текст так, чтобы каждый символ-цифра был заменен его порядковым номером в таблице ASCII (ord (s)).
|
|
|
|
Для заданной квадратной матрицы найти такие k , что бы k - я строка матрицы совпадала с k - м столбиком матрицы.
Помогите пожалуйста!!!
|
|
|
|
ребятки, помогите, пожалуйста, решить задачу в паскале:
найти среднее арифметическое элементов каждой из четных строк этой матрицы
:3
|
|
|
|
Помогите дописать программу.Вот учсловие программы.
Удалить элемент массива вещественных чисел, который
меньше среднего арифметического элементов массива.А фот сомапрограмма.
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.
|
|
|
|
Будьте добры,помогите, пожалуйста, решить в паскале,учусь на филолога,вообще не понимаю....
1)Определить количество пассажиров, которые могут поместиться на борт самолета, если его грузоподъемность 8 т. Вес каждого пассажира вводится пользователем.
2)Джонатан Смит играет с машиной в итальянские кости. Условия игры такие: машина задумывает число от 0 до 50 и запрашивает последовательно ввод трех чисел, а Джонатан вводит их с клавиатуры. Если сумма чисел отличается от задуманного числа не более чем на 10% - Джон выиграл, нет - проиграл. Составить программу, реализующую игру.
|
|
|
|
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
|
|
|
|
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
|
|
|
|
Прошу помочь с такой задачей:
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 элементом.
|
|
|
|
Ответ в личку отослал
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Люди плииииииииииз помогите!!!!))) оч нужно..(((
Сведения о статье: автор, название статьи, название журнала, № журнала, год выпуска. Распечатать сведения о всех статьях указанного автора.
|
|
|
|
Люди дорогие!помогите пожалуйста...не могу никак понять как выполнить задачи данные!((
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
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Народ, кто сможет помочь в решении пары задач на pascal`e??
1. Дан одномерный массив чисел. Удалить все элементы, большие данного числа А (А вводить с клавитуры).
2.Дан целочисленный массив А(n,m). Найти наименьшее целое число k, обладающее таким свойством: хотя бы в одно строке массива все элементы не превосходят k.
|
|
|
|
Помогите пожалуйста с еще одной задачей..ну очень надо!
-Дана целочисленная матрица размера 6х7. Найти матрицу, получающуюся из данной: перестановкой столбцов - первого и последнего, второй с предпоследним и т.д.
|
|
|
|
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
|
|
|
|
$$\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
|
|
|
|
Ребята помогите!!!!! учусь на бухгалтера, а по ходу лепят программистов. Ну не мое это!!! надо написать задачки в паскале по векторам. Мы эти векторы больше 10 лет назад в школе проходили,не помню ничего! 2 дня сижу и результата 0!
Контрольная работа 1
1.1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Посчитать количество элементов, которые делятся на 4. Результаты вывести на экран.
1.2. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Составить новый вектор, записав в него для каждого элемента исходного вектора количество его цифр. Результаты вывести на экран.
Контрольная работа 2
2.1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Удалить из вектора все элементы, у которых сумма всех делителей меньше 20. Результаты вывести на экран.
2.2. С клавиатуры вводятся размеры (<=100x100) матрицы и её (целые) элементы. Составить вектор номеров строк, в которых все элементы чётные. Результаты вывести на экран.
|
|
|
|
