Форум программистов  
Главная  |  Правила форума  |  Исходники Delphi  |  Основы Delphi  |  Блог программистов  |  Рассылка  |  Повторная активизация e-mail  | 

Вернуться   Форум программистов > Новички в программировании > Паскаль



О проблемах с регистрацией и почтой пишите сюда - post@programmersforum.ru, по необходимости будем регистрировать вручную. И проверяйте папку спам!



Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Название темы включает слова - "Помогите", "Спасите", "Срочно"
Название темы не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте >>>правила <<< и заново правильно создайте тему.
 
Опции темы
Старый 20.10.2011, 17:49   #1
Анастасия12
Форумчанин
 
Регистрация: 03.10.2011
Сообщений: 93
Репутация: 13
По умолчанию Даны два целых числа

Решите пожалуйста задачку, оченб нужно...


1.даны числа K и N (N>2). Вывести N-1 раз число K.
2. Дано два целых числа A и B (A<B). Вывести в порядке убывания все целые числа, расположенные между А и В (включая сами числа А и В), а также кол-во N этих чиселю
3. Даны 2 целых числа А и В (А<B)ю Найти сумму кубов всех целых чисел от А до В включительно.
4. Дано целое число N(>0). Найти сумму N(в квадрате)+(N+1)в квадрате+(N+2)вквадрате+......+(2*N )в квадрате(целое число)

5. Данное число N(>0). Используя одни числа, найти сумму 1+1/(1!)+1/(2!)+1/(3!)+.........+1/(N!)
Анастасия12 вне форума  
Старый 20.10.2011, 17:50   #2
Анастасия12
Форумчанин
 
Регистрация: 03.10.2011
Сообщений: 93
Репутация: 13
По умолчанию

задача через паскаль
Анастасия12 вне форума  
Старый 20.10.2011, 17:57   #3
Анастасия12
Форумчанин
 
Регистрация: 03.10.2011
Сообщений: 93
Репутация: 13
По умолчанию

Помогити а?)
Анастасия12 вне форума  
Старый 20.10.2011, 18:18   #4
iCaesy
In progress...
Форумчанин
 
Регистрация: 25.09.2011
Сообщений: 161
Репутация: 33

icq: 443579260
skype: icaesy
По умолчанию

Цитата:
Сообщение от Анастасия12 Посмотреть сообщение
Решите пожалуйста задачку, оченб нужно...
1.даны числа K и N (N>2). Вывести N-1 раз число K.

Код:

 program pr1;
 var i,k,n:integer;
 begin
 i:=1;
 writeln ('Vvedite k,n:');
 readln (k,n);
 for i:=1 to n-1 do
 writeln (' ',k);
 end.


Цитата:
Сообщение от Анастасия12 Посмотреть сообщение
2. Дано два целых числа A и B (A<B). Вывести в порядке убывания все целые числа, расположенные между А и В (включая сами числа А и В), а также кол-во N этих чиселю
)
Код:

program pr2;
uses crt;
var
a,b,c : integer;
begin
clrscr;
writeln('Vvedite a,b :');
readln(a,b);
if a>b then begin
writeln('A<B!');
exit;
end;
for c:=b downto a do
write(c,' ');
writeln;
writeln('Kol-vo: ',b);
end.


Цитата:
Сообщение от Анастасия12 Посмотреть сообщение
3. Даны 2 целых числа А и В (А<B)ю Найти сумму кубов всех целых чисел от А до В включительно.
Код:

program pr3;
uses crt;
var a,b,i:integer;
s:longint;
begin
ClrScr;
Writeln('Vvedite A,B :');
readln(a,b);
s:=0;
for  i:=a to b do s:=s+(i*i*i);
writeln('Sum = ',s);
readln;
end.


Цитата:
Сообщение от Анастасия12 Посмотреть сообщение
4. Дано целое число N(>0). Найти сумму N(в квадрате)+(N+1)в квадрате+(N+2)вквадрате+......+(2*N )в квадрате(целое число)
Код:

uses crt;
var
a,b,c,s,n,i : integer;
begin
clrscr;
write('N= ');
readln(n);
s:=0;
for i:=1 to n do
begin
a:=2*n;
s:=s+a;
end;
writeln('SUM = ',s);
readln;
end.


