Новые сообщения · Правила  
Страница 6 из 38«12456783738»
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Решения задач на Паскале!Срочно нужно!
Держи:)

var
n:byte;i:longint;
begin
writeln('Введите N');
read(n);
for i:=1 to n do
write(i*i,' ');
end.

"Cпасибо" принимается повышением репутации ( Зелёный плюсик:) ) Спасибо:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
101 | Автор: Berestovskiy | 2011-04-30, 18:45   |  Репутация: [ + 211 ]
спс, нечаянно поставил "не изменять репутацию", потом поставлю +

Помогите с 3 задачей

102 | Автор: xrapa | 2011-04-30, 19:03   |  Репутация: [ + 0 ]
var
i,x,a:longint;
begin
writeln('Введите цену за Март');
read(x);i:=x;
x:=x*4*30;
writeln('Введите цену за Апрель');
read(a);
a:=(a+i)*4*30;
writeln(a+x);
end.

"Cпасибо" принимается повышением репутации ( Зелёный плюсик:) ) Спасибо:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
103 | Автор: Berestovskiy | 2011-04-30, 19:11   |  Репутация: [ + 211 ]
Здравствуйте! помогите решить задачи по паскалю!
без них не примут экзамен( посление остались)
. В библиотеке №1 (Mybib1) определить простейшие процедуры:
1.Вычисление площади круга
Выполнить ввод, затем вычисления и вывод результата. Входные и выходные переменные описать на разных строчках, описание обеспечить комментарием.
2.Вычисление A8
Использовать промежуточные переменные и вычисления: без промежуточных вычислений необходимо 7 умножений, а с промежуточными - всего 3.
3.Вычисление расстояния между двумя точками на прямой
Использовать стандартную функцию abs
4.Вычисление гипотенузы по катетам
Использовать стандартную функцию sqrt
5.Бросание кубиков
Использовать стандартную функцию Random(6)+1
6.Обмен значений двух переменных с использованием третьей
Это - классическая задача о перемене местами значений двух переменных с использованием третьей вспомогательной переменной.
7.Выделение цифр из двузначного числа
Использовать операции div и mod
Заранее спасибо, учусь заочноо то что дают в теории непонятно(
104 | Автор: viktor-91 | 2011-04-30, 20:39   |  Репутация: [ + 0 ]
5 Задание:

var
a:byte;
begin
randomize;
a:=random(6);
writeln(a);
end.

"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
105 | Автор: Berestovskiy | 2011-05-01, 00:14   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
105 | Автор: Berestovskiy | 2011-05-01, 00:14   |  Репутация: [ + 211 ]
6 Задание:

var
a,b,c:integer;
begin
read(a,b);
c:=a;a:=b;b:=c;
write(a,' ',b);
end.

"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
106 | Автор: Berestovskiy | 2011-05-01, 00:15   |  Репутация: [ + 211 ]
7 Задание:

var
n:integer;
begin
readln(n);
while n>10 do begin
write(n mod 10,' ');n:=n div 10;end;
write(n mod 10);
end.

"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
107 | Автор: Berestovskiy | 2011-05-01, 00:20   |  Репутация: [ + 211 ]
7

Code
var a:integer;
begin
read (a);
writeln (a div 10,#32,a mod 10);
end.

6.

Code
var a,b,c:integer;
begin
read (a,b);
c:=a; a:=b; b:=c;
writeln (a,#32,b);
end.

5.

Code
uses crt;
var i:char;
begin
randomize;
writeln ('Brosit kybik? (D/N)');
readLN (i);
i:=upcase(i);
while i='D' do begin
writeln (random(6)+1);
writeln ('Brosit kybik? (D/N)');
readLN (i);
i:=upcase(i); end;
end.

Добавлено (01.05.11, 00:50)
---------------------------------------------
4.

Code
var x,y:real;
begin
writeln ('Vvedite dlinny 1 i 2 katetov');
read (x,y);
x:= sqrt(sqr(x) + sqr(y));
writeln (x:12:4); end.

Добавлено (01.05.11, 00:55)
---------------------------------------------
3.

Code
var a,b:integer;
begin
read (a,b);
a:=abs(b-a);
writeln (a);
end.

Добавлено (01.05.11, 01:03)
---------------------------------------------
2.

Code
var a,a1,a2,a3:integer;
begin
read (a);
a1:=a*a;
a2:=a1*a1;
a3:=a2*a2;
writeln (A3);end.

Добавлено (01.05.11, 01:08)
---------------------------------------------
1.

Code
var r,s:real;
begin
read (r);
S:=Pi*r*r;
writeln (s); end.

Добавлено (01.05.11, 01:13)
---------------------------------------------

Quote (Berestovskiy)
5 Задание:

Забыл 1 приплюсовать к результату. В твоем коде не выпадает 6 и выпадает 0, чего на кубиках быть не может.
108 | Автор: HWOARANG | 2011-05-01, 01:13 | Изменено: HWOARANG - Вс, 2011-05-01, 00:39   |  Репутация: [ + 20 ]
Спасибо эт я понял)
109 | Автор: viktor-91 | 2011-05-01, 18:50   |  Репутация: [ + 0 ]
Помогите пожалуйста решить задачу: вывести на экран числа из промежутка [10;130] которые делятся без остатка на 2 и на 7, задачу нужно решить, используя оператор while. Через if я эту задачу могу решить, а через while нет.
110 | Автор: xron267 | 2011-05-05, 13:12 | Изменено: xron267 - Чт, 2011-05-05, 14:30   |  Репутация: [ + 0 ]
program tr;
uses crt;
var i:integer;
begin
i:=10;
while i<130 do
begin
if (i mod 2=0) and (i mod 7=0) then writeln (i);
i:=i+1; end;
readkey;
end.
111 | Автор: HWOARANG | 2011-05-05, 20:35   |  Репутация: [ + 20 ]
помогите пожалуйста решить задачи по паскалю.очень важные, нужно сдать зачет!
1.В заданном массиве A(N), все элементы которого попарно различны, найдите:
а) наибольший элемент из отрицательных;
б) наименьший элемент из положительных;
в) второй по величине элемент.
2.Выясните, имеются ли в заданном целочисленном векторе A(N) три подряд идущих элемента одного знака.
3.Заданы площади круга и квадрата. Определите, поместится ли круг в квадрате
112 | Автор: monty | 2011-05-10, 12:47   |  Репутация: [ + 0 ]
1.a,б,в)
var
a,b,c,k:array[1..100]of integer;
n,i,s:integer;
begin
read(n);s:=-32000;
for i:=1 to n do begin
read(a[i]);b[i]:=a[i];c[i]:=a[i];
if a[i]>0 then a[i]:=-32000;end;
for i:=1 to n do
if a[i]>s then s:=a[i];
writeln('Найбольший из отрецательных = ',s);s:=32000;
for i:=1 to n do
if b[i]<0 then b[i]:=32000;
for i:=1 to n do
if b[i]>s then s:=b[i];
writeln('Найменьший из положительных = ',s);
s:=0;
for i:=1 to n do begin
if c[i]>s then s:=c[i];k:=i;end;s:=0;
c[k]:=0;
for i:=1 to n do
if c[i]>s then s:=c[i];
writeln('Второй по велечине элемент = ',s);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
113 | Автор: Berestovskiy | 2011-05-10, 14:13   |  Репутация: [ + 211 ]
var
a:array[1..100]of integer;
i,n:byte;l:boolean;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]=a[i+1]) and (a[i+1]=a[i+2]) then l:=true;
if l then writeln('Yes') else
writeln('No');
end.

