Задачи в Паскале - Страница 12 - Форум
Пятница, 09.12.2016, 10:39
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 12 из 33«1210111213143233»
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачи в Паскале
Задачи в Паскале
1.*[ 135 ][85.99%]
2.-[ 22 ][14.01%]
Всего ответов: 157
AgateДата: Воскресенье, 17.05.2009, 16:39 | Сообщение # 166
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Помогите пожалуйста!
Написать программу для вычисления S, если S=1/a+1/a²+1/а⁴+...+1/а²ⁿ­­­ˉ­­­­²­­ cranky cry


Сообщение отредактировал Agate - Воскресенье, 17.05.2009, 18:28
 
qwerty5793Дата: Воскресенье, 17.05.2009, 23:08 | Сообщение # 167
Подполковник
Группа: Участник
Сообщений: 20
[ 1 ]
Статус: Offline
для Agate: если рассматривать |1/a^2|<1 то :
program progress;
var a,s:real;
begin
writeln('vvedite a');
readln(a);
s:=1/a+((1/(a*a))/(1-(1/(a*a))));
writeln(s:5:5);
readln;
end.


совсем не против ~20 р на +79525213161 (теле2)

Сообщение отредактировал qwerty5793 - Понедельник, 18.05.2009, 04:31
 
AgateДата: Понедельник, 18.05.2009, 12:23 | Сообщение # 168
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
qwerty5793, Спасибо большое!
 
qwerty5793Дата: Понедельник, 18.05.2009, 14:00 | Сообщение # 169
Подполковник
Группа: Участник
Сообщений: 20
[ 1 ]
Статус: Offline
для nik21 здесь для конкретного случая n=5, просто при выполнении ставишь n свою во второй строчке программы

program diagonal;
const n=5;
var a:array[1..n,1..n] of integer;
b,i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
writeln('vvodi cifry massiva cerez enter');
readln(a[i,j]);
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]<>a[j,i] then b:=b+1
end;
if b<>0 then writeln('ne simmetrichna') else
writeln('simmetrichna');
readln;
end.

p.s не умею делать вложения, модеры, не ругайте!


совсем не против ~20 р на +79525213161 (теле2)

Сообщение отредактировал qwerty5793 - Понедельник, 18.05.2009, 14:02
 
yu3146636Дата: Понедельник, 18.05.2009, 14:07 | Сообщение # 170
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Помогите пожалуйста!!!
Прикрепления: 9415002.jpg(22Kb)
 
nik21Дата: Понедельник, 18.05.2009, 14:35 | Сообщение # 171
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
qwerty5793, спасибо тебе большое,но я уже все зделал кроме 3с и 3d!
 
qwerty5793Дата: Понедельник, 18.05.2009, 15:08 | Сообщение # 172
Подполковник
Группа: Участник
Сообщений: 20
[ 1 ]
Статус: Offline
yu3146636 1 задача:

program vycislyalka;
var z,s,m,c,x,a,b:real;
begin
m:=0.7;
c:=2.1; x:=1.7; a:=0.4; b:=0.8;
z:=((sin(x))/(sqrt(1+m*m*sin(x)*sin(x))))-c*m*ln(m*x);
s:=(exp(-1*a*x))*sqrt(x+1)+((exp(-1*b*x))*(sqrt(x+1.5)));
writeln('z= ',z:5:5,' s=', s:5:5);
readln;
end.

Добавлено (18.05.2009, 15:08)
---------------------------------------------
yu3146636 2 задача:

program funcciya;
var x,w,a:real;
begin
x:=1;
writeln('zadai a');
readln(a);
repeat;
x:=x+0.5;
if x>a then
begin
w:=x*exp(ln(x-a)*(1/3));
end
else begin
if x=a then w:=x*sin(a*x) else w:=(exp(-1*a*x))*cos(a*x);
end;
writeln('x=',x:2:1,' w=',w:5:5);
until x>=5;
readln;
end.


совсем не против ~20 р на +79525213161 (теле2)

Сообщение отредактировал qwerty5793 - Понедельник, 18.05.2009, 15:23
 
yu3146636Дата: Понедельник, 18.05.2009, 20:05 | Сообщение # 173
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
qwerty5793, огромное спасибо smile очень благодарна
 
