Написать программу паскаль, которая решает следующую : телефонные разговоры с тремя населенными пунктами стоят с1, с2, с3 коп./мин. разговоры длились t1, t2, t3 минут сооветственно. какова общая стоимость разговоров?
114
194
Ответы на вопрос:
program razgovor;
uses crt;
var c1,c2,c3: integer;
t1,t2,t3: integer;
begin
write('введите цену разговора с первым пунктом, с1= ');
readln(c1);
write('введите цену разговора со вторым пунктом, с2= ');
readln(c2);
write('введите цену разговора с третьим пунктом, с3= ');
readln(c3);
write('введите длительность разговора с первым пунктом, t1= ');
readln(t1);
write('введите длительность разговора со вторым пунктом, t2= ');
readln(t2);
write('введите длительность разговора с третьим пунктом, t3= ');
readln(t3);
clrscr;
writeln('общая стоимость разговора = ',c1*t1+c2*t2+c3*t3)
end.
{1 шаг - создать типизированный файл! } program ex; uses crt; const name='baze'; type stfio = string[30]; adress=string[50]; recbook = record fio : stfio; {ф.и.о} adress: adress; {адрес} num_tel: string[20]{телефон}; end; mas= array[1..30] of recbook; var bookfile : file of recbook; work : recbook; vid : char; end_menu : boolean; a: mas; procedure sort_buble(var a: mas; count: integer); var c: mas; last,current: integer; begin for last : = count downto 2 do for current : = 1 to last-1 do begin if a[current].fio > a[current+1].fio then begin c[1]: =a[current]; a[current]: =a[current+1]; a[current+1]: =c[1]; end; end; end; procedure outputrec_z; begin with work do begin gotoxy(2,2); write(' фио '); gotoxy(19,2); write(' tel '); gotoxy(35,2); write(' адрес '); gotoxy(2,4); write(fio); gotoxy(19,4); write(num_tel); gotoxy(35,4); writeln(adress); end; readkey; clrscr; end; procedure find; var findst: string; end_menu2: boolean; begin write(' введите строку поиска(fio) '); readln(findst); textcolor(15); clrscr; assign(bookfile,name); {$i-} reset(bookfile); {$i+} if ioresult = 0 then begin seek(bookfile, 0); while (not eof(bookfile)) do begin clrscr; read(bookfile,work); if pos(findst,work.fio)< > 0 then outputrec_z; end; writeln('больше записей удовлетворяющих критерию поиска не обнаружено'); readkey; end end; var f: text; procedure find_b; var i,j: integer; begin textcolor(15); clrscr; assign(bookfile,name); {$i-} reset(bookfile); {$i+} if ioresult = 0 then begin i: =0; {кол-во записей тел которых начинается с 41} seek(bookfile, 0); while (not eof(bookfile)) do begin read(bookfile,work); if (pos('41',work.num_tel)=1) then begin i: =i+1; a[i]: =work; end; end; sort_buble(a, i); assign(f,'res.txt'); rewrite(f); for j: =1 to i do writeln(f,a[j].fio,' ', a[i].num_tel: 7); close(f); end; end; {****************************************************************************} procedure addrec; begin clrscr; write(' номер добавляемой записи '); textcolor(15); write(filepos(bookfile)+1); with work do begin writeln; write(' фио '); readln(fio); write(' телефон '); readln(num_tel); write(' адрес '); readln(adress); write(bookfile,work); end; end; {****************************************************************************} procedure create_book_phone; var ind, count : integer; begin clrscr; textcolor(15); assign(bookfile,name); rewrite(bookfile); write(' новый файл '); writeln(name); write(' введите количество записей в файле '); readln(count); for ind : = 1 to count do addrec; writeln; writeln(' создание завершено'); writeln; writeln(' количество записей в файле '); writeln(filesize(bookfile)); close(bookfile); end; {****************************************************************************} procedure outputrec; begin clrscr; read(bookfile,work); with work do begin gotoxy(10,2); write('фио '); gotoxy(34,2); write('телефон '); gotoxy(50,2); write('адрес '); gotoxy(2,4); write(fio); gotoxy(35,4); write(num_tel); gotoxy(50,4); writeln(adress); readkey; clrscr; end; end; {****************************************************************************} procedure outputallrec; begin clrscr; assign(bookfile,name); {$i-} reset(bookfile); {$i+} if ioresult = 0 then begin seek(bookfile, 0); while (not eof(bookfile)) do outputrec; end end; {****************************************************************************} begin clrscr; textbackground(0); vid : = ' '; end_menu : = false; repeat textcolor(15); write(' текущий файл: ',chr(13),name); writeln; writeln; writeln('*********************************************************************'); writeln; writeln('меню: '); writeln(' 2 cоздать новый файл'); writeln(' 3 просмотреть все '); writeln(' 4 найти номер телефона сотрудника по его фамилии'); writeln(' 5 переписать в алф. порядке в текстовый файл информацию о сотрудниках первые цифры телефона 41'); writeln(' 8 bыход'); readln(vid); case vid of '2' : create_book_phone; '3' : outputallrec; '4' : find; '5' : find_b; '8' : end_menu : = true; end; clrscr; until end_menu; end.
Популярно: Информатика
-
yulya67826.09.2020 17:06
-
Фадиля07.03.2023 11:39
-
AceAlone05.03.2020 12:03
-
gorlovaolga07524.10.2020 18:01
-
Ольга19841413.05.2020 15:55
-
катюха13456788900029.06.2022 22:40
-
Selektro27.06.2023 15:51
-
oksana200000115.11.2022 11:04
-
khabarovanastya15.02.2022 07:24
-
Was123113.10.2022 09:48