|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
12.12.2007, 19:43 | #1 (permalink) |
Новичок
Регистрация: 12.12.2007
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
1)задано натуральное n составить программу с помощью которой найдите произведение первых и сомножителй: 1*4*9*16*25*36*........ 2)написать программу которая определяет максимальное число из введеной с клавиатуры последовательности положительных чисел (длина последовательности не ограничена) для завершения ввода последовательности ввести ноль. 3)составить программу вычисляющую сумму 1/8-4/27+9/64-16/125+25/216-..............с точностью Е=10 в минус 3 степени 4) задана строка символов и букв составте программу с помощью которой замените каждую точку восклицательным знаком а заданную букву - пробелом 5) ученик хочет вычислить средний балл своего аттестата и сравнить его со средним баллом аттестата отца и матери составить программу с помощьюкоторой определите может ли ученик считать что он окончил школу не хуже родителей. Пожалуйста народ это надо сделать очень срочно |
12.12.2007, 19:43 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вы можете поискать решение проблемы в других аналогичных темах Нужна помощь по МК Как согнуть лист? Не работает задачка в Pascale (Vladimiru S) Нужна помощь Помощь в Pascale |
18.12.2007, 12:00 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
1 задача.
program calc; var n,i,p: integer; begin p:=1; readln(n); for i:=1 to n do p:=p*sqr(i); writeln('произведение =',p); end.
__________________
Убить всех человеков! |
18.12.2007, 12:20 | #3 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
3 задача. Из условия задачи видно, что дана знакопеременная функция вида (-1)^(n+1)*(n^2)/((n+1)^3). Так как последовательность бесконечная, то мы должны ввести какое-либо число n.
program calc; var n,i: integer; s: real; begin s:=0; readln(n); for i:=1 to n do if i/2=round(i/2) then s:=s-1*sqr(i)/(sqr(i)*i) else s:=s+sqr(i)/(sqr(i)*i); writeln('сумма =',s:0:3); end.
__________________
Убить всех человеков! |
18.12.2007, 12:47 | #4 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Для остального привожу только описания :).
2 задача: все введенные числа помещаете в динамический массив, затем в чикле считываете значения и находите наибольшее. 4 задача: используйте операторы из библиотеки crt. 5 задача: вводите оценки родителя, суммируете и считаете среднее значение, затем вводите свои оценки, считаете и сравниваете полученные средние баллы.
__________________
Убить всех человеков! |
12.01.2008, 11:55 | #5 (permalink) |
Member
Регистрация: 12.01.2008
Сообщений: 22
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
задача 2.
var a, max:longint; begin mas:=-1; a:=-1; while a<>0 do begin read(a); if a = 0 then break; if a>max then max:=a; end; writeln(max); end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
12.01.2008, 12:04 | #6 (permalink) |
Member
Регистрация: 12.01.2008
Сообщений: 22
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
задача 4
var stroka:string; symbol:char; a:byte; begin read(stroka); readln; read(symbol); for a:=1 to Length(stroka) do begin if stroka[a]='.' then stroka[a]:='!'; if stroka[a]=symbol then stroka[a]:=' '; end; writeln(stroka); end. |
07.02.2008, 22:28 | #7 (permalink) |
Member
Регистрация: 07.02.2008
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
очень нужно решение этой задачи в паскале помогите пожалуйста: в спортивной лотерее требуется угадать 3 номера. для имеющихся результатов розыгрыша лотереи и известных ответов каждого участника лотереи определить, сколько человек угадали все 3 номере, 2 номера , 1 номер и сколько человек не гадали ни одного номера. каждый участник указывает только 1 вариант прогноза.
исходными данными считать список из 3 выпавших номеров, число участников и списки номеров каждого участника |
08.02.2008, 15:06 | #8 (permalink) |
Member
Регистрация: 12.01.2008
Сообщений: 22
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Clever person =), вот код твоеи програмы:
Код:
var mas:array[1..3]of byte; kil,k,i, j,z, ch:byte; g1, g2, g3, g0:byte; begin g0:=0; g1:=0; g2:=0; g3:=0; for i:=1 to 3 do begin read(mas[i]); end; read(kil); for i:=1 to kil do begin k:=0; for j:=1 to 3 do begin read(ch); for z:=1 to 3 do begin if ch=mas[z]then begin k:=k+1; break; end; end; end; if k=0 then g0:=g0+1 else if k=1 then g1:=g1+1 else if k=2 then g2:=g2+1 else if k=3 then g3:=g3+1; end; writeln(g0,' ',g1,' ',g2,' ',g3); end. |
13.02.2008, 18:05 | #10 (permalink) |
Member
Регистрация: 07.02.2008
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
пожалуйста помогите решить еще одну задачу: задан массив действительных чисел, содержащих 40 элементов. вычислить сумму четных элементов массива , произведение нечетных и кол-во элементов, которые не являются ни четными ни нечетными. по ошибке решила эту задачу с целыми числами, теперь не знаю как решать с действительными. прошу помогите!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|