Помогите начинающему программисту

Francio · 13.01.2010, 16:00

Всем привет.Помогите кому не сложно и кто шарит в паскале, написать несколько программ .Я сам пробовал сделать, но ничего не получается и я многово не понимаю так как пролежал много времени в больнице и пропустил занятия.

вот они

1)Студент купил A тетрадей по Sa рублей и B обложек по Sb рублей. Подсчитать стоимость покупки и выдать чек.

2)Заданы три числа: X,Y,Z. Найти минимальное и макимальное.

3)Из N введенных челых чисел найти минимальное из положительных.

4)Вводится одномерный массив из 20 элементов, заполняемый случайными целыми числами в диапазоне {-30 - +30}. Каждый третий элемент, если он отрицательный, возвести в квадрат.

DDS · 13.01.2010, 17:38

Задача 1

Код:

var a,b,sa,sb:byte;s:integer;
begin
read(a,sa);
read(b,sb);
s:=a*sa+sb*b;
writeln(s);
end.

Задача 2

Код:

var x,y,z,max,min:integer;
begin
read(x,y,z);
if x>y then if x>z then max:=x;
if y>x then if y>z then max:=y;
if z>x then if z>x then max:=z;

if x<y then if x<z then min:=x;
if y<x then if y<z then min:=y;
if z<x then if z<x then min:=z;

writeln('min',min);
writeln('max',max);
end.

Задача 3

Код:

var min,i,n,s:byte;
begin
n:=5;
min:=255;
for i:=1 to n do
begin
read(s);
if (s>0)and(s<min) then min:=s;
end;
writeln(min);
end.

Задача 4

Код:

var a:array[1..20] of integer;i:byte;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(61)-30;
i:=1;
repeat
if a[i]>0 then a[i]:=sqr(a[i]);
i:=i+2;
until i>=20;
for i:=1 to 20 do
write(a[i]:5);
end.

ЗЫ Задачи детсадовские, так что советую всё-таки самостоятельно прорешать их, а в моё решение использовать, если что-нибудь непонятно.

Francio · 13.01.2010, 17:44

DDS ты крут

Спс огромное и удачи.

Вот уже чет неправильно сделал и незнаю в чем ошибка в первой задаче

Цитата:

var
a,b,sa,sb:byte;
s:integer;

begin
Write('Vvedite kol-vo tetradok i stoimost= ');
ReadLn(a,sa);
Write('Vvedite kol-vo oblojek i stoimost= ');
ReadLn(b,sb);

s:=a*sa+sb*b;
writeln('Stoimost pokypki sostavila= ',s)

end.

а нет все работает)

13.01.2010, 16:00	#1 (permalink)
Francio Новичок Регистрация: 13.01.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите начинающему программисту Всем привет.Помогите кому не сложно и кто шарит в паскале, написать несколько программ .Я сам пробовал сделать, но ничего не получается и я многово не понимаю так как пролежал много времени в больнице и пропустил занятия. вот они 1)Студент купил A тетрадей по Sa рублей и B обложек по Sb рублей. Подсчитать стоимость покупки и выдать чек. 2)Заданы три числа: X,Y,Z. Найти минимальное и макимальное. 3)Из N введенных челых чисел найти минимальное из положительных. 4)Вводится одномерный массив из 20 элементов, заполняемый случайными целыми числами в диапазоне {-30 - +30}. Каждый третий элемент, если он отрицательный, возвести в квадрат.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070