VPF::Помогите с лабораторной - Форум программистов

Гость_Олег

Дата 12.1.2006, 19:48 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Тема: создание программ с использованием оператора цикла с предусловием.
Задание: создать программу нахождения суммы :
V = 1(в 1 степени)+2(в квадрате)+3(в кубе)+…+9(в 9 степени)

DemoCode

Дата 12.1.2006, 20:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: нет
Всего: 41

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   I, Sum: Integer;

function GetSup (A, S: Integer): Integer;
var
   I: Integer;
begin
     Result:=A;
     for I:=1 to S-1 do Result:=Result*A;
end;

begin
   I:=1;
   Sum:=0;
   while I < 10 do
   begin
        Sum:=Sum+GetSup(I,I);
        I:=I+1;
   end;
   WriteLn(Sum);
   ReadLn;
end.

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

Жить стало лучше, жить стало веселей
© И.В. Сталин

volvo877

Дата 12.1.2006, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

DemoCode, в 16-битном паскале твой код выдаст неправильный результат (если конечно, автор его сможет откомпилировать...), ибо Integer - только до 32767...

Код

program Project2;
var
   I: Integer; Sum: LongInt;
function GetSup (A, S: Integer): LongInt;
var
   I: Integer; Res: LongInt;
begin
     Res:=A;
     for I:=1 to S-1 do Res:=Res*A;
     GetSup := Res;
end;

begin
   I:=1;
   Sum:=0;
   while I < 10 do
   begin
        Sum:=Sum+GetSup(I,I);
        I:=I+1;
   end;
   WriteLn(Sum);
   ReadLn;
end.

DemoCode

Дата 12.1.2006, 20:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: нет
Всего: 41

Я на Delphi писал, а то у меня нет под рукой паскалевского компилера.

Это сообщение отредактировал(а) DemoCode - 12.1.2006, 20:35

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »