Новые сообщения · Правила  
Страница 13 из 38«1211121314153738»
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Решения задач на Паскале!Срочно нужно!
Quote (ermilnoname)
a,x:array[1..100,1..100]of real;


Забыл дописать, сделай вот так


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


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
241 | Автор: Berestovskiy | 2011-11-18, 13:17   |  Репутация: [ + 211 ]
еще раз спасибо

2517
242 | Автор: ermilnoname | 2011-11-18, 16:49   |  Репутация: [ + 0 ]
На здоровье:) Обращайся ещё:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
243 | Автор: Berestovskiy | 2011-11-18, 18:11   |  Репутация: [ + 211 ]
Quote (Fireleo)
Fireleo

Спасибо за помощь.
244 | Автор: Vova24 | 2011-11-19, 22:22   |  Репутация: [ + 0 ]
вот еще задача, помогите решить)
вычислить значение функции y(x) и суммы S(x) на отрезке [a,b] с шагом h=0.1. вывести на печать таблицу значений x,y, и S.
y(x)=e^x
S(x)=1+x/1!+(x^2)/2!+...+(x^n)/n!
[1;2]
n=10


2517
245 | Автор: ermilnoname | 2011-11-20, 10:05   |  Репутация: [ + 0 ]
Дано натуральное число K. Выписать K-ую цифру последовательности: 14961526394...
Последовательность получается выписаннием подряд задом-наперёд квадратов натуральных чисел.
Поясним как получается эта последовательность:
Сами натуральные числа : 1 2 3 4 5 6 7 ...
Их квадраты : 1 4 9 16 25 36 49 ...
Кавадраты задом-наперёд: 1 4 9 61 52 63 94 ...
Последовательность : 14961526394...

Добавлено (04.12.11, 12:34)
---------------------------------------------
Дана последовательность из N целых чисел (N > 2).
Определить сколько чисел в послед-ти имеют максимальное значение.
Например: в послед-ти { 2 1 2 7 5 2 7 3 } максимальное значение 7, и таких чисел 2.

246 | Автор: snorlox-=ss=-42 | 2011-12-04, 12:34   |  Репутация: [ + 0 ]
Quote (snorlox-=ss=-42)
Дана последовательность из N целых чисел (N > 2).
Определить сколько чисел в послед-ти имеют максимальное значение.
Например: в послед-ти { 2 1 2 7 5 2 7 3 } максимальное значение 7, и таких чисел 2.


var
a:array[1..100]of integer;
n,i,p,q:integer;
begin
p:=low(p);
read(n);
for i:=1 to n do begin
read(a[i]);
if a[i]>p then p:=a[i];end;
for i:=1 to n do
if a[i]=p then q:=q+1;
writeln(q);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
247 | Автор: Berestovskiy | 2011-12-05, 02:07   |  Репутация: [ + 211 ]
Программу написал но не могу доработать!
uses crt;
var k,x,y,i,z,j:integer;

begin
clrscr;
i:=1;
j:=0;
repeat
write('введите',i,'число ');
read(x);
i:=i+1;
write(' квадрат равен ');
if (x>=1)and(x<10) then begin
y:= x*x;
write(y,' последовательность ');
z:=y;
while z<>0 do begin
j:=(z mod 10);
z:=z div 10;
write(j);
end;
writeln;
end;
until x>9;
readkey;
end.

