Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 13.01.2010, 16:00   #1 (permalink)
Francio
Новичок
 
Регистрация: 13.01.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Unhappy Помогите начинающему программисту

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

вот они

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

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

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

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

Старый 13.01.2010, 16:00
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Вам не нужно тратить время на поиск аналогичных тем, вот они

Помогите начинающему растолковать схему
Кто поможет начинающему?
Помогите начинающему программисту
Подскажите начинающему 3D-моделисту
Нужен совет начинающему паятелю и ваятелю
Дайте, пожалуйста, совет начинающему

Старый 13.01.2010, 17:38   #2 (permalink)
DDS
Member
 
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
По умолчанию

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

Последний раз редактировалось DDS; 13.01.2010 в 17:42
DDS вне форума   Ответить с цитированием
Старый 13.01.2010, 17:44   #3 (permalink)
Francio
Новичок
 
Регистрация: 13.01.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

Последний раз редактировалось Francio; 13.01.2010 в 18:53
Francio вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.