Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 12.12.2007, 19:43   #1 (permalink)
novol
Новичок
 
Регистрация: 12.12.2007
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Ребята нужна помощь с паскалем 5 задачек,я просто ниче в паскале не понимаю а если не сдам то мне пипец.


1)задано натуральное n составить программу с помощью которой найдите произведение первых и сомножителй: 1*4*9*16*25*36*........

2)написать программу которая определяет максимальное число из введеной с клавиатуры последовательности положительных чисел (длина последовательности не ограничена) для завершения ввода последовательности ввести ноль.

3)составить программу вычисляющую сумму 1/8-4/27+9/64-16/125+25/216-..............с точностью Е=10 в минус 3 степени

4) задана строка символов и букв составте программу с помощью которой замените каждую точку восклицательным знаком а заданную букву - пробелом


5) ученик хочет вычислить средний балл своего аттестата и сравнить его со средним баллом аттестата отца и матери составить программу с помощьюкоторой определите может ли ученик считать что он окончил школу не хуже родителей.

Пожалуйста народ это надо сделать очень срочно
novol вне форума   Ответить с цитированием

Старый 12.12.2007, 19:43
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Вы можете поискать решение проблемы в других аналогичных темах

Нужна помощь по МК
Как согнуть лист?
Не работает задачка в Pascale (Vladimiru S)
Нужна помощь
Помощь в Pascale

Старый 18.12.2007, 12:00   #2 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 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.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 18.12.2007, 12:20   #3 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 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.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 18.12.2007, 12:47   #4 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Для остального привожу только описания :).
2 задача: все введенные числа помещаете в динамический массив, затем в чикле считываете значения и находите наибольшее.
4 задача: используйте операторы из библиотеки crt.
5 задача: вводите оценки родителя, суммируете и считаете среднее значение, затем вводите свои оценки, считаете и сравниваете полученные средние баллы.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 12.01.2008, 11:55   #5 (permalink)
TOMMY
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.
TOMMY вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 12.01.2008, 12:04   #6 (permalink)
TOMMY
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.
TOMMY вне форума   Ответить с цитированием
Старый 07.02.2008, 22:28   #7 (permalink)
clever person
Member
 
Регистрация: 07.02.2008
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

очень нужно решение этой задачи в паскале помогите пожалуйста: в спортивной лотерее требуется угадать 3 номера. для имеющихся результатов розыгрыша лотереи и известных ответов каждого участника лотереи определить, сколько человек угадали все 3 номере, 2 номера , 1 номер и сколько человек не гадали ни одного номера. каждый участник указывает только 1 вариант прогноза.
исходными данными считать список из 3 выпавших номеров, число участников и списки номеров каждого участника
clever person вне форума   Ответить с цитированием
Старый 08.02.2008, 15:06   #8 (permalink)
TOMMY
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.
TOMMY вне форума   Ответить с цитированием
Старый 08.02.2008, 18:16   #9 (permalink)
clever person
Member
 
Регистрация: 07.02.2008
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

TOMMY спасибо!!!
clever person вне форума   Ответить с цитированием
Старый 13.02.2008, 18:05   #10 (permalink)
clever person
Member
 
Регистрация: 07.02.2008
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

пожалуйста помогите решить еще одну задачу: задан массив действительных чисел, содержащих 40 элементов. вычислить сумму четных элементов массива , произведение нечетных и кол-во элементов, которые не являются ни четными ни нечетными. по ошибке решила эту задачу с целыми числами, теперь не знаю как решать с действительными. прошу помогите!!!
clever person вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 19:55.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.