Будь умным!


У вас вопросы?
У нас ответы:) SamZan.net

4 Контрольный пример 2.html

Работа добавлена на сайт samzan.net:

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 27.11.2024

2.1.4  Контрольный пример

2.1.5 Листинг программы

uses crt;

var

s:string;

begin

writeln('god osnovanija SP?');

readln(s);

if s='1752' then writeln('pravilno')

else writeln('neych!!! pravilno 1752');

readln;

end.

 uses crt;

 var s,v,r,h:real;

 begin

 write('высота цилиндра = '); readln(h);

 write('радиус цилиндра = '); readln(r);

 v:=2*pi*r*(h+r);

 s:=pi*r*r*h;

 writeln('Площадь = ',s);

 writeln('Объем = ',v);

 end.

uses crt;

var ch,i,j:integer;

begin

for i:=1 to 5 do

begin

if (i mod 2 <> 0 ) then

writeln('kvadrat ',i,' = ',sqr(i));

end;

end.

uses crt;

var x,n,i:integer;

BEGIN

clrscr;

randomize;

x:=random(10);

 

while i<5 do

begin

writeln('chislo');

read(n);

if n=x  then

begin

writeln('pozdravlyaem vi ugadali');

i:=i+4;

end

else writeln('vi ne ugadali chislo');

 

i:=i+1;

end;

 

readkey;

END.

2.2.5 Листинг программы

program zzz;

var

i:integer;

z:real;

c:real;

begin

writeln('Введите числа');

z:=1;

while z>0 do

begin

readln(z);

c:=c+z;

i:=i+1;

end;

c:=c/i;

writeln('Среднее арифметическое',c);

readln;

end.

uses crt;

var n,i,a,s:integer;

begin

clrscr;

writeln('Введите количество суммируемых чисел и нажмите Enter');

readln(n);

s:=0;

a:=2;

i:=1;

while i <= n do

 begin

  s:=s+a;

  i:=i+1;

  a:=a+2;

 end;

write('Сумма первых ',n,' четных положительных чисел = ',s);

readln

end.

Program p7;
Var name, surname: string;
i:integer;
Begin;
Writeln('Введите имя...');
Readln(name);
Writeln('Введите фамилию...');
Readln(surname);
FOR i:=1 TO 10 DO
Begin;
Writeln(surname, name);
End;
End.




1. Об утверждении федеральных стандартов аудиторской деятельности
2. Процессор
3. О распределении доходов в теории А
4. Базы и банки данных
5. Китай в мировой экономике
6. осінню кампанію 1941 р
7. Производство щебня на дробильно-Сортировочной фабрике ОАО стойленский ГОК
8. вариантов ответа Занимаюсь спортом Гуляю с друзьями Читаю книги Сижу в Интернете играю в компь
9. модульної програми з дисципліни ldquo;Управління витратами rdquo; для студентів спеціальності
10. Русский «Лярусс» и его создатели в контексте идеологической и научной полемики 1920-х гг
11. І НечуйЛевицький можна розчленувати на три неускладнені висловлювання День був ясний
12. синтаксичними ознаками така структура становить ускладнену синтаксичну одиницю що утворилася внаслідок ф
13. а заключение брака и его расторжение родительство усыновление опекунство смерть граждан
14. а Когда чёрной кошке легче всего пробраться в дом когда открыта дверь Какого мальчика называют женск
15. Сергинский многопрофильный техникум ДНЕВНИК ПРОИЗВОДСТВЕННОЙ ПРАКТИКИ по профессиональному моду
16. Понятие и оценка среднего класса
17. АКВАМАРИН.html
18. реферат дисертації на здобуття наукового ступеня кандидата наук з фізичного виховання і спорту
19. тематичний аналіз
20. что для работы вы получите в лагере