SatterДата: Понедельник, 18.05.2009, 21:09 | Сообщение # 174
Сержант
Группа: Новичок
Сообщений: 8
[ 0 ]
Статус: Offline
Люди, я в отчаянии уже... помогите пожалуста с задачей:
"Дан файл, где компонента-массив[1..n] целых чисел. Найти минимальный и максимальный элементы в файле и поменять местами компоненты, содержащие эти числа".

Очень прошу.

 
ПельмешкаДата: Понедельник, 18.05.2009, 21:10 | Сообщение # 175
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
Ребят привет!
помогити пожалуйста ! Задачи вспринципе лёгенькие, я очень давно просто их решала, а времени разбирать нет, надо сдать уже! буду очень благодарна !

1. Посчитать количество неотрицательных чисел из наборв n-чисел.
2. Посчитать поизведение неположительных чисел среди чисел a,b,c.
3. Вычислить 2+4+6+8+...+14
4. Найти 10 первых натуральных чисел q, обладающих тем свойством, что корни уравнения x2 (это квадртат) +3qx+5000 действительны.

буду очень благодарна, а если ещё и в ближайшее время ! то тогда вообще... biggrin

 
qwerty5793Дата: Понедельник, 18.05.2009, 21:49 | Сообщение # 176
Подполковник
Группа: Участник
Сообщений: 20
[ 1 ]
Статус: Offline
пельмешка задача 1
program nabor;
var a:array[-10000..10000] of integer;
i,b,c,n:integer;
begin
c:=0;
writeln('vvedite skolko budet chisel');
readln(n);
writeln('vvedi chisla');
for i:=1 to n do
readln(a[i]);
for b:=1 to n do
if a[b]>=0 then c:=c+1;
writeln©;
readln;
end.

Добавлено (18.05.2009, 21:37)
---------------------------------------------
2 задача
program polozhitelnye;
var a,b,c:integer;
d:array[-10000..10000] of integer;
begin
c:=1;
writeln('vvedite a,b,c');
for a:=1 to 3 do
readln(d[a]);
for b:=1 to 3 do
if d[b]>0 then c:=c*d[b];
writeln©;
readln;
end.

Добавлено (18.05.2009, 21:49)
---------------------------------------------
задача 3
program summa;
var c:real;
begin
c:=((2+14)/2)*(14/2);
writeln(c:1:1);
readln;
end.


совсем не против ~20 р на +79525213161 (теле2)
 
SatterДата: Понедельник, 18.05.2009, 22:04 | Сообщение # 177
Сержант
Группа: Новичок
Сообщений: 8
[ 0 ]
Статус: Offline
а мне?(
 
qwerty5793Дата: Понедельник, 18.05.2009, 22:19 | Сообщение # 178
Подполковник
Группа: Участник
Сообщений: 20
[ 1 ]
Статус: Offline
не сегодня я спать)))

совсем не против ~20 р на +79525213161 (теле2)
 
ПельмешкаДата: Понедельник, 18.05.2009, 22:24 | Сообщение # 179
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
вауууууу спасибо огромнейшее !!
буду ждать 4, если можете ^^
 
qwerty5793Дата: Вторник, 19.05.2009, 11:37 | Сообщение # 180
Подполковник
Группа: Участник
Сообщений: 20
[ 1 ]
Статус: Offline
задача 4
program rt;
var q,a:integer;
d:real;
begin
q:=0;
repeat q:=q+1;
d:=9*q*q-20000;
until d>=0;
a:=0;
q:=q-1;
repeat
a:=a+1;
q:=q+1;
write('q',a,'=',q,' ');
until a>=10;
readln;
end.

Добавлено (19.05.2009, 11:37)
---------------------------------------------

Quote (Satter)
Люди, я в отчаянии уже... помогите пожалуста с задачей:
"Дан файл, где компонента-массив[1..n] целых чисел. Найти минимальный и максимальный элементы в файле и поменять местами компоненты, содержащие эти числа".
Очень прошу.

а можно пример входного файла?


совсем не против ~20 р на +79525213161 (теле2)

Сообщение отредактировал qwerty5793 - Вторник, 19.05.2009, 11:36
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачи в Паскале
Страница 12 из 33«1210111213143233»
Поиск:

Copyright MyCorp © 2016