|
Решения задач на Паскале!Срочно нужно!
|
|
Quote (ermilnoname) a,x:array[1..100,1..100]of real;
Забыл дописать, сделай вот так
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
На здоровье:) Обращайся ещё:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
вот еще задача, помогите решить)
вычислить значение функции 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
|
|
|
|
Дано натуральное число 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.
|
|
|
|
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
|
|
|
|
Программу написал но не могу доработать!
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.
программа меняет цифры квадрата одного числа,а хотелось бы получать полную последовательность)
помогите товарищи
|
|
|
|
Дано натуральное число 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). Среди них есть положительные и отрицательные. Заменить нулями те числа, величина которых по модулю больше максимального числа.
|
|
|
|
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
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
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.
спасибо большое
|
|
|
|
"Спасибо" принимается в виде повешения репутации ( Зелёный плюсик:) ).
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Дано натуральное число N большее единицы. Если оно является
простым, то есть не имеет положительных делителей, кроме 1 и самого
себя, то вывести TRUE, если нет – вывести FALSE
|
|
|
|
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
|
|
|
|
Помогите пожалуйста составить 3 программы в паскале, зависит от этого моя стипендия, буду безумно благодарна!
Задача 1.
В заданный непустой текст входят только цифры и буквы. Определить, удовлетворит ли он следующему свойству : текст состоит только из цифр, причем их числовые значения образуют арифметическую прогрессию
(например:2468,741,3)
Задача 2.
Задан одномерный массив а[1..n].Если минимальный элемент массива положительный,то поместить его на первое место, если отрицательный-на последнее место.
Очень жду вашей помощи!!!
|
|
|
|
Выручайте.
e^cos(0.3x-0.2) - ln(x+2.2)
Условие задачи:Вычислить первый положительный корень уравнения F(x)=0 с заданной погрешностью E(только прописная) (E=10^(-3) -:- 10^(-6)) на интервале [c, d]
с=0
d=9
на паскале нужно(
|
|
|
|
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 ]
|
|
|
|
