Просмотр полной версии : Помогите плиз по Паскалю?
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 плиззз??
Hameleon
06-06-2011, 23:39
такие простые задачки сам должен уметь решать.
Вашу школу прогресс миновал?? паскаль уже негде не используется:rolleyes:
Suicider2008
06-06-2011, 23:48
турбо паскаль. 90-е годы на дворе:)
ChertOFFka
07-06-2011, 00:11
а почему во второй задаче при вводе числа 99 нужно выходить из программы?
человек овладевший интернетом как минимум 9 лет назад не знает базовых функций паскаля, ай яй яй )
ChertOFFka
07-06-2011, 00:28
тут сидит уже сын человека, овладевшего инетом девять лет назад :o:o
стока ****ежа а никто не написсал. :D
ChertOFFka
07-06-2011, 00:39
пусть школоло само учитсо, а то потом ноют вон, что егэ сдать не могут
var
begin
....
end
ну главное - начало :)
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.
сынка отругал, за то што с моего имени вылез.. ну так што значит никто не решил задачки?
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 все работает. В случае отказа работы можно запустить в режиме совместимости - запустится.
может у него не паскаль а дельфи?:)
Rustik665
07-06-2011, 19:30
название темы читал?)
да я к тому, что мутно..паскали..сынЫ, отцЫ....:)
он грит мб дельфи вылез с акка паскаля и прикидываецо
program Grom;
begin
write('42');
end.
program Hursh;
begin
write('What is this?');
end.
Это универсальный ответ на главный вопрос вселенной