PDA

Просмотр полной версии : Помогите плиз по Паскалю?


Grommm
06-06-2011, 23:22
1 .Ввести с клавиатуры N вычислить сумму ряда (1+1)в квадрате +(1+2)в квадрате+ . . . +(1 +N)в квадрате . При вводе N=0 -выход из программы


2.Написать программу вычисления факториала натурального числа N, введенного с клавиатуры . При вводе числа 99 -выход из программы


3.Дано уравнение прямой линии у=10х-2. Ввести с клавиатуры координаты точки Х и Y и определить проходит ли прямая через введенную точку


4.Получить и ввести на экран сумму тех членов натурального ряда от 1 до N,которое кратны 5. Количество членов ряда N ввести с клавиатуры

:o:o:o плиззз??

Grommm
06-06-2011, 23:35
в долгу не останусь..

Hameleon
06-06-2011, 23:39
такие простые задачки сам должен уметь решать.

demix
06-06-2011, 23:40
Вашу школу прогресс миновал?? паскаль уже негде не используется:rolleyes:

Suicider2008
06-06-2011, 23:48
турбо паскаль. 90-е годы на дворе:)

ChertOFFka
07-06-2011, 00:11
а почему во второй задаче при вводе числа 99 нужно выходить из программы?

CD~TJ
07-06-2011, 00:20
человек овладевший интернетом как минимум 9 лет назад не знает базовых функций паскаля, ай яй яй )

ChertOFFka
07-06-2011, 00:28
тут сидит уже сын человека, овладевшего инетом девять лет назад :o:o

!Severr
07-06-2011, 00:37
стока ****ежа а никто не написсал. :D

ChertOFFka
07-06-2011, 00:39
пусть школоло само учитсо, а то потом ноют вон, что егэ сдать не могут

TreeOne
07-06-2011, 00:41
var
begin
....
end

ну главное - начало :)

!Severr
07-06-2011, 00:42
интэтджэр забыл йоба:D

TreeOne
07-06-2011, 00:44
тощна)))
var i: integer;

TreeOne
07-06-2011, 00:48
var i, N, sum: integer;
begin
i:=1; sum:=0;
readln (N);
if N=0 then goto end;
while i <> N do begin
sum:=sum + sqr(1+i);
i:=i+1;
end;
//тут вроде еще надо 1+N в квадрат занести и к сумме прибавить))
end.

Grommm
07-06-2011, 01:21
сынка отругал, за то што с моего имени вылез.. ну так што значит никто не решил задачки?

Grommm
07-06-2011, 01:42
апнем..

Suicider2008
07-06-2011, 13:40
на сынка все свалил...:)

Rustik665
07-06-2011, 13:57
4.
readln(n);
s:=0;
for i:=1 to n do
if (i mod 5)=0 then s:=s+i;
write(s);

3.
readln(x,y);
for i:=1 to x do
begin
y2:=10*x-2;
if y=y2 writeln("пересекаются");
end;

2.
readln(n);
a:=1;
i:=2;
while a "не равно" n do //не помню символа, как в паскале "не равно"
begin
a:=a*i;
i:=i+1;
f:=i;
end;
write(f);

как сделать, чтобы при вводе 99 выходил из программы - не помню
начало программ, объявление переменных и конец сам допишешь)

Hameleon
07-06-2011, 14:11
сынок папой прикинулся. или папа сынком прикинулся.
а паскаль вроде под виндоус 7 не работает или я ошибаюсь?

Rustik665
07-06-2011, 14:13
под виндой 7 все работает. В случае отказа работы можно запустить в режиме совместимости - запустится.

ildar13
07-06-2011, 16:53
может у него не паскаль а дельфи?:)

Rustik665
07-06-2011, 19:30
название темы читал?)

Grommm
07-06-2011, 19:34
спасибО! Передал сыну..

ildar13
07-06-2011, 22:03
да я к тому, что мутно..паскали..сынЫ, отцЫ....:)

Grommm
07-06-2011, 22:05
чо за прикол, бро?

photon
07-06-2011, 22:55
он грит мб дельфи вылез с акка паскаля и прикидываецо

Grommm
08-06-2011, 01:41
да не.. С++ всего лишь..

Hursh
08-06-2011, 01:54
program Grom;
begin
write('42');
end.

Grommm
08-06-2011, 02:00
program Hursh;
begin
write('What is this?');
end.

ildar13
08-06-2011, 06:31
смайлик видел? )

Hursh
08-06-2011, 12:44
Это универсальный ответ на главный вопрос вселенной