Составить программу которая по введенному значению 1 2 3 вычисляет

Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах.

Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте.

Как быстро и эффективно исправить почерк? Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.

Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.

• Обратная связь
• Правила сайта

Источник: www.soloby.ru

Найти факториал числа. Решение задачи на языке программирования Python

Оператор Case — Turbo Pascal (119029)

Здравствуйте. Помогите решить задачу. Составить программу,которая по введенному значению 1,2,3 вычисляет: 1)Площадь параллелограмма 2)Периметр параллелограмма 3)Выход Спасибо!

Код к задаче: «Оператор Case»

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

uses crt; var a,b,h,s,p:real; k:byte; begin clrscr; writeln(‘Введите длины cторон’); readln(a,b); repeat write(‘Введите высоту к стороне a, не более длины стороны b h=’); readln(h); until(h>0)and(h<=b); repeat clrscr; writeln(‘Что вычислить?’); writeln(‘1-площадь’); writeln(‘2-периметр’); writeln(‘3-выход’); repeat readln(k); until k in [1..3]; case k of 1:begin writeln(‘Площадь=’,a*h:0:2); readln; end; 2:begin writeln(‘Периметр=’,2*(a+b):0:2); readln; end; 3:exit; end; until k=3; end.

Источник: studassistent.ru

3 Условный оператор Case.

1. Составить программу, которая по введенному значению 1, 2, 3 вычисляет:

1. Площадь параллелограмма
2. Периметр параллелограмма
3. Выход

var a,s,h,d,q,w:byte; begin writeln(‘vvedite 3 chisla’); readln(a,s,h); writeln(‘vvedite nomer operachii’); readln(d); case d of 1:begin q:=(a+s)*2; writeln(q); end; 2:begin w:=s*h; writeln(w); end; 3:exit; end; end.

Ручной счет.

1 Считаем площадь (5+8)*2=26 2 Считаем периметр 6*8=48 3 Выход, если после ввода трех чисел, в строке ввода операции набрать 3,то программа выйдет в меню.

4 Оператор цикла For

1. Найти среднее арифметическое минимального и максимального элементов из 10 введенных.

var g,a,min,max:real; s:byte; begin writeln(‘vvedite chislo’); readln(a); min:=a; max:=a; for s:=2 to 10 do begin writeln(‘vvedite ‘,s,’ chislo’); readln(a); if min>a then min:=a; if max Ручной счет. Max=10Min=0 (10+0)/2=5 2.Из nвведенных чисел найти максимальное значение среди положительных элементов. var a,s,e,max:integer; begin writeln(‘vvedite cislo cisel i pervoe chislo’); readln(a,e); max:=e; for s:=2 to a do begin writeln(‘vvedite ‘,s,’ chislo’); readln(e); if (e>0) and (e>max) then max:=e; end; writeln(max); end.

. Ручной счет. 8>0=> max 3.Вычислить сумму первых nслагаемых 1 2 +2 2 -3 2 +4 2 +5 2 -6 2 +…(каждое третье слагаемое берется со знаком «минус»). Program P15; var n,I,S:integer; begin writeln (‘vvedite kolvo chisel’); readln (n); for I:=1 to n do if I mod 3=0 then S:=s-sqr(I) else S:=s+sqr(I); writeln(S); readln(S); end. Машинныйсчет. Ручной счет.1^2+2^2-3^2=-4

12 Задача: Определить число четное или нечетное при помощи Python

5. Оператор циклаRepeat…Until

1. Составить программу ввода натурального числа в интервале от NдоM.

var n,m,s:real; begin writeln(‘vvedite interval’); readln(n,m); if n=n)and(s <=m) else writeln(‘nevernii interval’); end.

1. Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней.

Program P17; var A,B:real; begin A:=10; repeat A:=(A*0.1)+A; B:=B+1; until (B=6); writeln(A); readln; end. Ручной счет. 10*0,1+10=11 11*0,1+11=12,1 12,1*0,1+12,1=13,31 13,31*0,1+13,31=14,641 14,641*0,1+14,641=16,1051 16,1051*0,1+16,1051=17,71561

6. Оператор повтораWhile

1. К старушке на обед ходят кошки. Каждую неделю две кошки приводят свою подружку. В доме у старушки 100 мисок. Через какое время появятся лишние кошки, и сколько кошек при этом останется голодными.

var e,r,w:byte; begin e:=2;w:=0; while e Ручной счет. 2+1=3+1=4+2=6+3=9+4=13+6=19+9=28+14=42+21=63+31=94+47=141-100=41=> 41 окажется голодной, через 11 недель.

1. Известна сумма номеров страниц, определить количество страниц.

var e,x,t:word; begin writeln(‘vvedite summu stranic’); readln(e); while e>=t do begin t:=t+x+1; x:=x+1; end; writeln(x); end. Ручной счет. 0+1+2+3+4+5+6=21 =>7стр

1. Лягушка каждый последующий прыжок делает в два раза короче предыдущего.

Достигнет ли она болота и за сколько прыжков. Длину первого прыжка задайте самостоятельно. Program P20; var H,I:integer; a,d:real; begin writeln(‘vvedite dliny prigka’); readln(a); writeln(‘vvedite rasstoainie do bolota’); readln(H); d:=0; while d5 => За два прыжка лягушка перепрыгнет болото.

Источник: studfile.net