Пятница, 29.03.2024, 11:14
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачи в Паскале
Задачи в Паскале
1.*[ 135 ][85.99%]
2.-[ 22 ][14.01%]
Всего ответов: 157
NeRV15Дата: Воскресенье, 05.04.2009, 17:42 | Сообщение # 136
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Помогите пожалуйстаа решить задачи help
1)Даны действительное число а, натуральное число n. Вычислить :
P= a(a-n)(a-2n)*...*(a-n (в квадрате))
2)Даны действительное число а и натуральное число n.Вычислить:
S=1/a+1/a(в квадрате) + 1/a (в четвертой степени)+...+ 1/a( в степени 2n - 2)
Заранее спасибо) help
 
MarcusДата: Понедельник, 06.04.2009, 23:31 | Сообщение # 137
Сержант
Группа: Новичок
Сообщений: 6
[ 1 ]
Статус: Offline
Помогите пожалуйстаа решить задачи! cry
Недавно прошли алгоретмическую структуру повторения и с помощью ее надо составить задачу:
Составить программу печатающую все цифры введенного числа.
Вот прога ее надо как-то переделать подскажите пожалуйста как?
Quote
program okjbktjrkb;
var n:longint;{zadannoe chislo}
c:longint;{iskomaya tifra}
begin
write('n='); readln(n);
c:=n;
while c>9 do
begin
c:=c div 10;
writeln('pervaya tifra=',c);
end;
end.
 
sPnXmДата: Среда, 08.04.2009, 18:26 | Сообщение # 138
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
1) Дан одномерный массив размерности 20. Заполнить его случайными числами на отрезке [-25,25]. Сформировать второй массив по правилу: если индекс элемента исходного массива чётный, то элемент возвести в квадрат, если нечётный - удвоить. Вывести исходный и полученный массивы на печать.
2) Дан одномерный массив размерности 20. Заполнить его случайными числами на отрезке [-25,25]. Найти сумму элементов массива, которые больше первого, но меньше четвёртого элеметна массива. Вывести на печать исходный массив и полученныые результаты.
Прошу помочь решить!!! Очень срочно надо....
начало одинаковое наверно для обеих, по моему мнению (если не так, прошу исправить):
Code
program zadanie;
uses crt;
const n=19;
type  arr=array[0..n] of integer;

procedure fill_arr(var a:arr);
var i:integer;
begin randomize;
        for i:=0 to n do a[i]:=25-random(51);
        end;


Сообщение отредактировал sPnXm - Среда, 08.04.2009, 20:15
 
dipok333Дата: Суббота, 11.04.2009, 16:32 | Сообщение # 139
Сержант
Группа: Новичок
Сообщений: 7
[ 0 ]
Статус: Offline
Привет всем помоги решить 3 задачки )))очень срочно )))))
1) дан файл вещественных чисел . заменить в нем все элементы на их квадраты )))))) (срочно )
2) из выделеной строки содержащий непустую последовательность слов из строчных букв англицского алфавита , разделенных пробелами, сформировать и вывести в алфавитном порядке множество всех глассных букв , входяших хотябы в одно слово ))))) (очень срочно(через множество ))
3 ) дан файл вещественных чисел . удалить из него все элементы с нечетным номирами )))))) (несрочно)

Добавлено (11.04.2009, 16:32)
---------------------------------------------

Сообщение отредактировал dipok333 - Среда, 15.04.2009, 18:45
 
ApXoHДата: Воскресенье, 12.04.2009, 16:48 | Сообщение # 140
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Привет)
Очень нужна помощь с решением одной задачки(
Вот она:
Вычислить суммы элементов верхней треугольной матрицы для матриц А(10,10) , B(15,15)

Объясните хотя бы что сделать - меня очень путают вот эти данные ( A(10,10) , B(15,15) - это значит в задачи два двумерных массива или как??
Буду очень признателен!!!

 
WUDIДата: Воскресенье, 12.04.2009, 17:50 | Сообщение # 141
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Помогите пожайлуста решить две задачи до четверга:
Задание №1
Составьте программу для решения следующей задачи обработки
одномерных массивов произвольной длины. Выведите на монитор
исходные данные и результат

*Задан массив целых чисел из Т элементов. Найти первую
пару соседних противоположных чисел(их сумма равна 0).

Задание №2
Составьте программу для решения следующей задачи обработки
двумерных массивов произвольной длины. Выведите на монитор
исходные данные и результат.

*Задан двумерный массив размерности mхn. Дополнить его
строкой и столбцом, в которых записать суммы элементов
соответствующих строк и столбцов исходного массива. В
элементе (m+1,n+1) должнахраниться сумма всех элементов
первоначального массива.

 
nik21Дата: Понедельник, 13.04.2009, 16:18 | Сообщение # 142
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
здравствуйте, нужна ваша помощ!
решить!
1.найти ср.арифметическое значение элементов которое кратно 3
2.Для элементов абсолютная (abs(x)) велечина которых меньше 7 ,вычислить срюариыметическое
Зарание спасибо
п.с у меня проблемма с моим ПК (с Windows Installer),кому не сложно пишити на 476928077
 
dipok333Дата: Среда, 15.04.2009, 18:45 | Сообщение # 143
Сержант
Группа: Новичок
Сообщений: 7
[ 0 ]
Статус: Offline
Привет всем помоги решить 3 задачки )))очень срочно )))))
1) дан файл вещественных чисел . заменить в нем все элементы на их квадраты )))))) (срочно )
2) из выделеной строки содержащий непустую последовательность слов из строчных букв англицского алфавита , разделенных пробелами, сформировать и вывести в алфавитном порядке множество всех глассных букв , входяших хотябы в одно слово ))))) (очень срочно(через множество ))
3 ) дан файл вещественных чисел . удалить из него все элементы с нечетным номирами )))))) (несрочно)


