Задачи по Паскалю! - Помощь студентам - Страница 2

maladoy · 05.01.2009, 16:02

Цитата:

Сообщение от Black_Angel

Вообщето надо условие поставить с точностью эпсилон
const e:=0.001;
if sum>e then
begin
и так далее

ето надо писать после sum:integer; ????

это по ходу не к твоей задаче

Black_Angel · 05.01.2009, 16:05

MALАDOY спс тебе большое что помог!!! сейчас проверю!!!! еще раз спасибо!

Black_Angel · 05.01.2009, 16:13

я понимаю что это нагло, но мне надо еще одну задачу
Написать програму для вычисления:

S=1*2*3*4*...*10 заранее спасибо

maladoy · 05.01.2009, 16:23

program proizved;
uses crt;
var
i:integer;
pr:integer;
begin
clrscr;
pr:=1;
for I := 1 to 10 do
pr:=pr*i;
writeln('pr=', sum);
end.
проверяй!!!

Lemo · 05.01.2009, 16:33

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var SuM:real; i:integer;
  type
  M=array[1..10] of integer;
  const
  L:M=(1,2,3,4,5,6,7,8,9,10);
begin
Sum:=0;
for i:=1 to 10 do begin
Sum:=Sum+L[i];
end;
write ('Summa=', Sum:6:2);
readln;
end.

Black_Angel · 05.01.2009, 16:44

ой спс большое!!! сейчас проверю!!!

maladoy · 05.01.2009, 16:49

задачки то какие то халява на халяве!!!!

Black_Angel · 05.01.2009, 16:51

всмысле легкие????

maladoy · 05.01.2009, 16:53

не то слово!!!!!!!!!!!!!

Black_Angel · 05.01.2009, 16:56

круто, только для меня это огого) у меня есть еще одна но она скорей всего точно сложная. написать?

05.01.2009, 16:05	#12
Black_Angel Пользователь Регистрация: 05.01.2009 Сообщений: 15	MALАDOY спс тебе большое что помог!!! сейчас проверю!!!! еще раз спасибо! Последний раз редактировалось Black_Angel; 05.01.2009 в 16:08.

05.01.2009, 16:23	#14
maladoy delphi-ст! Форумчанин Регистрация: 02.01.2009 Сообщений: 825	program proizved; uses crt; var i:integer; pr:integer; begin clrscr; pr:=1; for I := 1 to 10 do pr:=pri; writeln('pr=', sum); end. проверяй!!! вступлю в команду разработчиков ПО на Delphi*

05.01.2009, 16:49	#17
maladoy delphi-ст! Форумчанин Регистрация: 02.01.2009 Сообщений: 825	задачки то какие то халява на халяве!!!! вступлю в команду разработчиков ПО на Delphi

05.01.2009, 16:53	#19
maladoy delphi-ст! Форумчанин Регистрация: 02.01.2009 Сообщений: 825	не то слово!!!!!!!!!!!!! вступлю в команду разработчиков ПО на Delphi

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите решить задачи по Паскалю!	Brizon	Паскаль, Turbo Pascal, PascalABC.NET	2	13.06.2008 14:28
Задачи по паскалю	Agent[PNZ]	Помощь студентам	10	22.11.2007 21:45
Задачи по Паскалю	MissLove	Помощь студентам	15	24.07.2007 11:20
Простые задачи по паскалю	Kasim	Паскаль, Turbo Pascal, PascalABC.NET	4	22.12.2006 08:23

05.01.2009, 16:13	#13
Black_Angel Пользователь Регистрация: 05.01.2009 Сообщений: 15	я понимаю что это нагло, но мне надо еще одну задачу Написать програму для вычисления: S=1234...*10 заранее спасибо

05.01.2009, 16:44	#16
Black_Angel Пользователь Регистрация: 05.01.2009 Сообщений: 15	ой спс большое!!! сейчас проверю!!!

05.01.2009, 16:51	#18
Black_Angel Пользователь Регистрация: 05.01.2009 Сообщений: 15	всмысле легкие????

05.01.2009, 16:56	#20
Black_Angel Пользователь Регистрация: 05.01.2009 Сообщений: 15	круто, только для меня это огого) у меня есть еще одна но она скорей всего точно сложная. написать?