"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
114 | Автор: Berestovskiy | 2011-05-10, 14:32   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
114 | Автор: Berestovskiy | 2011-05-10, 14:32   |  Репутация: [ + 211 ]
Пожалуйста помогите решить задачу!!!!!!!!!!! Очень нужно сдать зачет чтоб закрыть сессию!!!!
Напишіть програму, яка б сприймала вхідним параметром символьний рядок і здійснювала сортування символів, відповідно до порядку розміщення букв в алфавіті.
(Т. е. при вводе слова ЛАМПА, должно выдать ААЛМП)
Заранее спасибо!
115 | Автор: dzubenko | 2011-05-11, 22:54 | Изменено: dzubenko - Ср, 2011-05-11, 22:58   |  Репутация: [ + 0 ]
Держи:)

var
s:string;
i,j:byte;c:char;
begin
readln(s);
for i:=1 to length(s) do
for j:=1 to length(s)-1 do
if ord(s[j])>ord(s[j+1]) then begin c:=s[j];s[j]:=s[j+1];s[j+1]:=c;end;
writeln(s);
end.

"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
116 | Автор: Berestovskiy | 2011-05-11, 23:34   |  Репутация: [ + 211 ]
Можете пожалуйста помочь решить задачу
Даны 2 массива, в одном пять элементов, в другом 20. Определить индексы и значения максимальных элементов в каждом массиве.
первый вариант с процедурами и функциями
второй с модулем пользователя
117 | Автор: Johnny_Grunge | 2011-05-13, 09:42   |  Репутация: [ + 0 ]
Ухухуху...какие процедуры, функции и модули пользователя??
оО..заччееммм просто..?

