![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Задание 3. Задана запись одного оператораСтр 1 из 5Следующая ⇒
Задана запись одного оператора. Проверить наличие символа точка с запятой. Вывести соответствующие сообщения. program f3; var s: string[7]; n: integer; Begin writeln('Введите текст'); readln(s); writeln(s); n: =pos('; ', s); if n< > 0 then write('Текст содержит символ; ') else write ('Текст не содержит символ; '); end.
Задание 7 Даны шифры десяти цехов, численности рабочих и инженерно-технических работников в каждом. Вывести списки цехов, в которых соотношение рабочих и ИТР более 1, 5 и менее 2, и списки, в которых это соотношение более 2.
program s7; Var cex: array [1..10] of string[4]; ch, itr: array [1..10] of real; a: real; i: byte; f: text; Begin assign(f, 'C: \Users\Student\Desktop\.txt.txt'); reset(f); i: =0; while not eof(f) do Begin inc(i); readln(f, cex[i], ch[i], itr[i]); end; close(f); for i: =1 to 32 do write('*'); writeln; writeln('** цех ** численность ** итр **'); for i: =1 to 32 do write('*'); writeln; for i: =1 to 10 do writeln('** ', cex[i], '** ', ch[i], ' ** ', itr[i], ' ** '); for i: =1 to 32 do write('*'); writeln; writeln;
for i: =1 to 32 do write('*'); writeln; writeln('** цех ** отношение **'); for i: =1 to 32 do write('*'); writeln;
for i: =1 to 10 do Begin a: =ch[i]/itr[i]; if (a> 1.5) and (a< 2) then writeln('** ', cex[i], '**', a: 10: 2, ' **'); end; writeln; writeln;
for i: =1 to 32 do write('*'); writeln; writeln('** цех ** отношение **'); for i: =1 to 32 do write('*'); writeln; for i: =1 to 10 do Begin a: =ch[i]/itr[i]; if (a> 2) then writeln('** ', cex[i], '**', a: 10: 2, ' **'); end; end.
2 способ при помощи оператора with: program s7; Type zav= record cex: string[4]; ch: real; itr: real; end; Var b: array [1..10] of zav; a: real; i: byte; f: text; Begin assign(f, 'C: \Users\Student\Desktop\.txt.txt'); reset(f); i: =0; while not eof(f) do Begin inc(i); with b[i] do readln(f, cex, ch, itr); end; close(f); for i: =1 to 32 do write('*'); writeln; writeln('** цех ** численность ** итр **'); for i: =1 to 32 do write('*'); writeln; for i: =1 to 10 do with b[i] do writeln('** ', cex, '** ', ch, ' ** ', itr, ' ** '); for i: =1 to 32 do write('*'); writeln; writeln; for i: =1 to 32 do write('*'); writeln; writeln('** цех ** отношение **'); for i: =1 to 32 do write('*'); writeln; for i: =1 to 10 do with b[i] do Begin a: =ch/itr; if (a> 1.5) and (a< 2) then writeln('** ', cex, '**', a: 10: 2, ' **'); end; writeln; writeln;
for i: =1 to 32 do write('*'); writeln; writeln('** цех ** отношение **'); for i: =1 to 32 do write('*'); writeln; for i: =1 to 10 do with b[i] do Begin a: =ch/itr; if (a> 2) then writeln('** ', cex, '**', a: 10: 2, ' **'); end; end.
|