Последний раз редактировалось iCaesy; 20.10.2011 в 18:53.
iCaesy вне форума  
Старый 20.10.2011, 18:36   #5
Анастасия12
Форумчанин
 
Регистрация: 03.10.2011
Сообщений: 93
Репутация: 13
По умолчанию

iCaesy: а можешь ещё 3 помочь решить, пожалуйста
Анастасия12 вне форума  
Старый 20.10.2011, 18:46   #6
grom333
Форумчанин
 
Аватар для grom333
 
Регистрация: 21.10.2008
Адрес: Казахстан://Semey
Сообщений: 337
Репутация: 68

icq: 49508436
По умолчанию

3. Условие на а<b сделаешь сам
Код:

var
a,b,c,i:integer;
begin
writeln('vvedite a,b');
readln(a) ;
readln(b);
for i:=a to b do
begin
c:=i*i*i;
writeln(c);
end;
readln;
end.

5. ТОчно не уверен. Времени нет проверять.
Код:

var
b,n,i:integer;
s:real;
begin
writeln('vvedite chislo');
readln(n);
s:=1;
b:=1;
for i:=1 to n do
begin
b:=b*i;
s:=s+(1/1*b);
end;
write(s:5:3);
readln;
end.

__________________
Лучше быть последним из львов, чем первым среди шакалов.
Мой чат
community on struggle with zoomics

Последний раз редактировалось grom333; 20.10.2011 в 18:57.
grom333 вне форума  
Старый 20.10.2011, 18:54   #7
Анастасия12
Форумчанин
 
Регистрация: 03.10.2011
Сообщений: 93
Репутация: 13
По умолчанию

хоййй
это сложно((
напиши пожалуйста*)
Анастасия12 вне форума  
Старый 20.10.2011, 18:55   #8
iCaesy
In progress...
Форумчанин
 
Регистрация: 25.09.2011
Сообщений: 161
Репутация: 33

icq: 443579260
skype: icaesy
По умолчанию

Помог
10 символов
iCaesy вне форума  
Старый 20.10.2011, 19:04   #9
Анастасия12
Форумчанин
 
Регистрация: 03.10.2011
Сообщений: 93
Репутация: 13
По умолчанию

Большое спасибо)
Анастасия12 вне форума  
Старый 20.10.2011, 19:12   #10
iCaesy
In progress...
Форумчанин
 
Регистрация: 25.09.2011
Сообщений: 161
Репутация: 33

icq: 443579260
skype: icaesy
По умолчанию

Цитата:
Сообщение от Анастасия12 Посмотреть сообщение
5. Данное число N(>0). Используя одни числа, найти сумму 1+1/(1!)+1/(2!)+1/(3!)+.........+1/(N!)
Код:

program pr5;
var
n,s,i:integer;
begin
writeln ('N:= ');
readln(n);
if (n=0) then writeln('0!=1') else
if (n<0) then writeln('Erorr !') else
begin
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!=',s);
end;
end.

Ну вот и последняя.
Принимаю спасибки в виде репутации. =)
iCaesy вне форума  
Закрытая тема


Опции темы

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ввод с клавиатуры два целых числа без знака и вывод на экран их сумму. gelya_17 Помощь студентам 5 18.10.2010 09:31
Даны два числа Joker<777> Паскаль 4 02.09.2010 14:57
Функция, которая сравнивает два целых числа. ~Az@liya~ Помощь студентам 6 15.06.2010 10:09
Даны два одномерных массива, содержащие вещественные числа. Упорядочить по убыванию значен [Meeen] Общие вопросы C/C++ 1 07.06.2010 23:49
Даны два числа Vylkan Assembler 2 01.02.2010 04:13




10:46.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

Forex с Admiral Markets — это надежно


Работа на Forex с 2000 года. Очное и дистанционное обучение. Выгодные условия.
магазин горящих туров


более 1000 горящих предложений ежедневно
Бэбиблог - соц сеть для будущих мам


RusProfile.ru


Справочник российских юридических лиц и организаций.