|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
12.09.2014, 18:12 | #1 (permalink) |
Новичок
Регистрация: 12.09.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Срочно нужна блок схема к коду
uses crt; const count=100;{максимальное кол-во данных} type Data=record{структура} fam:string[20];{фамилия} st:integer;{стаж} end; var a:array[1..count] of Data;{массив структур} tmp: Data;{временная переменная для сортировки нужна} n,i,st,s,j:integer; ch:string; f,check:boolean; dg:string; fl:text; begin assign(fl,'data.txt');{связываем файловую переменную с физически файлом на диске} rewrite(fl);{перезеписываем файл} s:=0; repeat write('Vvedite kol-vo zapisey :');{кол-во записей считываем} readln(dg); val(dg,n,j);{переводим в число} until j=0;{в переменную у нас записывается код ошибки} for i:=1 to n do begin repeat check:=false; write('Vvedite familiyu :'); readln(a[i].fam);{считываем фамилию} for j:=1 to length(a[i].fam) do if a[i].fam[j] in ['0'..'9']then check:=true; until check=false; repeat write('Vvedite staj :'); readln(dg);{считываем} val(dg,a[i].st,j);{переводим в число} until j=0;{в переменную у нас записывается код ошибки} writeln(fl,'Familiya :',a[i].fam:15,' Staj :',a[i].st:2);{выводим в файл} end; close(fl); clrscr; for i:=1 to n do writeln('Familiya :',a[i].fam:15,' Staj :',a[i].st:2);{выводим все} writeln; for i:=1 to n do s:=s+a[i].st;{среднее вычисляем} s:=s div n; repeat check:=false; write('Vvedite bukvu :'); writeln; readln(ch); {считываем букву} for j:=1 to length(ch) do if ch[j] in ['0'..'9']then check:=true; until check=false; for i:=1 to n do if a[i].fam[1]=ch then writeln('Familiya :',a[i].fam:15,' Staj :',a[i].st:2); {выводим где фамилия начинается с введенной буквы} writeln; repeat write('Vvedite staj :'); readln(dg); {стаж} val(dg,st,j);{переводим в число} until j=0;{в переменную у нас записывается код ошибки} for i:=1 to n do if a[i].st=st then writeln('Familiya :',a[i].fam:15,' Staj :',a[i].st:2); writeln; writeln('Staj > sr :');{стаж выводим если больше среднего} for i:=1 to n do if a[i].st>s then writeln('Familiya :',a[i].fam:15,' Staj :',a[i].st:2); writeln; writeln('V alf poryadke :');{выводим в алфавитном порядке} repeat{сортировка обменами} f:=false; for i:=1 to n-1 do if a[i].fam>a[i+1].fam then {если условие выполняется то обмен} begin f:=true; tmp:=a[i]; a[i]:=a[i+1]; a[i+1]:=tmp; end; until f=false; for i:=1 to n do{выводим} writeln('Familiya :',a[i].fam:15,' Staj :',a[i].st:2); writeln('Staj ubivaet :');{сортировка по убыванию стажа} repeat f:=false; for i:=1 to n-1 do if a[i].st<a[i+1].st then begin f:=true; tmp:=a[i]; a[i]:=a[i+1]; a[i+1]:=tmp; end; until f=false; for i:=1 to n do{выводим} writeln('Familiya :',a[i].fam:15,' Staj :',a[i].st:2); readln; end. |
12.09.2014, 18:12 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Аналогичные темы уже тут встречались, вот их список Срочно нужна схема лампового предусилителя Нужна блок-схема по этому коду Нужна блок-схема по этому коду |
13.10.2014, 20:46 | #2 (permalink) |
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
Ну это ж элементарно.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|