Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Помогите начинающему программисту (http://www.tehnari.ru/f41/t31985/)

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 ты крут:eek: Спс огромное и удачи.

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

Цитата:


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.
а нет все работает)


Часовой пояс GMT +4, время: 19:27.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.