Определить максимальное и минимальное значения из двух различных вещественных чисел
жүктеу/скачать 78 Kb.
|
Задачи по Технологии программирования
| Определить максимальное и минимальное значения из двух различных вещественных чисел Program ololosh; var a,b:real; begin readln(a); {1-ое число} readln(b); {2-ое число} if a>b then write ('1-ое максимальное, а 2-ое минимальное') else
write ('2-ое максимальное, а 1-ое минимальное'); end.
Известны год и номер месяца рождения человека. Определить возраст человека на март(3 месяц) 2008 года setlocale(LC_ALL, "Russian"); int mes, god; cout<<"Эта программа определяет возраст человека на март(3 месяц) 2008 года\n"; cout<<"\nВведите месяц рождения: "; cin>>mes; cout<<"\nВведите год рождения: "; cin>>god; if (mes<3) cout<<"Возраст человека - "<<2008-god-1<<"\n"; else cout<<"Возраст человека - "<<2008-god<<"\n"; 3. Определить, есть ли среди цифр заданного целого трёхзначного числа одинаковые program tt; uses wincrt; var chislo,a,b,c:integer; begin ClrScr; writeln('Введите число:'); readln(chislo); a:=chislo div 100; b:=(chislo mod 100) div 10; c:=chislo mod 10; if (a=b) or (a=c) or(b=c) then writeln('Есть!') else writeln('Нет!'); readln; end. 4. Выбрать наибольшее из трёх заданных чисел #include using namespace std; int main() {
cin >> a >> b >> c; if ((a > b) and (a > c)) { cout << a; } else { if ((b > a) and (b > c)) { cout << b; } else { cout << c; } } return 0; }
#include #include /* коилчество минут */ #define minutes_count 10 int main() { double moscow_tax = 4.15,rostov_tax = 1.98, krasnodar_tax=2.69,kirov_tax = 5,overall_sum,tax; int city_code; printf("vvedite kod goroda\n"); scanf("%d",&city_code);
switch(city_code) { case 905: tax = moscow_tax; break; case 194: tax = rostov_tax; break; case 491: tax = krasnodar_tax; break; case 800: tax = kirov_tax; break; default: return 1; } overall_sum = tax*minutes_count; printf("itogo = %f rublei",overall_sum); return 0; } 6. Составить программу, которая в зависимости от порядкового номера дня недели (1..2) выводит на экран его название (понедельник, вторник..., воскресенье) Var d: integer; repeat readln(d); case d of 1: writeln('Понедельник'); 2: writeln('Вторник'); 3: writeln('Среда'); 4: writeln('Четверг'); 5: writeln('Пятница'); 6: writeln('Суббота'); 7: writeln('Воскресенье'); else writeln('Конец работы!') end; until (d<1 or d>7) end.
жүктеу/скачать 78 Kb. Достарыңызбен бөлісу:
|