|
Решения задач на Паскале!Срочно нужно!
|
|
Quote (vil_99) Тема: Циклы while...do и repeat...until.
Задание: Написать две программы, которые выводят на экран заданный
набор символов. Одна программа должна использовать только цикл
while…do, а другая - только цикл repeat…until. Массивы и строки не
применять.
F
EF
DEF
CDEF
BCDEF
ABCDEF
pred(); в помощь)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (ksushka2307) Тема: ветвление программы (использование условных операторов и оператора
выбора).
Задание: используя оператор условия (if … then), составить программу для
вычисления составной (сложной) функции, имеющей различный вид на
разных участках аргумента. С помощью оператора выбора (case) указать на
каком отрезке находится введенное с клавиатуры значение аргумента, и
вывести значение функции в данной точке.
Функция Участки аргумента
y1= 7sin(x) – 1<=x1<– 0.5
y2=(x+1)*(x2+1)-1 – 0.5<=x2<0.5
y3=1.2sin(2x) 0.5<=x3<1
y4=-(x-0.6)2+1.25 1<=x4<=2
P.S: там где у1, 7 в степени sin(x)
var
x,y:real;
begin
read(x);
if (x>=-1)and(a<-0.5) then begin
y:=exp(sin(x)*ln(7));
writeln('-1<=x<-0.5');
writeln('y=',y);end;
if(x>=-0.5)and(x<0.5) then begin
y:=(x+1)*(x*2+1)-1;
writeln('-0.5<=x<0.5);
writeln('y=',y);end;
if(x>0.5)and(x<1) then begin
y:=1.2*sin(2*x);
writeln('0.5<=x3<1');
writeln('y=',y);end;
if (x>=1)and(x<=2) then begin
y:=-(x-0.6)*2+1.25;
writeln('1<=x4<=2');
writeln('y=',y);end;
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (vil_99) 1)По данному действительному числу a и натуральному n вычислите сумму 1+a+a2+...+an, не используя формулу суммы геометрической прогрессии. Время работы программы должно быть пропорционально n.
var
sum,a,n,i:integer;
begin
read(a,n);
sum:=1;
for i:=1 to n do
sum:=sum+a*i;
writeln(sum);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
function factorial(x:integer):integer;
var
i,fact:integer;
begin
fact:=1;
for i:=1 to x do
fact:=fact*i;
factorial:=fact;
end;
var
i,n:integer;
sum:real;
begin
sum:=0;
read(n);
for i:=1 to n do
sum:=sum+1/factorial(i);
writeln(sum);
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Тема: Обработка одномерных массивов.
Задание: Заполните один или несколько одномерных массивов. Распечатайте
результат заполнения. Проведите преобразование и упорядочивание
(сортировку) массивов. Распечатайте результирующие массивы. Сортировки
проведите тремя методами. При использовании каждого из методов
желательно использовать свой массив. Если количество массивов меньше
трех, то один из массивов перед сортировкой надо скопировать в
дополнительный массив и провести также и его сортировку.
Дан массив содержащий текст. Среди литер текста особую роль играет
знак # , появление которого означает отмену стоящей перед ним буквы,
несколько знаков # означает отмену аналогичного числа букв. Создать массив
заполненный текстом из первого массива с учетом роли этого знака.
(ХЭ#E##НЕLO#LO = HELLO). Произвести сортировку полученных массивов.
Для контроля результата сделать распечатку массивов, в том числе исходного.Добавлено (26.11.12, 22:07)
---------------------------------------------
Тема: Обработка двумерных массивов.
Вариант задания тот же, что и для предыдущей работы, отличие состоит в
том, что необходимо обработать несколько одномерных массивов
объединенных в двумерный массив.
|
|
|
|
А благодарность так и прёт..))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
ПОМОГИТЕ режить на паскаде ПОЖАЛУЙСТА!!!!!!!!!!!!!
Ввести произвольную символьную цепочку. Отсортировать её символы в порядке неубывания (по алфавиту). Вывести полученную цепочку в обратном порядке.
|
|
|
|
Помогите пожалуйста!!!
В двумерном массиве, состоящем из целочисленных элементов,поменять местами в каждом столбце первый и последний отрицательные элементы.
|
|
|
|
Quote (anyka) ПОМОГИТЕ режить на паскаде ПОЖАЛУЙСТА!!!!!!!!!!!!!
Ввести произвольную символьную цепочку. Отсортировать её символы в порядке неубывания (по алфавиту). Вывести полученную цепочку в обратном порядке.
var
s:string;
i,j:integer;
c:char;
begin
readln(s);
for i:=1 to length(s) do
for j:=1 to length(s)-1 do
if a[j]>a[j+1] then begin
c:=a[j+1];
a[j+1]:=a[j];
a[j]:=c;end;
for i:=length(s) downto 1 do
write(s[i]);
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (alenka999) Помогите пожалуйста!!!
В двумерном массиве, состоящем из целочисленных элементов,поменять местами в каждом столбце первый и последний отрицательные элементы.
а менять их местами в случае если они оба отрицательные или всё равно отрицательные они или нет, всё равно менять?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
var
a:array[1..10,1..10]of integer;
i,j,n,q:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
for j:=1 to n do
if (a[1,j]<0)and(a[n,j]<0)then begin
q:=a[n,1];
a[1,j]:=a[n,j];
a[n,j]:=q;end;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;end;
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Еще одна задачка, помогите пожалуйста!!!
Составить программу обработки строки, выводящую через запятую слова, состоящие из одинаковых символов (например, ааа, ееее и т.п.)
|
|
|
|
Пример ввода-вывода давай))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Quote (alenka999) я же не программист(
ну тогда ты и не человек, раз не понял(а) моей просьбы))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Сказал(а) как отрезал(а) )))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
