Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Dim I As Integer, N As Integer


End.

Begin

Begin

Var

End.

Begin

Var

End.

Begin

Var

C: char; // Описание переменной C:

for C := ‘A’ to‘Z’ doWrite(C);

ReadKey;

 


Язык «C++»:

 

#include <vcl.h>

#include <stdio.h>

#include <conio.h>

#pragma hdrstop

 

int main(int argc, char* argv[])

{

char C;

 

for (C = 'A'; C <= 'Z'; C++) printf("%c", C);

 

getch();

 

return 0;

}


2. Найти сумму .

 

Free Pascal, TP7:

 

1-й способ.

 

I, N: integer;

S: double;

S := 0;

N := 10000;

for I := 1 toN doS :=S + 1/Sqr(I);

Writeln(‘ S=’, S);

Writeln(‘Контроль: ’, Sqr(pi)/6);

2-й способ.

Язык «C++»:

 

#include <vcl.h>

#include <stdio.h>

#include <conio.h>

#pragma hdrstop

int main(int argc, char* argv[])

{

int I, N;

double S;

 

N = 1000;

S = 0;

for (I = 1; I <=N; I++)S += 1.0 / ((double)I * (double)I) ;

printf(“S=%g”, S);

getch();

}

Возможные ошибки:

 

Turbo Pascal 7.0:

(* for I := 1 to4 do;writeln(‘I=’, I);*)

 

for I := 1 to4 do;

Writeln(‘I=’, I);

 

Результат: I=4 (TP7)

 

Язык «C++»:

// for (I = 1; I <= 4; I++);printf(“I=%d”, I);

 

for (I = 1; I <= 4; I++);

printf(“I=%d”, I);

 

Результат: I=5


3. Найти сумму .

 

– крайне нежелательный вариант!

 

, , .

Рекуррентные соотношения:

 

S0 = 0 A0 = 1
S1 = S0 + A1 A1 = A0*x2/1
S2 = S1 + A2 A2 = A1*x2/3
. . . . . .
Si = Si-1 + Ai Ai = Ai-1*x2/(2*i-1)

 

 


Pascal:

 

I, N: integer;

S, A, x, x2: double;

writeln(‘Input N, x’);

readln(N, x);

S := 0;

A := 1;

X2 := x*x;

for I := 1 toN do

A := A * x2 / (2 * I – 1);

S := S + A;

end;

writeln(‘S=’, S);


Язык «C++»:

 

#include <vcl.h>

#include <stdio.h>

#include <conio.h>

#pragma hdrstop

int main(int argc, char* argv[])

{

int I, N;

doubleS, A x, x2;

 

printf(“Input N”);

scanf(“%d”, &N);

// %d – формат целого числа.

printf(“Input x”);

scanf(“%g”, &x);

// %g – формат вещественного числа, при котором сохраняется 6 значащих цифр.


S = 0;

A = 1;

x2 = x*x;

for (I = 1; I <=N; I++)

{

A *= x2 / (2.0 * (double)I – 1.0);

// (double) I – преобразование целого типа к вещественному

 

S += A;

}

 

printf(“S=%g”, S);

// %g – формат вещественного числа, при котором сохраняется 6 значащих цифр.

 

getch();

return 0;



}

 


Visual Basic:

 

Sub Proc1()

<== предыдущая лекция | следующая лекция ==>
Замечание. При большом количестве интервалов кусочно-однородной функции преимущество древовидного способа становится более значительным. Циклы | End Sub

Дата добавления: 2014-01-04; Просмотров: 292; Нарушение авторских прав?


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



ПОИСК ПО САЙТУ:


Рекомендуемые страницы:

Читайте также:
studopedia.su - Студопедия (2013 - 2020) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление
Генерация страницы за: 0.006 сек.