Сообщение отредактировал dipok333 - Понедельник, 20.04.2009, 17:03
 
PolosatyДата: Среда, 15.04.2009, 19:43 | Сообщение # 144
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Помогите пожалуйста.. решали задачку разными способами, все равно не получается..
Не используя стандартных функций, за исключением abs вычислить гиперболический синус shx=x+x^3/3!+x^5/5+...x^(2p+1)/(2p+1), процесс суммирования остановить, если очередной член станет меньше eps=0.001
Результат проверить на калькуляторе.


Сообщение отредактировал Polosaty - Среда, 15.04.2009, 19:52
 
zadachkiДата: Четверг, 16.04.2009, 22:44 | Сообщение # 145
Admin
Группа: Администраторы
Сообщений: 116
[ 9 ]
Статус: Offline
x+x^3/3!+x^5/5!+...x^(2p+1)/(2p+1)!
Code

i=1;
s:=0;
while (per>0.001)
   {
   per=1;
   for(int j=1;j<=i;j++) //возвели в степень
    {per=per*x;}
   for(int j=1;j<=i;j++) //делим на факториал (факториал же должен быть в знаменателе?)
    {per=per/j;}
   s+=per;
   i+=2;   
   }
 
SergeiДата: Воскресенье, 19.04.2009, 00:39 | Сообщение # 146
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Помогите пожалуйста с задачей!!

Составить программу, которая ведёт учёт очков, набранных каждой командой при игре в баскетбол.После любого изменения счёт выводить.После окончания игры выдать итоговое сообщение.Предусмотреть ввод названий команд в символьных и напечатать их на экране!!

 
MONSДата: Понедельник, 20.04.2009, 12:12 | Сообщение # 147
Сержант
Группа: Новичок
Сообщений: 5
[ -1 ]
Статус: Offline
Помогите решить срочно задачи!!! Пожалуйста...=) в Pascal. ваще не парю практически в задачах... Помогите?

------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------

1) Нарисовать снеговика, составленного тремя окружностями, движущимся от левого края и увеличивающимся в диаметре, начиная с точки.

---------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------

2)Нарисовать граздь винограда в вазе.

----------------------------------------------------------------------------------------------------------------------------------- --------------------------------------------

3) Создать в динамической памяти массив M(m,n) и заполнить его случайными числами. Найти минимальный элемент в 1-й строке и поменять его местами с первом элементом последней строке.
(Эту программу желательно сегодня)
------------------------------------------------------------------------------------------------------------------------------------------ -------------------------------------

 
dipok333Дата: Понедельник, 20.04.2009, 17:03 | Сообщение # 148
Сержант
Группа: Новичок
Сообщений: 7
[ 0 ]
Статус: Offline
Привет всем помоги решить 3 задачки )))очень срочно )))))
1) дан файл вещественных чисел . заменить в нем все элементы на их квадраты )))))) (срочно )
2) из выделеной строки содержащий непустую последовательность слов из строчных букв англицского алфавита , разделенных пробелами, сформировать и вывести в алфавитном порядке множество всех глассных букв , входяших хотябы в одно слово ))))) (очень срочно(через множество ))
3 ) дан файл вещественных чисел . удалить из него все элементы с нечетным номирами )))))) (несрочно)


Сообщение отредактировал dipok333 - Пятница, 24.04.2009, 00:27
 
DeFtДата: Понедельник, 20.04.2009, 19:18 | Сообщение # 149
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Народ!Плиз помагите решить задачи кто какие сможет!Заранее благодарен!