1.
var
i,n,nmax,s:byte;
begin
for i:=1 to 5 do begin
read(n);
if n>nmax then begin nmax:=n;s:=i;end;end;
writeln('Максимальный элемент - ',nmax);
write('Его индекс - ',s);
end.

2.
var
i,n,nmax,s:byte;
begin
for i:=1 to 20 do begin
read(n);
if n>nmax then begin nmax:=n;s:=i;end;end;
writeln('Максимальный элемент - ',nmax);
write('Его индекс - ',s);
end.

"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
118 | Автор: Berestovskiy | 2011-05-13, 14:05   |  Репутация: [ + 211 ]
Двумерный массив. Вот условие:
Станция. Дни.
1 2 3 4
Метеостанция 1 0 10 20 30
Метеостанция 2 -12 25 1 9
Метеостанция 3 4 -8 0 4
Метеостанция 4 6 34 30 36

Задание:
1) Требуется 1 раз распечатать все показания метеостанций за 2 день.
2)Определить среднюю температуру на 3 станции.
3)
Распечатать всю таблицу
4) Распечатать дни и метеостанции, где темперетура была в диапозоне [24-26].

у меня получилось только 1 задание:
var t: [1..3,1..4] of integer ;
i:integer;
begin
t[1;1]:=0, t[1;2]:=10, t[1,3]:=20, t[1,4]:=30;
t[2;1]:=-12, t[2;2]:=25, t[2,3]:=1, t[2,4]:=9;
t[3;1]:=4, t[3;2]:=-8, t[3,3]:=0, t[3,4]:=4;
t[4;1]:=6, t[4;2]:=34, t[4,3]:=30, t[4,4]:=36;
for i:=1 to 3 do
begin
write(t[i:2]);
end;
begin

119 | Автор: pazik | 2011-05-14, 06:44   |  Репутация: [ + 0 ]
const n=4; m=4;
type c1=24..26;
var T:array[1..n,1..m] of integer; k,i,j:integer; sr:real; c:set of c1;
begin
c:=c+[24]+[25]+[26];
t[1,1]:=0; t[1,2]:=10; t[1,3]:=20; t[1,4]:=30;
t[2,1]:=-12; t[2,2]:=25; t[2,3]:=1; t[2,4]:=9;
t[3,1]:=4; t[3,2]:=-8; t[3,3]:=0; t[3,4]:=4;
t[4,1]:=6; t[4,2]:=34; t[4,3]:=30; t[4,4]:=36;
for i:=1 to m do
write (t[2,i],#32);
writeln;
writeln;
for i:=1 to m do
sr:=sr+t[3,i];
sr:=sr/m;
write (sr:2:3);
writeln;
writeln;
for i:=1 to n do begin
for j:=1 to m do
write (t[i,j],#32);
writeln; end;
for i:=1 to n do begin
for j:=1 to m do begin
if t[i,j] in c then if k=0 then begin write ('Meteostanciya ',i,': '); k:=1; end;
if t[i,j] in c then write (j,#32); end; k:=0;
writeln; end;
readln
end.
120 | Автор: HWOARANG | 2011-05-14, 11:01   |  Репутация: [ + 20 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Страница 6 из 38«12456783738»
Поиск: