nikitanike
Новичок
|
     
Цитата: VF написал 1 июня 2010 14:33
Цитата: nikitanike написал 1 июня 2010 5:09
Условный оператор if и деление (div если деление с остатком и просто / если деление в вещественных числах). Элементарная программа...
ДА знаю что легко просто я не шарю в этом деле а мне надо по информатике чтобы зачёт получить можете расписать всё подробнее пожалуйста))
|
Всего сообщений: 2 | Присоединился: июнь 2010 | Отправлено: 1 июня 2010 16:51 | IP
|
|
toropina
Новичок
|
помогите написать программы,я в этом полный ноль((:1.Образовать массив x, упорядоченный по неубыванию, и массив y, упорядоченный по невозрастанию, используя фрагмент программы:
CONST
k = 50;
m = 20;
n = k + m;
VAR
x: array [1..k] of real;
y: array [1..m] of real;
z: array [1..n] of real;
Объединить элементы этих двух массивов в один массив z так, чтобы они оказались упорядоченными по неубыванию.
2.Определить симметричность элементов каждой строки образованной случайной вещественной матрицы А (20x40 ) посредством функции, проверяющей симметричность числа.
спасибо заранее)
|
Всего сообщений: 2 | Присоединился: июнь 2010 | Отправлено: 2 июня 2010 22:01 | IP
|
|
Wake up
Новичок
|
2009 г. урожай ячменя составил 20 ц с га. В среднем каждые 2 года за счет применения новой технологии урожай увеличивается на 5 %. Определить через сколько лет урожайность достигнет 25 ц с га.
|
Всего сообщений: 3 | Присоединился: июнь 2010 | Отправлено: 3 июня 2010 12:30 | IP
|
|
Wake up
Новичок
|
Z= 5 в степени х - 2х, при 1<=х<=0
5 в степени х + 2 в сиепени х, при 0<=х<=2
0, в др. случ.
(это система)
|
Всего сообщений: 3 | Присоединился: июнь 2010 | Отправлено: 3 июня 2010 12:39 | IP
|
|
Wake up
Новичок
|
y= d+sinx/[a в квадрате - b в квадрате] - это все под корнем квадратным!
[] - модуль.
Помогите, пожалуйста! Очень надо!
|
Всего сообщений: 3 | Присоединился: июнь 2010 | Отправлено: 3 июня 2010 12:44 | IP
|
|
Umbrella
Новичок
|
Пожалуйста помогите написать прогу по одномерным массивам.
Задание:Даны целые числа а1,…,а50. Получить сумму тех чисел данной последовательности, которые нечётны и отрицательны.
|
Всего сообщений: 1 | Присоединился: июнь 2010 | Отправлено: 6 июня 2010 19:07 | IP
|
|
Dale
Участник
|
 
Wake up
sqrt(d+sin(x)/abs(sqr(a)-sqr(b)))
|
Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 7 июня 2010 9:36 | IP
|
|
Ruslan992
Новичок
|
здравствуйте помогите пожалуйста решить 2 задачи на паскале . всего их четыре в заданиях по практике 2 решил осталось ещё 2 .не получается вот задачи .
Задача №1: Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: букв или цифр
вот есть задача на подобие ((((((Организовать текстовый файл f, состоящий из N строк. Организовать замену символов в файле. "Старый" символ и "новый" символ запрашиваются и вводятся с клавиатуры.))))))
program pr_20;
var g,t:text; i,c,z:char;
begin
writeln('введите символ, который хотите заменить');read(z);
writeln('введите символ, на который будет заменен символ');readln(i);
assign(t,'1.txt'); reset(t);
assign ( g,'выходной.txt'); rewrite(g);
while not eof(t) do begin
while not eoln(t) do begin
read(t,c);
if c=z then write(g,i) else write(g,c);
end;
writeln(g);
readln(t);
end; close(t); close(g);
end.
Задача №2 :Написать программу с подпрограммой , которая будет выводить на экран монитора таблицу квадратов последовательно возростающих чисел (1, 2, 3, ...10).
заранее спасибо
|
Всего сообщений: 1 | Присоединился: июнь 2010 | Отправлено: 7 июня 2010 10:19 | IP
|
|
OKAMI
Новичок
|
Помогите, пожалуйста, вылюсь, завтра сдавать...! Дана квадратная матрица размеров NхN. Нужно прога для вывода элементов рамок матрицы по часовой стрелке в отдельный вектор.
Пример:
1 2 3 4
5 6 7 8
9 0 1 2
3 5 6 7
1 вектор : 1 2 3 4 8 2 7 6 5 3 9 5
2 вектор : 6 7 1 0
|
Всего сообщений: 2 | Присоединился: июнь 2010 | Отправлено: 10 июня 2010 15:01 | IP
|
|
toropina
Новичок
|
помогите найти ошибки:задание:1.Образовать массив x, упорядоченный по неубыванию, и массив y, упорядоченный по невозрастанию, используя фрагмент программы:
CONST
k = 50;
m = 20;
n = k + m;
VAR
x: array [1..k] of real;
y: array [1..m] of real;
z: array [1..n] of real;
Объединить элементы этих двух массивов в один массив z так, чтобы они оказались упорядоченными по неубыванию.
программа:Program Ex1;
uses crt;
const
k = 50;
m = 20;
n = k + m;
var
x : array[1..k] of real;
y : array[1..m] of real;
z : array[1..n] of real;
i,j: integer;
d: real;
maxi, mini : integer;
begin
d:=1.2;
for i:=1 to k do
begin
x:=i+d;
end;
//Вывод первого массива X.
writeln('Массив X: ');
for i:=1 to k do
begin
write(x, ' ');
end;
for i:=m downto 1 do
begin
y:=i-d;
end;
//Вывод второго массива Y.
writeln;
writeln('Массив Y: ');
for i:=m downto 1 do
begin
write(y, ' ');
end;
//Заполнение третьего массива Z. Сначала элементами X.
for i:=1 to k do
begin
z:=x;
end;
//Заполнение третьего массива Z. Теперь элементами Y.
for i:=n downto k+1 do
begin
z:=y[i-50];
end;
//Сортировка массива по неубыванию.
mini := 1;
for i:=1 to n-1 do
begin
for j:= i+1 to n do if (z[j] < z[mini]) then
mini := j;
d := z;
z := z[mini];
z[mini]:= d;
end;
writeln;
writeln('Массив Z: ');
for i:=1 to k+m do
begin
write(z, ' ');
end;
end.
,2-ая,задание:2.Определить симметричность элементов каждой строки образованной случайной вещественной матрицы А (20х40 ) посредством функции, проверяющей симметричность числа.
прогарамма:Program CheckForSimmetry;
uses crt;
const
w = 20;
h = 40;
var
a: array[1..w,1..h] of real;
i,j: integer;
totalSimm: boolean;
function checkSimmetry(x: real): boolean;
var
temp,str: string;
len: integer;
dk,k,n: integer;
isSimmetryc: boolean;
begin
isSimmetryc := true;
str:=FloatToStr(x);
if (pos('.',str) <> 0) then
begin
temp:=copy(str,1,(pos('.',str)-1));
temp:=temp+copy(str,(pos('.',str)+1),length(str));
end
else temp:=str;
if (StrToInt(temp[1]) = 0) then temp := copy(temp,2,length(temp));
n:=length(temp);
for k:=1 to n do
begin
dk := StrToInt(temp[k]);
if not (dk = StrToInt(temp[n - k + 1])) then isSimmetryc := false;
end;
result:=isSimmetryc;
end;
begin
randomize;
totalSimm := false;
for i:=1 to h do
begin
for j:=1 to w do a[j,i]:= (random(99900)*1.12345);
end;
//раскоментировать нижню строчку для проверки на симметричность.
//a[1,3]:=54345;
for i:=1 to h do
begin
for j:=1 to w do if (checkSimmetry(a[j,i])) then
begin
writeln('Симметрично: ',a[j,i]);
totalSimm := true;
end;
end;
if not(totalSimm) then writeln('Ни одно число не симметрично!');
end.
|
Всего сообщений: 2 | Присоединился: июнь 2010 | Отправлено: 10 июня 2010 17:42 | IP
|
|
|
Форум
Решение задач на Pascal. Форум 3.
