![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
А л г о р и т м
алг максимум двух арг а, в: вещ рез max: вещ нач ввод а, в если а > в то max: = a
иначе max: = в все вывод max кон П Р О Г Р А М М А program maxsimum; var a, b, m: real; begin writeln('Максимум двух чисел'); write ('Первое число? '); readln(a); write ('Второе число? '); readln(b); if a> =b then m: =a else m: =b; writeln('a=', a: 2: 0, ' b =', b: 2: 0); writeln('max =', m: 2: 0); end. ПРИМЕР 2: Найти корни квадратного уравнения А Л Г О Р И Т М алг квадратное уравнение арг а, в, c: вещ рез x1, x2: вещ нач ввод а, в, c если а = 0 то вывод " Уравнение не квадратное" D: =b - 4*a*c если D< 0 то Вывод " Нет решений" иначе х1: =(-b+D)/(2*a) х2: =(-b+D)/(2*a) вывод х1, х2 все все кон П Р О Г Р А М М А program uravnen; m label; var a, b, c, x, x1, x2, d: real; begin write('Введите коэффициенты? '); readln(a); if a=0 then begin writeln('Уравнение не квадратное'); goto m end; readln(b); readln(c); writeln('a= ', a, ' b =', b, 'c=', c); d: =b*b-4*a*c; if d< 0 then writeln('Нет решений') else begin x1: =(-b+sqrt(d))/(2*a); x2: =(-b-sqrt(d))/(2*a); write('Решение: '); wtiteln('x1= ', x1, 'x2= ', x2); end m: end. ПРИМЕР 3: Определить название столицы по названию государства. program capital; var land, cap: string[20]; num: 0..8; begin writeln('Определяем название столицы'); writeln('Введите название страны'); readln(land); num: =0; {номер страны в списке} if land='Австрия' then num: =1; if land='Болгария'then num: =2; if land='Греция' then num: =3; if land='Италия' then num: =4; if land='Норвегия' then num: =5; if land='Франция' then num: =6; if land='США' then num: =7; if land='Россия' then num: =8; case num of {определение столицы по номеру страны в списке } 1: cap: ='Вена'; 2: cap: ='София'; 3: cap: ='Афины'; 4: cap: ='Рим'; 5: cap: ='Осло'; 6: cap: ='Париж'; 7: cap: ='Вашингтон'; 8: cap: ='Москва'; 0: cap: ='Такой страны не знаю' end; writeln(cap); readln; end.
|