На «5» необходимо набрать 20 баллов
На «4» необходимо набрать 15 баллов
На «3» необходимо набрать 10 баллов
Задачи на циклы.
1.Напишите программу печати таблицы перевода расстояний из дюймов в сантиметры для значений длин от 1 до 20 дюймов. 1 дюйм = 2,54 см. (1 балл)
2.Напишите программу вывода всех четных чисел от 2 до 100 включительно. (2 балла)
3.Составьте программу, вычисляющую сумму квадратов всех чисел от 1 до N. (1 балл)
4.Напишите программу, определяющую сумму всех нечетных чисел от 1 до 99. (2 балла)
5.С помощью repeat напишите программу, которая требует у вас пароль, например 111. Если пароль правильный, то заполняет все строки экрана сообщением «Молодец». Если после пятой попытки пароль все равно неверен, выходит из программы. (2 балла)
6.Составьте программу получения в порядке убывания всех делителей данного числа. (2 балла)
7.Составьте программу определения наибольшего общего делителя двух натуральных чисел. (3 балла)
8.Составьте программу определения наименьшего общего кратного двух натуральных чисел. (3 балла)
9.Составьте программу, подсчитывающую количество цифр вводимого вами целого неотрицательного числа. Можно использовать операцию целочисленного деления. (3 балла)
10.Составьте программу, определяющую максимальное из всех вводимых вами чисел. Концом ввода чисел является введенное число 0. (2 балла)
11.Найти наибольшее и наименьшее значение функции y=3x2+x-4, если на заданном интервале [a,b] Х изменяется с шагом 0,1. (2 балла)
12.Вычислите сумму квадратов N четных натуральных чисел. (2 балла)
Вычислить: (3 балла)
a. 1+2+4+8+…+210
b. (1+2)*(1+2+3)*…*(1+2+…+10)
13.В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала M часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада? (2 балла)

Добавлено (20.04.2009, 19:18)
---------------------------------------------
14.Билет называют «счастливым», если в его номере сумма первых трех цифр равна сумме последних трех. Подсчитать число тех «счастливых» билетов, у которых сумма трех цифр равна 13. Номер билета может быть от 000000 до 999999. (3 балла)
15.В ЭВМ вводятся по очереди координаты N точек. Определить, сколько из них попадает в круг радиусом R с центром в точке (a,b). (1 балл)
16.В ЭВМ вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся в классе. (1 балл)
17.Составьте программу, суммирующую штрафное время команд при игре в хоккей. Выводить на экран суммарное штрафное время обеих команд после любого его изменения. После окончания игры выдать итоговое сообщение. (1 балл)
18.Составьте программу вычисления степени числа A с натуральным показателем N. Записать варианты программы со всеми видами циклов: while, repeat, for. (2 балла)
19.Составьте программу, вычисляющую A*B, не пользуясь операцией умножения. А и B любое натуральное число. (2 балла)
20.Для заданного числа N составьте программу вычисления суммы S=1+1/2+1/3+1/4+…+1/N, где N – натуральное число. (2 балла)
21.Каждая бактерия делится на две в течение одной минуты. В начальный момент имеется одна бактерия. Составьте программу, которая рассчитывает количество бактерий на заданное вами целое значение момента времени (15 минут, 7 минут и т.п.). (2 балла)
22.Составьте программу вывода на экран всех простых чисел, не превосходящих заданного N. Простым называется натуральное число больше единицы, имеющее только два делителя: единицу и само это число. (2 балла)
23.В 1202г. Итальянский математик Леонард Пизанский (Фибоначчи) предложил такую задачу: пара кроликов каждый месяц дает приплод – двух кроликов (самца и самку), от которых через два месяца уже получается новый приплод, Сколько кроликов будет через год, если в начале года имелась одна пара? Согласно условию задачи числа, соответствующие количеству кроликов, которые появляются через каждый месяц, составляют последовательность 1, 1, 2, 3, 5, 8, 13, 21, 37, … Составьте программу, позволяющую найти все числа Фибоначчи, меньшие заданного числа N. (5 баллов)
Составьте программу, которая выводит полную запись десятичного числа 42*4*, в которой пропущены две цифры, если известно, что данное число кратно 72. (4 балла)
24.В старояпонском календаре был принят 60-летний цикл, состоявший из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. 1984 – год зеленой крысы – был началом очередного цикла. Напишите программу, которая вводит номер некоторого года нашей эры и печатает его название по старояпонскому календарю. (4 балла)
25.Составьте программу, которая по введенному вами числу N (от 1 до 100) напечатает все натуральные числа X русскими буквами (двадцать, сорок пять и т.д.). Например, для числа 4 программа должная напечатать «один», так как в слове «один» четыре буквы. Для числа 9 программа должная напечатать «сорок пять», так как в записи числа «сорок пять» девять букв. (7 баллов)
26.Запишите любое число от 1 до 1000, введенное пользователем, русскими буквами. Например, 2 – два, 150 – сто пятьдесят. (5 баллов)

 
MarcusДата: Вторник, 21.04.2009, 00:36 | Сообщение # 150
Сержант
Группа: Новичок
Сообщений: 6
[ 1 ]
Статус: Offline
DeFt,
Quote
3.Составьте программу, вычисляющую сумму квадратов всех чисел от 1 до N. (1 балл)

Ты конечно извини,что мог то помог:
Code
program bgvq;
var s,n:integer;
begin
write('n=');read(n);
s:=0;
for s:=1 to n do
begin
s:=s+n*n;
writeln(s);
end;
end.

biggrin
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачи в Паскале
Поиск:

Copyright MyCorp © 2024