программа меняет цифры квадрата одного числа,а хотелось бы получать полную последовательность)
помогите товарищи
248 | Автор: snorlox-=ss=-42 | 2011-12-05, 14:52   |  Репутация: [ + 0 ]
Дано натуральное число N большее единицы. Если оно является
простым, то есть не имеет положительных делителей, кроме 1 и самого
себя, то вывести TRUE, если нет – вывести FALSE
249 | Автор: Marina_l | 2011-12-05, 17:16 | Изменено: Marina_l - Пн, 2011-12-05, 17:27   |  Репутация: [ + 0 ]
249 | Автор: Marina_l | 2011-12-05, 17:16 | Изменено: Marina_l - Пн, 2011-12-05, 17:27   |  Репутация: [ + 0 ]
напишите программу((
Дан массив К(16). Среди них есть положительные и отрицательные. Заменить нулями те числа, величина которых по модулю больше максимального числа.
250 | Автор: Tolian92 | 2011-12-06, 12:42   |  Репутация: [ + 1 ]
var
k:array[1..16]of integer;
i,p:integer;
begin
p:=low(p);
for i:=1 to 16 do begin
read(k[i]);
if k[i]>p then p:=k[i];end;
for i:=1 to 16 do
if abs(k[i])>p then k[i]:=0;
for i:=1 to 16 do
write(k[i],' ');
end.


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


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
251 | Автор: Berestovskiy | 2011-12-06, 13:49   |  Репутация: [ + 211 ]
Quote (Berestovskiy)
var
k:array[1..16]of integer;
i,p:integer;
begin
p:=low(p);
for i:=1 to 16 do begin
read(k[i]);
if k[i]>p then p:=k[i];end;
for i:=1 to 16 do
if abs(k[i])>p then k[i]:=0;
for i:=1 to 16 do
write(k[i],' ');
end.


спасибо большое
252 | Автор: Tolian92 | 2011-12-06, 14:03   |  Репутация: [ + 1 ]
"Спасибо" принимается в виде повешения репутации ( Зелёный плюсик:) ).

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
253 | Автор: Berestovskiy | 2011-12-06, 16:22   |  Репутация: [ + 211 ]
Дано натуральное число N большее единицы. Если оно является
простым, то есть не имеет положительных делителей, кроме 1 и самого
себя, то вывести TRUE, если нет – вывести FALSE
254 | Автор: Marina_l | 2011-12-06, 19:50   |  Репутация: [ + 0 ]
var
i,n:integer;
f:boolean;
begin
read(n);
for i:=2 to n-1 do
if n mod i<>0 then f:=true else begin f:=false;break;end;
writeln(f);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
255 | Автор: Berestovskiy | 2011-12-07, 00:59   |  Репутация: [ + 211 ]
Помогите пожалуйста составить 3 программы в паскале, зависит от этого моя стипендия, буду безумно благодарна!

Задача 1.
В заданный непустой текст входят только цифры и буквы. Определить, удовлетворит ли он следующему свойству : текст состоит только из цифр, причем их числовые значения образуют арифметическую прогрессию
(например:2468,741,3)

Задача 2.
Задан одномерный массив а[1..n].Если минимальный элемент массива положительный,то поместить его на первое место, если отрицательный-на последнее место.

Очень жду вашей помощи!!!
256 | Автор: KarinaSkyy | 2011-12-07, 17:29   |  Репутация: [ + 0 ]
Выручайте.
e^cos(0.3x-0.2) - ln(x+2.2)
Условие задачи:Вычислить первый положительный корень уравнения F(x)=0 с заданной погрешностью E(только прописная) (E=10^(-3) -:- 10^(-6)) на интервале [c, d]
с=0
d=9
на паскале нужно(
257 | Автор: Rume | 2011-12-07, 23:48   |  Репутация: [ + 0 ]
2KarinaSkyy

Задача 1
Если
Quote (KarinaSkyy)
заданный непустой текст

подразумевает ввод с клавиатуры
Code

var
bcod:integer;
q,i,k:longint;
st,chislo:string;
chsl: array[1..500] of longint;
flag:boolean;
begin
i:=0;
q:=0;
k:=0;
bcod:=0;
flag:=true;
read(st);
for i:=1 to length(st) do    begin
if ((ord(st[i])<48) and  (ord(st[i])<>32) and (ord(st[i])<>45) ) or (ord(st[i])>57)  then
                          begin flag:=false;
                          break;
                          end;
              if (st[i]='-') and (st[i+1]='-')  then begin flag:=false;
                          break;
                          end;
                          end;

Продолжение ниже
258 | Автор: bfbg | 2011-12-09, 02:18 | Изменено: bfbg - Пт, 2011-12-09, 02:51   |  Репутация: [ + 5 ]
Задача 1 (продолжение)
Code
if flag then begin
      i:=0;
      while length(st)<>0 do
      begin
           i:=i+1;
           if( st[i]<>' ') and ((st[i+1]=' ') or (i=length(st))) then
                           begin
                           k:=k+1;
                           chislo:=copy(st,1,i);
                           val(chislo,chsl[k],bcod);
                           delete(st,1,i+1);
                           i:=0;
                           end;

      end;
259 | Автор: bfbg | 2011-12-09, 02:22 | Изменено: bfbg - Пт, 2011-12-09, 02:28   |  Репутация: [ + 5 ]
Задача 1 (еще продолжение)
Code
if k<2 then flag:=false else
          begin
          q:=chsl[1]-chsl[2];
                 for i:=1 to k-1 do
                 if chsl[i]-chsl[i+1]<>q then flag:=false;
        end;
      end;

if flag then writeln('Good') else writeln('Bad');
end.
260 | Автор: bfbg | 2011-12-09, 02:23 | Изменено: bfbg - Пт, 2011-12-09, 03:12   |  Репутация: [ + 5 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Страница 13 из 38«1211121314153738»
Поиск: